Cara Mudah Menjalankan Aplikasi Pada Start Up

Di bawah ini merupakan cara yang mudah untuk menjalankan aplikasi pada saat startup. Pada dasarnya fungsi startup, hanyalah fungsi baca dan tulis ke dalam registy. Kodenya pendek, karena ia meminjam ActiveX Windows Script Host Object Model atau yang lebih dikenal dengan nama WSHOM.OCX.

Option Explicit 
 
Dim oWSHShell As New WshShell 
 
Private Function RegWrite(sKey As String, sFilepath As String) 
    oWSHShell.RegWrite sKey, sFilepath 
End Function 
 
Private Function RegDelete(sKey As String) 
    oWSHShell.RegDelete sKey 
End Function 

Contoh penggunaan fungsi di atas yang digunakan untuk menulis ke dalam registry

Private Sub Command1_Click() 
    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & _ 
    App.EXEName, App.Path & "\" & App.EXEName & ".exe" 
End Sub 

Contoh penggunaan fungsi di atas yang digunakan untuk menghapus entry yang terdapat dalam registry

Private Sub Command2_Click() 
    RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName 
End Sub