Startseite des IE auslesen und neu setzen Zwei Funktionen, mit denen man die aktuelle Startseite des IE auslesen und ggf. ändern und neu speichern kann.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  8.819
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Immer wenn Sie den Internet Explorer aufrufen wird ja bekanntlich die in den Systemeinstellungen (Internet Explorer) festgelegte Startseite aufgerufen.

Die Startseite selbst wird in der Windows Registry gespeichert - und zwar im Schlüssel:
Software\Microsoft\Internet Explorer\Main\Start Page

Mit diesem "Wissen" ist es nun ein leichtes die Startseite des IE per VB-Code auszulesen und ggf. neu festzulegen.

Alles, was Sie brauchen sind nachfolgende zwei Funktionen:

''' <summary>
''' Gibt die URL der Startseite des Internet-Explorers zurück.
''' </summary>
Public Function IEGetStartPage() As String
  Dim sURL As String = CStr(My.Computer.Registry.GetValue( _
    "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\", "Start Page", ""))
 
  Return sURL
End Function

''' <summary>
''' Speichert die angegebene URL als neue Startseite des Internet Explorers
''' </summary>
''' <param name="sURL">Internet-Seite (URL)</param>
Public Function IESetStartPage(ByVal sURL As String) As Boolean
  Try
    My.Computer.Registry.SetValue( _
      "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\", _
      "Start Page", sURL, Microsoft.Win32.RegistryValueKind.String)
    Return True
  Catch ex As Exception
    Return False
  End Try
End Function

Der Aufruf aus dem Projekt erfolgt dann so:

' Startseite des IE auslesen
Dim sURL As String = IEGetStartPage()

' Neue Startseite festlegen
If IESetStartPage("http://www.vbarchiv.de") Then
  MsgBox("Eintrag erfolgreich geändert.", MsgBoxStyle.Information)
Else
  MsgBox("Startseite konnte nicht eingetragen werden.", MsgBoxStyle.Exclamation)
End If