Descobrindo a versão do Internet Explorer

Visual Basic, VB .NET, ASP, Active X, Access, SQL Server

Descobrindo a versão do Internet Explorer


Usando a função da API DllGetVersion, você pode descobrir a versão do Internet Explorer presente na máquina do usuário da sua aplicação. 

Primeiramente, é necessário declarar o tipo de dados DllVersionInfo usado na chamada à função DllGetVersion. Após ser chamada, a função armazenará nos membros de DllVersionInfo as informações de versão do Internet Explorer. Veja abaixo as declarações necessárias:

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

Pode-se retornar o número da versão com a seguinte função:

Public Function IEVersion() As Long

    Dim VersionInfo As DllVersionInfo
    VersionInfo.cbSize = Len(VersionInfo)

    Call DllGetVersion(VersionInfo)

    IEVersion = VersionInfo.dwMajorVersion

End Function

Para retornar uma string com as informações mais detalhadas, você pode usar a seguinte função:

Public Function IEVersionString()

    Dim VersionInfo As DllVersionInfo
    VersionInfo.cbSize = Len(VersionInfo)

    Call DllGetVersion(VersionInfo)

    IEVersionString = "Internet Explorer " & VersionInfo.dwMajorVersion & "." & _
    VersionInfo.dwMinorVersion & "." & _
    VersionInfo.dwBuildNumber

End Function