Wednesday, April 27, 2011

Membuat Project VB.NET berjalan di StartUp

Coding ini sebenarnya aku dapatkan dari sebuah forum visual basic, hanya saja karena forum itu berbahasa Inggris jadi aku tulis ulang saja dalam bahasa Indonesia. Coding ini dibuat oleh seorang forumer yang menyebut dirinya MrVBDude.

Berikut adalah bentuk coding-nya.

Declaration (Deklarasi)
No Declaration (Tidak dibutuhkan deklarasi apapun).

Code (Kode-nya)
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim regKey As Microsoft.Win32.RegistryKey ‘Mendeklarasikan registry
Dim KeyName As String = "MySampleApplication" ‘Mendeklarasikan nama Key
Dim KeyValue As String = "C:\test\test.exe" ‘Mendeklarasikan nilai Key

regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) ‘Membuka tempat Key Registry akan disimpan

If regKey.GetValue(KeyName) = Nothing Then
'Jika belum ditemukan KeyName? Akan didapat sebuah nilai
MsgBox("No Program of this name found..!")
regKey.SetValue(KeyName, KeyValue, Microsoft.Win32.RegistryValueKind.String)
MsgBox("key " & KeyName & " has been created")
End If

End Sub
End Class

Selamat mencoba ya teman – teman.

No comments:

Post a Comment

Thanks for your comment.

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites More