Windows startup dengan Vb.Net

halooo rekan rekan milist yang saya cintai :)

Ada yang tau caranya agar applikasi yang kita buat bisa masuk ke startup windows?

Pertanyaan diatas dari salah satu anggota Milist dotnet@netindonesia.net
Emang sich sudah ada yang menjawab tapi pake bahasa inggris dan kalau ga salah C#, artikel kali ini akan membahas bagaimana membuat sintaks dengan Vb.Net untuk menjalankan program kita pada saat windows startup.

Sebelumnya pastikan kita sudah menginport win32 terlebih dahulu, seperti dibawah

Imports Microsoft.Win32
Berikut adalah sintaks untuk mengaktifkan program kita pada saat start up.

Dim AppName, AppPath As String
AppName = Application.ProductName'Nama aplikasi
AppPath = Application.StartupPath'Alamat (Path) aplikasi

Dim oReg As RegistryKey = Registry.CurrentUser
oReg=Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
oReg.SetValue(AppName, AppPath & "\" & AppName + ".exe")
oReg.Close()


Sedangkan untuk menonaktifkan adalah seperti sintaks dibawah ini

Dim oReg As RegistryKey = Registry.CurrentUser
oReg = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
oReg.DeleteValue(AppName)
oreg.Close()

Sedangkan untuk mengecek value startup pada registry apakah ada atau tidak adalah seperti dibawah ini

Dim AppName, AppPath As String
AppName = Application.ProductName
AppPath = Application.StartupPath

Dim oReg As RegistryKey = Registry.CurrentUser
oReg = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
If oReg.GetValue(AppName) Is Nothing Then
MenuItem6.Checked = False
Else
MenuItem6.Checked = True
End If

Untuk mengecek program kita sudah benar-benar akan aktif pada saat windows start up, bisa dilihat di Run>msconfig
Pada tab Startup, nama program dan path akan terlihat disana.

Note : Sintaks diatas merupakan untuk Current User, jika untuk seluruh user tinggal ubah Registry.CurrentUser menjadi Registry.LocalMachine

Wassalam