vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE   |   VB-Versionen: VB2010 - VB201520.04.24
Startenseite ändern - (Firefox, IE, MS-Edge)

Hier finden Sie Code, um mit VB.NET die Startseite von verschiedenen Browser zu ändern.

Autor:   Samir Ben KhederBewertung:     [ Jetzt bewerten ]Views:  700 
www.bk-software.deSystem:  Win7, Win8, Win10, Win11kein Beispielprojekt 

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

Dieser Tipp wurde bereits 700 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel