VB.Net/Windows System/Environment Setting
Содержание
- 1 Adding Favorites
- 2 Display System Stack Trace
- 3 Get Environment Variable by Name
- 4 Get Machine Name
- 5 Get .Net Runtime Environment Version Number
- 6 Get OS Version
- 7 Get Processor Count
- 8 Get Sysstem Directory
- 9 Get System Exit Code
- 10 Get System New Line Code
- 11 Get Tick Count
- 12 Get Working Set
- 13 Has Shutdown Started
- 14 List your environment Setting
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>