请问在VB中如何获取IE的版本号？

Question

请问在VB中如何获取IE的版本号？想在VB程序中检测当前操作系统的版本号，请指点？

Answer 1

'获得IE版本号.Private Type DllVersionInfo
cbSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformID As Long
End TypePrivate Declare Function DllGetVersion _
Lib "Shlwapi.dll" _
(dwVersion As DllVersionInfo) As LongPrivate Function GetIEVersionString() As StringDim DVI As DllVersionInfoDVI.cbSize = Len(DVI)
Call DllGetVersion(DVI)GetIEVersionString = "Internet Explorer " & _
DVI.dwMajorVersion & "." & _
DVI.dwMinorVersion & "." & _
DVI.dwBuildNumberEnd Function
Private Sub Command1_Click()
MsgBox GetIEVersionString
End Sub

Answer 2

获取更详细，代码更简单的来了!
Private Sub Form_Load()
Set Yan = CreateObject("WScript.Shell")
MsgBox Yan.RegRead("HKLM\Software\Microsoft\Internet Explorer\Version")
End Sub

Answer 3

获取系统版本信息，给分吧!
Private Sub Form_Load()
Set oWMINameSpace = GetObject("winmgmts:")
Set SystemSet = oWMINameSpace.InstancesOf("Win32_OperatingSystem")
For Each System In SystemSet
     a = a & vbCrLf & "操作系统: " & vbCrLf & System.Caption + vbCrLf & System.Manufacturer + vbCrLf & "版本 " & System.Version + vbCrLf & "Service Pack " & System.ServicePackMajorVersion & "." & System.ServicePackMinorVersion & vbCrLf & System.SerialNumber + vbCrLf & System.BuildType & vbCrLf
Next
MsgBox a
End Sub