Test Foro de elhacker.net SMF 2.1

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

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.

Aquí está:


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


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

Cita de: En3rgy en 12 Enero 2008, 23:34 PM

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