Visual Basic Foro

General => Códigos - Aportes - Recursos => Mensaje iniciado por: LeandroA en Agosto 24, 2012, 04:32:21 am

Título: conocer la version de IE
Publicado por: LeandroA en Agosto 24, 2012, 04:32:21 am

Codigo para saber la version de Internet Explorer.

Código: (vb) [Seleccionar]

Option Explicit

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Const KEY_READ = &H20019

Public Function GetIEVersion() As String
    Dim lngHandle As Long, lngcbData As Long
    Dim strRet As String

    If RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Internet Explorer", 0&, KEY_READ, lngHandle) = 0 Then
        lngcbData = 255
        strRet = Space(lngcbData)
        If RegQueryValueEx(lngHandle, "version", 0&, 1&, ByVal strRet, lngcbData) = 0 Then
            GetIEVersion = Left$(strRet, lngcbData)
        End If
        Call RegCloseKey(lngHandle)
    End If

End Function