в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:56:12Z

1 версия

Новая страница

==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>
<pre class=codeResult>Windows XP</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Windows/Windows Version - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия