Cara Membuat Run On StartUp Program

Kali Ini Saya Akan Membagikan Tehnik Atau Cara Membuat Run On StartUp Program Dari Visual Basic 60 Yang Disingkat VB6

Ini Fungsional Untuk Membuat Key Value StartUp Di Regedit
Private Sub Form_Load()

On Error Resume Next
s = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, s

End Sub

Ini Fungsional Menghapus Key Value StartUp Di Regedit
On Error Resume Next
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName

Dan Ini Fungsional Untuk Mengetahui Apakah Key Value StartUp Diregedit Masih ada atau Tidak

Function OnStartup() As Boolean
On Error GoTo Ero
s = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
Set Reg = CreateObject("WScript.Shell")
OnStartup = (Reg.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName) = s)

Exit Function
Ero:
OnStartup = False
End Function

Nah Jika Anda Ingin Membuat Program Berjalan Saat StartUp Menggunakan Check Box
Begini(Jika Nama Check Boxnya Cek1)
Ini Codenya

Private Sub Cek1_Click()

On Error Resume Next

If Cek1.Value = 1 Then
s = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, s

Else

Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
End If

End Sub

Ini Hanya Tutorial Bagi Pemula VB
Jadi Yang Sudah Merasa Master Harap Dimaklumi Tutorial Ini :)