r@nger

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\CUR RENTVERSION\RUN\" & App.EXEName, "" & "" & "" & ""
End If

If Text1.Text = "2" Then
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\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


ALINTIDIR

__________________
Geri döndüm