http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FWindows_System%2FEnvironment_Setting
VB.Net/Windows System/Environment Setting - История изменений
2026-04-05T06:02:01Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/Windows_System/Environment_Setting&diff=584&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:06Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net/Windows_System/Environment_Setting&diff=585&oldid=prev
Admin: 1 версия
2010-05-26T12:44:36Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Adding Favorites==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Public Class MainClass<br />
Public Shared Sub Main()<br />
CreateShortcut("Demo", "http://www.a.net/")<br />
End Sub<br />
Public Shared Sub CreateShortcut(ByVal Title As String, ByVal URL As String)<br />
Dim strFavoriteFolder As String<br />
strFavoriteFolder = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)<br />
Dim objWriter As System.IO.StreamWriter = System.IO.File.CreateText(strFavoriteFolder & "\" & Title & ".url")<br />
objWriter.WriteLine("[InternetShortcut]")<br />
objWriter.WriteLine("URL=" & URL)<br />
objWriter.Close()<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Display System Stack Trace==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("StackTrace: " & System.Environment.StackTrace )<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Get Environment Variable by Name==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine(Environ("USERNAME"))<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Get Machine Name==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("MachineName: " & System.Environment.MachineName)<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Get .Net Runtime Environment Version Number==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("Version: " & System.Environment.Version.ToString)<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Get OS Version==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("OSVersion: " & System.Environment.OSVersion.VersionString)<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Get Processor Count==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("ProcessorCount: " & System.Environment.ProcessorCount)<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Get Sysstem Directory==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("SystemDirectory: " & System.Environment.SystemDirectory)<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Get System Exit Code==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("ExitCode: " & System.Environment.ExitCode )<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Get System New Line Code==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("NewLine: " & System.Environment.NewLine)<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Get Tick Count==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("TickCount: " & System.Environment.TickCount)<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Get Working Set==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("WorkingSet: " & System.Environment.WorkingSet)<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Has Shutdown Started==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Console.WriteLine("HasShutdownStarted: " & System.Environment.HasShutdownStarted )<br />
End Sub <br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==List your environment Setting==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Public Class MainClass<br />
Shared Sub Main()<br />
For i As Integer = 1 To 255<br />
If Environ(i).Length = 0 Then Exit For<br />
Console.WriteLine( Environ(i) )<br />
Next i<br />
End Sub <br />
End Class<br />
<br />
<br />
</source></div>
Admin