Bilgisayar her açildiginda program çalissin

sWaGg€r

27.06.2008 23:23:00

'Her programa eklenebilir
Private Sub Check1_Click()
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
If Check1.Value = 0 Then
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, "" & "" & "" & ""

End If

If Check1.Value = 1 Then
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

End If

End Sub