FOTR'a Giriş Yapın

**E-Tardis** · 04-10-2017, 04:26 AM

Bu derste VB.net ile formunuzu Windows'un başlangıcında çalıştırılmasını sağlamak üzere bir çalışma yapacağız.

1 Checkbox

Kod:

Kod:

Imports Microsoft.Win32
Public Class Form1
    Private Sub addcurrentkey(ByVal name As String, ByVal path As String)
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
        key.SetValue(name, path)
    End Sub
    Private Sub removecurrentkey(ByVal name As String)
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
        key.DeleteValue(name, False)
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            addcurrentkey("programadi", System.Reflection.Assembly.GetEntryAssembly.Location)

        Else
            removecurrentkey("programadi")
        End If
    End Sub
End Class