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 —
‘— 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
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
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
‘— 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
nama_folder_program = app.EXEName
if status = True thens
‘Menulis keRegistri
CreateStringKey “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\” & nama_Folde_program & , “” & letak & “”
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
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
‘Buat 2 commandButton pada form
Private sub
commandStartUpOn_Click()
StartUpOn True
end sub
StartUpOn True
end sub
Private sub commandStartUpOff()
startUpOn False
end sub
startUpOn False
end sub
‘Tambahan, Jika ingin merubah
RegisterOwner & RegistrerOrganization gunakan kode dibawah ini
‘tambahkan pada modul dibawah modul startup
‘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
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
‘contoh: pada saat form dijalankan
Private sub form_load()
dim myOrganization as string
dim myOwner as string
dim myOrganization as string
dim myOwner as string
myOrganization = “Organisasiku”
myOwner = “Namaku”
myOwner = “Namaku”
CreateKey
“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\RegisteredOrganization”, myOrganization
CreateKey “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, myOwner
CreateKey “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, myOwner
end sub
‘— end of code —