xingke 发表于 2007-10-27 13:55:17

VB编程获得IE的版本号

下面的程序可以获得IE的版本号:
Private Type DllVersionInfo
cbSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformID As Long
End Type

Private Declare Function DllGetVersion _
Lib "Shlwapi.dll" _
(dwVersion As DllVersionInfo) As Long

Private Function GetIEVersionString() As String

Dim DVI As DllVersionInfo

DVI.cbSize = Len(DVI)
Call DllGetVersion(DVI)

GetIEVersionString = "Internet Explorer " & _
DVI.dwMajorVersion & "." & _
DVI.dwMinorVersion & "." & _
DVI.dwBuildNumber

End Function
页: [1]
查看完整版本: VB编程获得IE的版本号