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

Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE | VB-Versionen: VB2005, VB2008

04.01.10

Version des Internet Explorers ermitteln Zwei Funktionen, mit denen sich die Versionsnummer des Internet Explorers ermitteln lässt.
Autor: Dieter Otter	Bewertung:	Views: 10.978
www.tools4vb.de	System: 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.

Nachfolgend zwei Funktionen: die erste Funktion gibt die Versionsnummer als String zurück, die zweite Funktion hingegen als Version-Objekt.

Imports Microsoft.Win32
...

''' <summary>
''' Ermittelt die Versions-Nr. des Internet Explorers
''' </summary>
''' <returns>Versions-Nr. als String</returns>
Public Function IEVersion() As String
  Dim sVersion As String = ""
 
  ' IE-Version aus Registry auslesen
  Using RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey( _
    "Software\Microsoft\Internet Explorer", False)
 
    If Not IsNothing(RegKey) Then
      sVersion = CType(RegKey.GetValue("Version"), String)
    End If
  End Using
 
  Return sVersion
End Function

''' <summary>
''' Ermittelt die Versions-nr. des Internet Explorers
''' </summary>
''' <returns>Version-Objekt</returns>
Public Function IEVersionInfo() As Version
  Dim sVersion As String = IEVersion()
  If sVersion.Length > 0 Then
    Return New Version(sVersion)
  Else
    Return Nothing
  End If
End Function

Beispiel:
Zum Ausführen Ihrer Anwendung wird der IE7 oder höher benötigt.

Dim IEVer As Version = IEVersionInfo()
If IsNothing(IEVer) OrElse IEVer.Major < 7 Then
  MsgBox("Die Anwendung erfordert den IE in der Version 7 oder höher!")
End If