使用VB6检测Internet Explorer版本

Question

我正在更新一个遗留的应用程序，它有一些功能可以检测安装的Internet Explorer的版本，只是为了显示和错误报告，而不是因为需要任何组件。用于IE版本检测的代码基本上是来自VBnet - DllGetVersion: Detailed Internet Explorer Version Info的代码(作者: Kay-Christian Hansen，VBnet - Randy Birch)。不幸的是，此代码不能检测高于IE6的IE版本。

所以我想知道现在被接受的检测Internet Explorer安装版本的VB6方法是什么？

谢谢。

Answer 1

你可以通过访问注册表来做到这一点。

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version.

对于IE 10和更高版本，您应该检查

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\svcVersion.

看看KB 969393

Answer 2

我到处找，什么也找不到。出于某种原因有点晦涩。我确实找到了这个链接，在那里有人发布了一个解决方案，但我不能让它完全工作！:)我不是一个真正的vb人，所以也许你可以。如果你感兴趣，这里有链接：

http://www.visualbasicscript.com/m_64130/tm.htm

编辑：

我实际上遗漏了页面底部的一些代码，这些代码在获取IE版本时似乎工作得很好。我稍微简化了他的代码：

Dim oFS = CreateObject("Scripting.FileSystemObject")
Dim version = oFS.GetFileVersion("c:\windows\system32\ieframe.dll")
MsgBox("Your IE version is: " & version)

希望这能有所帮助！