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.