Perintah Startup Visual Basic Perintah Startup Visual Basic

Okey.....Temen Pogrammer ku Semuanya...
Kode di Bawah ini adalah Kode untuk Start UP...


[ VB 6.0 ]
Untuk mengaktifkannya ketikkan :
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

Untuk menghapus / membatalkannya ketikkan :
On Error Resume Next
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName

Untuk mengetahui apakah sudah aktif di Startup atau belum gunakan fungsi ini :
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


[ VB .NET ]
Untuk mengaktifkannya ketikkan :
Dim Reg = CreateObject("WScript.Shell")
Reg.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & My.Application.Info.AssemblyName, Application.ExecutablePath)

Untuk menghapus / membatalkannya ketikkan :
On Error Resume Next
Dim Reg = CreateObject("WScript.Shell")
Reg.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & My.Application.Info.AssemblyName)

Untuk mengetahui apakah sudah aktif di Startup atau belum gunakan fungsi ini :
Function OnStartup() As Boolean
Dim Reg = CreateObject("WScript.Shell")
Try
OnStartup = (Reg.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & My.Application.Info.AssemblyName) = Application.ExecutablePath)
Catch
OnStartup = False
End Try
End Function


[ VB Script ]
Untuk mengaktifkannya ketikkan :

Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & WScript.ScriptName, WScript.ScriptFullName
Untuk menghapus / membatalkannya ketikkan :

On Error Resume Next
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & WScript.ScriptName