VB.Net Tutorial/Windows/Windows Version — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:56, 26 мая 2010
Get windows version
<source lang="vbnet">Imports System.Environment
Public Class Tester
Public Shared Sub Main Dim os_version As OperatingSystem = OSVersion With os_version Select Case .Platform Case .Platform.Win32Windows " Win32. Select Case (.Version.Minor) Case 0 Console.WriteLine("Windows 95") Case 10 Console.WriteLine(.Version.Revision.ToString()) Case 90 Console.WriteLine("Windows Me") End Select Case .Platform.Win32NT " WinNT. Select Case (.Version.Major) Case 3 Console.WriteLine("Windows NT 3.51") Case 4 Console.WriteLine("Windows NT 4.0") Case 5 Select Case (.Version.Minor) Case 0 Console.WriteLine("Windows 2000") Case 1 Console.WriteLine("Windows XP") Case 2 Console.WriteLine("Windows Server 2003") End Select Case Else Console.WriteLine("Unknown") End Select Case Else Console.WriteLine("Unknown") End Select End With End Sub
End Class</source>
Windows XP