İnternet Açılış Sayfasını Değiştirme

İnternet Explorer açılış sayfasını TextBox a gireceğimiz adres ile değiştireceğiz. Şekil 1

Şekil 1

Not: Firefox ta geçerli değildir.

Form1.vb

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Text = "http://www."

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim acilissayfasi As Microsoft.Win32.RegistryKey

            acilissayfasi = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)

            acilissayfasi.SetValue("Start Page", TextBox1.Text)

            MessageBox.Show("Açılış sayfası" & vbCrLf & TextBox1.Text & vbCrLf & "olarak değiştirildi.", "Bilgi Mesajı", MessageBoxButtons.OK)

        Catch ex As Exception

            MessageBox.Show("Hata oluştu.", "Bilgi Mesajı", MessageBoxButtons.OK)

        End Try

    End Sub

    End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN