谁能告诉我怎么能在vb里面探测当前操作系统的浏览器是否是6.0？

Question

谁能告诉我怎么能在vb里面探测当前操作系统的浏览器是否是6.0？最好给出具体代码
我想应该不难
但是我还不会请大家指教

Answer 1

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 LongPublic Function GetIEVersion() As String
    Dim tDLLVerInfo As DLLVERSIONINFO
    Dim lMajor As Long, lMinor As Long, lBuild As Long
    Dim r As Long
    tDLLVerInfo.cbSize = Len(tDLLVerInfo)
    r = DllGetVersion(tDLLVerInfo)
    If r = 0 Then
       With tDLLVerInfo
            lMajor = .dwMajorVersion
            lMinor = .dwMinorVersion
            lBuild = .dwBuildNumber
       End With
       GetIEVersion = lMajor & "." & lMinor & "." & lBuild
    Else
        GetIEVersion = ""
    End If
End Function
'调用
Private Sub Form_Load()
    MsgBox "IE Ver：" & GetIEVersion
End Sub