请参阅Environment.OSVersionMSDN上的属性.它是一个返回一个OperatingSystem对象的静态属性,该对象具有一个Version属性,您只需检查它们Major和Minor版本号以查看它是否为6.1(Windows 7实际上是版本6.1).
Dim osVer As Version = Environment.OSVersion.Version
If osVer.Major = 6 And osVer.Minor = 1 Then
Console.WriteLine("win7!!")
End If
Run Code Online (Sandbox Code Playgroud)