Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE | VB-Versionen: VB2005, VB2008 | 30.06.10 |
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: | Views: 8.407 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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