Ejemplos usando el Api de windows para Visual basic

246 - Obtener versión del internet explorer

Función DllGetVersion

La función " Version " retorna un String con la versión del internet explorer instalada

Código fuente en el formulario

Option Explicit 'función DllGetVersion Private Declare Function DllGetVersion Lib "Shlwapi.dll" ( _ dwVersion As DllVersionInfo) As Long Private Type DllVersionInfo cbSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long End Type Public Function Version() As String 'UDT Dim T_VersionInf As DllVersionInfo ' tamaño del UDT T_VersionInf.cbSize = Len(T_VersionInf) ' llamada Call DllGetVersion(T_VersionInf) ' retorna la versión del internet explorer Version = "Internet Explorer " & _ T_VersionInf.dwMajorVersion & "." & _ T_VersionInf.dwMinorVersion & "." & _ T_VersionInf.dwBuildNumber End Function Private Sub Form_Load() MsgBox "Versión del IE " & _ vbNewLine & String(45, "-") & vbNewLine & _ Version(), vbInformation End Sub

Enlaces relacionados

Buscar en Recursos vb