VB.Net Tutorial/Windows/Windows Version

Материал из VB Эксперт
Версия от 15:56, 26 мая 2010; Admin (обсуждение | вклад) (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>

Windows XP