vb6中的WebBrowser控件怎么知道用的是那个版本的ie不支持WebBrowser1Version

在VB6中，WebBrowser控件的版本信息可以通过检查WebBrowser控件所依赖的mshtml.dll文件的版本号来获取。您可以使用以下代码来获取WebBrowser控件所依赖的mshtml.dll文件的版本号：

Private Declare Function GetFileVersion Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long
Private Declare Function GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long
Private Declare Function VerQueryValue Lib "version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Any, puLen As Long) As Long

Private Sub GetIEVersion()
    Dim sFileName As String
    Dim lHandle As Long
    Dim lSize As Long
    Dim lData As Long
    Dim lVerMajor As Long
    Dim lVerMinor As Long
    Dim lVerBuild As Long
    Dim lVerPrivate As Long
    Dim lVerLen As Long
    Dim lVerPointer As Long
    Dim sVerBuffer As String
    
    '获取mshtml.dll文件路径
    sFileName = Environ("SystemRoot") & "\System32\mshtml.dll"
    
    '获取mshtml.dll文件的版本信息大小
    lSize = GetFileVersion(sFileName, lHandle)
    If lSize > 0 Then
        '申请内存
        ReDim bVerInfo(lSize - 1) As Byte
        
        '获取mshtml.dll文件的版本信息
        GetFileVersionInfo sFileName, 0&, lSize, bVerInfo(0)
        
        '获取mshtml.dll文件的版本号
        VerQueryValue bVerInfo(0), "\", lVerPointer, lVerLen
        sVerBuffer = Space(lVerLen)
        CopyMemory ByVal StrPtr(sVerBuffer), ByVal lVerPointer, lVerLen
        VerQueryValue bVerInfo(0), "\VarFileInfo\Translation", ByVal VarPtr(lData), lVerLen
        VerQueryValue bVerInfo(0), "\" & Hex(lData) & "\FileVersion", ByVal VarPtr(lVerPointer), lVerLen
        lVerMajor = lVerPointer \ 65536
        lVerMinor = lVerPointer Mod 65536 \ 256
        lVerBuild = lVerPointer Mod 256
        VerQueryValue bVerInfo(0), "\" & Hex(lData) & "\ProductVersion", ByVal VarPtr(lVerPointer), lVerLen
        lVerMajor = lVerPointer \ 65536
        lVerMinor = lVerPointer Mod 65536 \ 256
        lVerBuild = lVerPointer Mod 256
        
        '输出版本号
        MsgBox "IE Version: " & lVerMajor & "." & lVerMinor & "." & lVerBuild
    End If
End Sub

这段代码将获取WebBrowser控件所依赖的mshtml.dll文件的版本号，并将其显示在一个消息框中。您可以使用此代码来确定WebBrowser控件使用的是哪个版本的Internet Explorer