Startenseite ändern - (Firefox, IE, MS-Edge) Hier finden Sie Code, um mit VB.NET die Startseite von verschiedenen Browser zu ändern.
Autor:   Samir Ben Kheder	Bewertung:     [ Jetzt bewerten ]	Views:  701
www.bk-software.de	System:  Win7, Win8, Win10, Win11	kein Beispielprojekt

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit diesem Code können Sie von Firefox/ Internet-Explorer/ MS-Edge die Startseite verändern. Nach dem erfolgreichen ändern, wird der Browser mit der neuen Startseite geöffnet.

Der Code wurde unter Windows 11 Pro 64bit und dem .NET Framework 4.5 getestet.
Ich hoffe, dass dieser Tipp euch weiterbringen wird.

Option Strict On
Imports System.IO
Imports Microsoft.Win32
Public Class Form5

#Region "Firefox"
  Private Sub StartseiteFestlegenFirefox(url As String)
    Try
      Dim FirefoxProfil As String = Suche_FirefoxProfil()
      If FirefoxProfil <> "" Then
        Dim userJS_Pfad As String = Path.Combine(FirefoxProfil, "user.js")
        Using writer As New StreamWriter(userJS_Pfad, True)
          writer.WriteLine(String.Format("user_pref(""browser.startup.homepage"", ""{0}"");", url))
        End Using
        Process.Start("firefox.exe")
 
        MessageBox.Show("Die Startseite wurde erfolgreich geändert!")
      Else
        MessageBox.Show("Firefox wurde nicht gefunden...")
      End If
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try
  End Sub
 
  Private Function Suche_FirefoxProfil() As String
    Dim FirefoxAppData As String =
      Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "MozillaFirefoxProfiles")
 
    If Directory.Exists(FirefoxAppData) Then
      Dim profil() As String = Directory.GetDirectories(FirefoxAppData)
      For Each inhalt As String In profil
        If File.Exists(Path.Combine(inhalt, "prefs.js")) Then
          Return inhalt
        End If
      Next 
    End If
 
    Return Nothing
  End Function
 
  Private Sub btnFirefox_Click(sender As Object, e As EventArgs) Handles btnFirefox.Click
      StartseiteFestlegenFirefox(Me.txtFirefoxStartseite.Text)
  End Sub
#End Region

#Region "Internet Explorer"
  Private Sub btnIE_Click(sender As Object, e As EventArgs) Handles btnIE.Click
    Dim startPage As String = Me.txtIEStartseite.Text
    If startPage = String.Empty Then startPage = "about:blank"
    Try
      ' Öffne den Registrierungsschlüssel für den Internet Explorer
       Using regKey As RegistryKey = Registry.CurrentUser.OpenSubKey("SoftwareMicrosoftInternet ExplorerMain", True)
       If regKey IsNot Nothing Then
         ' Ändere den Wert der Start Page
         regKey.SetValue("Start Page", startPage)
         Process.Start("iexplore.exe")
 
         MessageBox.Show("Die Startseite wurde erfolgreich geändert!")
       Else
         MessageBox.Show("Internet Explorer wurde nicht gefunden...")
       End If
     End Using
   Catch ex As Exception
     MessageBox.Show(ex.Message)
   End Try
  End Sub
#End Region

#Region "MS-Edge"
  Private Sub btnMSEdge_Click(sender As Object, e As EventArgs) Handles btnMSEdge.Click
    Dim startPage As String = Me.txtMSEdge.Text
    Try
      Dim processStartInfo As New ProcessStartInfo()
      processStartInfo.FileName = "cmd.exe"
      processStartInfo.Arguments = $"/c start microsoft-edge:{startPage}"
      Dim process As Process = Process.Start(processStartInfo)
 
      MessageBox.Show("Die Startseite wurde erfolgreich geändert!")
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try
  End Sub
#End Region

End Class