detectar version del Internet Explorer...

[gbrlz]

Estaba buscando algun codigo para detectar la version del IE y me encontré con el siguiente:

Código [Seleccionar] Expandir

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

Public Function IEVersionLong() As String
Dim udtVersionInfo As DllVersionInfo
udtVersionInfo.cbSize = Len(udtVersionInfo)
Call DllGetVersion(udtVersionInfo)
IEVersionLong = "Internet Explorer " & _
udtVersionInfo.dwMajorVersion & "." & _
udtVersionInfo.dwMinorVersion & "." & _
udtVersionInfo.dwBuildNumber
End Function

Private Sub Form_Load()
Dim udtVersionInfo As DllVersionInfo
Label1 = IEVersionLong
Label1.AutoSize = True
End Sub



Pero me dice que tengo la version 6.0 ...xx cuando tengo IE 7 
Alguien tiene algo que sirva por ahí?. Thanks.

[Mad Antrax]

Aquí está:

Código (vb) [Seleccionar] Expandir


    Set WShell = CreateObject("WScript.Shell")
    Reg = WShell.RegRead("HKLM\Software\Microsoft\Internet Explorer\Version")
    MsgBox Reg


[gbrlz]

Excelente, no se me había ocurrido sacarla leyendo el registro jeje, muchas gracias

[Dynamique]

A mi con el codigo de MadAntrax, me sigue diciendo que tengo la version 6, en vez de la 7

[Mad Antrax]

A mi con el codigo de MadAntrax, me sigue diciendo que tengo la version 6, en vez de la 7

Jorlz, y no será que tienes al versión 6 realmente instalada xD (es coña)

Pues es curioso, porque en esa clave está la versión del Internet Explorer

[Dynamique]

Si originalmente esta instalada la 6, pero al instalar la 7, supongo q para esa clave del registro pillara la del primer navegador instalado

Edito:    Tengo la 6, fue un lapsus ... WTF