Forma bi tane checkbox, bi tane label, bitane textbox, bitane de data nesnesi koyun.
bi tane veritabanı oluşturun(access) adınıda sabit.mdb yapın.bu veritabanında bi tane tablo oluşturun adını tbl_kontrol yapın.Bu tabloda bi tane alan oluşturun adını da windows_acilis yapın.
text1 nesnesi data1'e bağlayın.
label'in captionuna "Bilgisayar her açıldığında program çalışsın" yazın.
Bu veritabanı programınızla aynı klasörde olsun.
'''''''''''''''''''''''''''''BİTTİ''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Check1_Click()
If Check1.Value = 0 Then
Text1.Text = "1"
End If
If Check1.Value = 1 Then
Text1.Text = "2"
End If
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
If Text1.Text = "1" Then
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, "" & "" & "" & ""
End If
If Text1.Text = "2" Then
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End If
End Sub
Private Sub Form_Activate()
If Text1.Text = "1" Then
Check1.Value = 0
End If
If Text1.Text = "2" Then
Check1.Value = 1
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\sabit.mdb"
Data1.RecordSource = "tbl_kontrol"
Text1.DataField = "windows_acilis"
End Sub