vb@rchiv · Tipps & Tricks · Version des Internet Explorers ermitteln

Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE | VB-Versionen: VB4, VB5, VB6

28.08.02

Version des Internet Explorers ermitteln Mal eben kurz in der Registry nachschauen und die Version des aktuell installierten Internet Explorers auslesen :-)
Autor: Dieter Otter	Bewertung:	Views: 13.231
www.tools4vb.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Sie möchten wissen, welche Version des Internet Explorers installiert ist?

Na dann schauen Sie doch einfach mal in der Registry nach - unter dem Schlüssel HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer finden Sie den Eintrag Version.

Das ganze lässt sich dann aus VB heraus wie folgt abfragen:

Option Explicit
 
' benötigte API's für den Registry-Zugriff
Private Declare Function RegOpenKey Lib "advapi32.dll" _
  Alias "RegOpenKeyA" ( _
  ByVal hKey As Long, _
  ByVal lpSubKey As String, _
  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 = &H80000002
Private Const REG_SZ = 1

Nachfolgende Funktion ermittelt dann die Version des installierten Internet Explorers. Falls der IE nicht installiert ist, wird eine leere Zeichenfolge zurückgegeben.

Public Function GetIEVersion() As String
  ' installierte Version des IE ermitteln
  Dim sPath As String
  Dim sKey As String
  Dim sBuffer As String
  Dim hKey As Long
  Dim lResult As Long
  Dim nSize As Long
 
  ' Hier befindet sich der Eintrag in der Registry
  sPath = "Software\Microsoft\Internet Explorer"
  sKey = "Version"
 
  ' Registry-Zweig öffnen
  If RegOpenKey(HKEY_LOCAL_MACHINE, sPath, hKey) = 0 Then
 
    ' Größe des Wertes ermitteln
    lResult = RegQueryValueEx(hKey, sKey, 0, _
      REG_SZ, ByVal 0, nSize)
 
    If lResult = 0 Then
      ' Wert auslesen
      sBuffer = String(nSize, Chr$(0))
      If RegQueryValueEx(hKey, sKey, 0, 0, _
        ByVal sBuffer, nSize) = 0 Then
 
        GetIEVersion = Left$(sBuffer, nSize)
      End If
 
    End If
 
    ' Registry schließen
    RegCloseKey hKey
  End If
End Function

Aufrufbeispiel:

Dim sVersion As String
 
sVersion = GetIEVersion()
If sVersion = "" Then
  MsgBox "Kein IE installiert!"
Else
  MsgBox "IE-Version: " & sVersion
End If