====如何获取IE的版本号？====

完美人生2013 2005-08-27 09:51:34

如题，马上给分！！！！

...全文

72 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

yinweihong 2005-08-29

打赏
举报

Option Explicit

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 Sub Command1_Click()
Dim DVI As DllVersionInfo
Call GetIEVersion(DVI)
Frame1.Caption = GetIEVersionString()
Label1.Caption = DVI.dwMajorVersion
Label2.Caption = DVI.dwMinorVersion
Label3.Caption = DVI.dwBuildNumber
Label4.Caption = DVI.dwPlatformID
Label5.Caption = GetIEVersionFriendlyName()
End Sub
Private Function GetIEVersionFriendlyName() As String
Dim s As String
Dim DVI As DllVersionInfo
Call GetIEVersion(DVI)
Select Case DVI.dwMajorVersion
Case 4
Select Case DVI.dwMinorVersion
Case 40:
Select Case DVI.dwBuildNumber
Case 308: s = "1.0 (Plus! for Windows 95)"
Case 520: s = "2.0"
End Select
Case 70
Select Case DVI.dwBuildNumber
Case 1155: s = "3.0"
Case 1158: s = "3.0 (OSR2)"
Case 1215: s = "3.01"
Case 1300: s = "3.02 and 3.02a"
Case Else: s = "3 (Unknown)"
End Select
Case 71
Select Case DVI.dwBuildNumber
Case 544: s = "4.0 Platform Preview 1.0 (PP1)"
Case 1008: s = "4.0 4.0 Platform Preview 2.0 (PP2)"
Case 1712: s = "4.0"
Case Else: s = "4.0 (Unknown)"
End Select
Case 72
Select Case DVI.dwBuildNumber
Case 2106: s = "4.01"
Case 3110: s = "4.01 Service Pack 1 (Windows 98)"
Case 3612: s = "4.01 Service Pack 2"
Case 3711: s = "4.x with Update"
Case Else: s = "4.0 (Unknown)"
End Select
Case Else: s = "(Unknown)"
End Select
Case 5
Select Case DVI.dwMinorVersion
Case 0
Select Case DVI.dwBuildNumber
Case 518: s = "5 Developer Preview (Beta 1)"
Case 910: s = "5 Beta (Beta 2)"
Case 2014: s = "5"
Case 2314: s = "5 (Office 2000)"
Case 2516: s = "5.01 (Windows 2000 Beta 3, build 5.00.2031)"
Case 2614: s = "5 (Windows 98 Second Edition)"
Case 2717, 2721, 2723: s = "5 with update"
Case 2919: s = "5.01 (Windows 2000 RC1&2/Office 2000 SR-1/Update)"
Case 2920: s = "5.01 (Windows 2000, build 5.00.2195)"
Case 3103: s = "5.01 Service Pack 1 (Windows 2000)"
Case 3105: s = "5.01 Service Pack 1 (Windows 95/98 and Windows NT 4.0)"
Case 3314: s = "5.01 Service Pack 2 (Windows 95/98 and Windows NT 4.0)"
Case 3315: s = "5.01 Service Pack 2 (Windows 2000)"
Case 3502: s = "5.01 SP3 (Windows 2000 SP3 only)"
Case 3700: s = "5.01 SP4 (Windows 2000 SP4 only)"
Case Else: s = "5 (Unknown)"
End Select
Case 50
Select Case DVI.dwBuildNumber
Case 3825: s = "5.5 Developer Preview (Beta)"
Case 4030: s = "5.5 & Internet Tools Beta"
Case 4134: s = "5.5"
Case 4308: s = "5.5 Advanced Security Privacy Beta"
Case 4522: s = "5.5 Service Pack 1"
Case 4807: s = "5.5 Service Pack 2"
Case Else: s = "5.5 (Unknown)"
End Select
Case Else: s = GetIEVersionString()
End Select
Case 6
Select Case DVI.dwMinorVersion
Case 0
Select Case DVI.dwBuildNumber
Case 2462: s = "6 Public Preview (Beta)"
Case 2479: s = "6 Public Preview (Beta) Refresh"
Case 2600: s = "6"
Case 2800: s = "6 Service Pack 1"
Case 3663: s = "6 for Microsoft Windows Server 2003 RC1"
Case 3718: s = "6 for Windows Server 2003 RC2"
Case 3790: s = "6 for Windows Server 2003 (release)"
Case Else: s = "6 (Unknown build)"
End Select
Case Else: s = GetIEVersionString()
End Select
Case Else: s = GetIEVersionString()
End Select
GetIEVersionFriendlyName = "Internet Explorer " & s
End Function
Private Function GetIEVersion(DVI As DllVersionInfo) As Long
DVI.cbSize = Len(DVI)
Call DllGetVersion(DVI)
GetIEVersion = DVI.dwMajorVersion
End Function
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