blocks|key|806402|text|啊，找到了！我个人并不使用这个类，因为出于我的需要，它有点过分了，但它绝对是我见过的最全面的OpSys版本示例。这要归功于肯尼斯·艾夫斯。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|806403|*我猜StackOverflow不喜欢巨大的代码块，所以类(clsOperSystem.cls)位于KiCrypt+Demo中，它是哈希和加密算法的优秀编译。|offset|length|806404|entityMap|0|LINK|mutability|MUTABLE|url|http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=73481&lngWId=1^0|0|1E|C|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|O|8|@]|9|@$D|P|E|Q|1|R]]|A|$]]|$1|F|3|-4|5|6|7|S|8|@]|9|@]|A|$]]]|G|$H|$5|I|J|K|A|$L|M]]]]

Ah, found it! I don't personally use this class because for my needs it's overkill, but it's definitely the most thorough OpSys version example I've come across. Credit for this one goes to Kenneth Ives. 

*I guess StackOverflow doesn't like enormous blocks of code, so the class (clsOperSystem.cls) is located in the <a href="http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=73481&amp;lngWId=1" rel="nofollow">KiCrypt Demo</a>, an excellent compilation of hash and encryption algorithms.

blocks|key|806481|text|您可以尝试使用VB6附带的微软Sysinfo+control，并检查OSPlatform、OSBuild和OSVersion属性是否与正确的OS+Version+#匹配|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|806482|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/aa733698%2528VS.60%2529.aspx|1|http://www.nirmaltv.com/2009/08/17/windows-os-version-numbers/^0|F|F|0|1Y|C|1|0^^$0|@$1|2|3|4|5|6|7|N|8|@]|9|@$A|O|B|P|1|Q]|$A|R|B|S|1|T]]|C|$]]|$1|D|3|-4|5|6|7|U|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]|L|$5|G|H|I|C|$J|M]]]]

You could try using the Microsoft <a href="http://msdn.microsoft.com/en-us/library/aa733698%28VS.60%29.aspx" rel="nofollow">Sysinfo control</a> that comes with VB6 and check for OSPlatform, OSBuild and OSVersion propertys to match with the proper <a href="http://www.nirmaltv.com/2009/08/17/windows-os-version-numbers/" rel="nofollow">OS Version #</a>

blocks|key|806528|text|还有WMI+Tasks+for+Operating+Systems。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|806529|strComputer+=+"."
Set+objWMIService+=+GetObject("winmgmts:"+&+"{impersonationLevel=impersonate}!\\"+&+strComputer+&+"\root\cimv2")
Set+colOperatingSystems+=+objWMIService.ExecQuery+("Select+*+from+Win32_OperatingSystem")
For+Each+objOperatingSystem+in+colOperatingSystems
++++Wscript.Echo+objOperatingSystem.Caption+&+"++"+&+objOperatingSystem.Version
Next|code-block|syntax|javascript|806530|您可以执行类似于上面Cody+Gray提供的case语句的操作来解析Version值，或者解析纯文本Caption值，该值包含Microsoft(R)+Windows(R)+Server+2003,+Standard+Edition和Microsoft+Windows+7+Professional之类的清单。|style|CODE|806531|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/aa394596%2528v=vs.85%2529.aspx^0|2|V|0|0|0|Y|7|1E|7|1R|1H|39|W|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@$A|V|B|W|1|X]]|C|$]]|$1|D|3|E|5|F|7|Y|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|Z|8|@$A|10|B|11|K|L]|$A|12|B|13|K|L]|$A|14|B|15|K|L]|$A|16|B|17|K|L]]|9|@]|C|$]]|$1|M|3|-4|5|6|7|18|8|@]|9|@]|C|$]]]|N|$O|$5|P|Q|R|C|$S|T]]]]

There's also the <a href="http://msdn.microsoft.com/en-us/library/aa394596%28v=vs.85%29.aspx" rel="nofollow">WMI Tasks for Operating Systems</a>.

<pre><code>strComputer = "."
Set objWMIService = GetObject("winmgmts:" &amp; "{impersonationLevel=impersonate}!\\" &amp; strComputer &amp; "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
 Wscript.Echo objOperatingSystem.Caption &amp; " " &amp; objOperatingSystem.Version
Next
</code></pre>

You can do something similar to the case statements provided by Cody Gray above to parse the <code>Version</code> value, or parse the plain text <code>Caption</code> value, which has listings like <code>Microsoft(R) Windows(R) Server 2003, Standard Edition</code> and <code>Microsoft Windows 7 Professional</code>.

blocks|key|1021288|text|下面是我用来确定32位和64位操作系统的一个非常简单的方法：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1021289|OSBits+=+IIf(Len(Environ$("PROGRAMFILES(X86)"))+>+0,+64,+32)|code-block|syntax|javascript|1021290|在64位Windows中，操作系统设置环境变量"PROGRAMFILES(X86)“，但在32位系统上不是这样。它还没有让我失望。|1021291|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Here is a very simple method I use to determine 32 vs. 64 bit operating system:

<pre><code>OSBits = IIf(Len(Environ$("PROGRAMFILES(X86)")) &gt; 0, 64, 32)
</code></pre>

In 64-bit Windows, the OS sets the environment variable "PROGRAMFILES(X86)" but it doesn't on 32-bit systems. It hasn't failed me yet...

I want to detect any Windows versions from 95 to Win 7.

I also would like to display if the OS is 32-bit or 64-bit.

That's it; it's that simple. :) What code could I use to do this from within a VB 6 application?

How can I determine the Windows version from a VB 6 app?

Windows

我想检测从95到Win 7的任何Windows版本。我还想显示操作系统是32位还是64位。就是这样；就这么简单。:)在VB6应用程序中，我可以使用什么代码来做这件事？

问如何从VB6应用程序确定Windows版本？
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何从VB6应用程序确定Windows版本？EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何从VB6应用程序确定Windows版本？
EN