VB.Net/Windows System/Environment Setting

Материал из VB Эксперт
Версия от 15:44, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Adding Favorites

<source lang="vbnet"> Public Class MainClass

   Public Shared Sub Main()
       CreateShortcut("Demo", "http://www.a.net/")
   End Sub
   Public Shared Sub CreateShortcut(ByVal Title As String, ByVal URL As String)
       Dim strFavoriteFolder As String
       strFavoriteFolder = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
       Dim objWriter As System.IO.StreamWriter = System.IO.File.CreateText(strFavoriteFolder & "\" & Title & ".url")
       objWriter.WriteLine("[InternetShortcut]")
       objWriter.WriteLine("URL=" & URL)
       objWriter.Close()
   End Sub

End Class


 </source>


Display System Stack Trace

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("StackTrace:         " & System.Environment.StackTrace )
  End Sub 

End Class


 </source>


Get Environment Variable by Name

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
        Console.WriteLine(Environ("USERNAME"))
  End Sub 

End Class


 </source>


Get Machine Name

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("MachineName:        " & System.Environment.MachineName)
  End Sub 

End Class


 </source>


Get .Net Runtime Environment Version Number

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("Version:            " & System.Environment.Version.ToString)
  End Sub 

End Class


 </source>


Get OS Version

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("OSVersion:          " & System.Environment.OSVersion.VersionString)
  End Sub 

End Class


 </source>


Get Processor Count

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("ProcessorCount:     " & System.Environment.ProcessorCount)
  End Sub 

End Class


 </source>


Get Sysstem Directory

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("SystemDirectory:    " & System.Environment.SystemDirectory)
  End Sub 

End Class


 </source>


Get System Exit Code

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("ExitCode:           " & System.Environment.ExitCode )
  End Sub 

End Class


 </source>


Get System New Line Code

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("NewLine:            " & System.Environment.NewLine)
  End Sub 

End Class


 </source>


Get Tick Count

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("TickCount:          " & System.Environment.TickCount)
  End Sub 

End Class


 </source>


Get Working Set

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("WorkingSet:         " & System.Environment.WorkingSet)
  End Sub 

End Class


 </source>


Has Shutdown Started

<source lang="vbnet"> Imports System

Public Class MainClass

  Shared Sub Main()
       Console.WriteLine("HasShutdownStarted: " & System.Environment.HasShutdownStarted )
  End Sub 

End Class


 </source>


List your environment Setting

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
       For i As Integer = 1 To 255
           If Environ(i).Length = 0 Then Exit For
           Console.WriteLine( Environ(i) )
       Next i
  End Sub 

End Class


 </source>