VB: Membaca dan menulis nilai registry

Kali ini kami akan menjelaskan cara membaca nilai registry dan menulis nilai registry. Cukup berguna untuk mengedit registry


Kategori: Visual Basic
Tingkat: Mudah
Waktu: 15-30 Menit



1. Bukalah Visual Basic 2008 dengan Run as Administrator, lalu buatlah project baru

Ini dilakukan agar program kita bisa memiliki ijin mengedit dan membaca registry.

2. Bentuklah form dengan nama seperti ini:

3. Selanjutnya masuk ke kode, klik cmdwrite 2 kali, atau klik form 2 kali
Di atas Public Class Form1

ketikkan Imports Microsoft.Win32

Seperti ini:

4. Saat ini buatlah resgistry baru.

- Buka Registry editor, dengan cara masuk run, lalu ketik regedit

- Masuklah ke HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System

- Klik kanan pada folder System, lalu pilih New > Key, lalu beri nama Latihan. (Akan muncul Folder baru)

- Pilih folder Latihan, lalu klik kanan, pilih New > String Value, beri nama Latihanlah

5. Selanjutnya masukkan kode untuk cmdwrite_click dengan format

Registry.SetValue ("Alamat", "Nama", Nilai)

Jadi untuk kali ini tulis:

Registry.SetValue ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Latihan", "Latihanlah", txtwrite.text)

Maksudnya agar nilai registry Latihanlah adalah yang kita tulis di txtwrite

6. Lalu untuk cmdread_click, fomatnya adalah

txtread.text = Registry.GetValue ("Alamat", "Nama", Nothing)

Jadi untuk kali ini tulis:

txtread.text = Registry.GetValue ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Latihan", "Latihanlah", Nothing)

7. Selesai! Saatnya dicoba, Tekan F5

Masukkan kata2 di txtwrite, misal "halo apa kabar???"

Lalu tekan write, sekarang lihat registry editor,

pilih folder lain (terserah) lalu pilih kembali folder Latihan (Ini utnuk me-refresh)

Value Lathihanlah akan menjadi "halo apa kabar???" (Tanpa tanda kutip)

Sekarang cobalah tekan cmdread, maka txtread akan berisi "halo apa kabar???" (Tanpa tanda kutip)

Bagaimana? Bisa kan?

Tolong beri komentar ya.. Terima Kasih

Posted in: All,Visual Basic