Membuat StartUp program dengan VB 6.0

 

Berikut ini adalah cara bagaimana membuat agak program bisa berjalan pada startup windows.

Cara membuat program berjalan pada startup

buat modul pada vb dengan nama mdlStartUp.
++++++++++++++++++++++++++++++++++++++++++

‘ketik pada module
‘— begin —

Public Sub DeleteKey(Folder As String)
On Error Resume Next
Dim b As Object
Set b = CreateObject(”Wscript.Shell”)
b.RegDelete Folder
End Sub

Public Sub CreateStringKey(Folder As String, value As String)
On Error Resume Next
Dim b As Object
Set b = CreateObject(”wscript.shell”)
b.RegWrite Folder, value, “REG_EXPAND_SZ”
End Sub

‘— end of modul‘ketik pada code form
‘— begin —’
Public sub StartUpOn(Status as boolean)
Dim letak As String
dim nama_folder_program as string

letak = App.Path & “\” & App.EXEName & “.exe”
nama_folder_program = app.EXEName

if status = True thens

‘Menulis keRegistri
CreateStringKey “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\” & nama_Folde_program & , “” & letak & “”

else

‘Menulis keRegistri
CreateStringKey “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run” & “\” & nama_folder_program ,””
DeleteKey “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run” & “\” & nama_folder_program

end if

end sub

‘— end of code —

‘pemanggilan
‘Buat 2 commandButton pada form

Private sub commandStartUpOn_Click()
StartUpOn True
end sub

Private sub commandStartUpOff()
startUpOn False
end sub

‘Tambahan, Jika ingin merubah RegisterOwner & RegistrerOrganization gunakan kode dibawah ini
‘tambahkan pada modul dibawah modul startup

‘— begin —
Public Sub CreateKey(Folder As String, value As String)
On Error Resume Next
Dim b As Object
Set b = CreateObject(”wscript.shell”)
b.RegWrite Folder, value
End Sub

‘— end of module

‘ketik pada form
‘contoh: pada saat form dijalankan

Private sub form_load()
dim myOrganization as string
dim myOwner as string

myOrganization = “Organisasiku”
myOwner = “Namaku”

CreateKey “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, myOrganization
CreateKey “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, myOwner

end sub

‘— end of code —

Referensi : http://kohimaru.wordpress.com/2008/06/05/membuat-startup-program/#more-90