Descobrindo a versão do Internet Explorer

Existem duas funções que permitem descobrir qual a versão do Navegador Internet Explorer esta instalado em uma máquina. Isto pode ser útil em alguns casos.

Para retornar o número da versão usada temos a função : IEVersion. Ela retorna um número indicando a versão do navegador. Assim se retornar o número 5 significa que o navegador é o Internet Explorer 5

A outra função é a IEVersionString que retorna o nome do navegador e o número da versão.Assim para o Internet Explorer 5 teríamos o seguinte retorno: "Internet Explorer 5.0.2614"

Vejamos um exemplo de como usar essas funções:

  1. Inicie o VB e crie um projeto padrão.
  2. No formulário padrão insira um botão de comando 
  3. Insira o seguinte código no formulário do seu projeto:
General Declarations 

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

Public Function IEVersion() As Long
 
 Dim VersionInfo As DllVersionInfo
 VersionInfo.cbSize = Len(VersionInfo)

 Call DllGetVersion(VersionInfo)

 IEVersion = VersionInfo.dwMajorVersion

End Function

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

Private Sub Command1_Click()
    MsgBox IEVersion
    MsgBox IEVersionString
End Sub

Para exibir a versão basta chamar as funções IEVersion e IEVersionString. 

Até a próxima dica...