Add, Edit, Delete Windows Registry Dengan VB 06

Masih tentang registry windows, kali ini kita akan mempelajari cara mengecek, menambahkan, mengedit dan cara menghaps registry dengan program visual basic 06.

Oke, Form yang akan kita buat adalah seperti dibawah ini

Tampilan GUI Program Edit Registry

dan dibawah ini adalah modul yang harus di download untuk persiapan pembuatan program registry yang akan kita buat

clsRegistryAccess.cls

Setelah mendownload class yang telah kita butuhkan dan memasukan pada proyek kita, langkah penting yang harus dilakukan adalah installasi class yang dapat kita lakukan dengan mengetikkan kode dibawah ini pada code form kita, letakan di paling atas

Dim reg As New clsRegistryAccess

Oke, mari kita mulai dengan button yang berada pada frame Check Registry Value yang disini aku beri nama cmdRegVal. Button ini berfungsi untuk mengecek dan membaca registry. Dalam button ini berisikan kode seperti di bawah ini

Private Sub cmdRegVal_Click()
    Dim Val As String
    Dim Key As String
        
    Key = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows"
    
    If (reg.ValueExists(Key, "Programs")) Then
    
        Val = reg.ReadString(Key, "Programs")
        
        If Val <> vbNullString Then
            lblCekVal.Caption = "Executable program is : " & Val
        Else
            lblCekVal.Caption = "This string have no value"
        End If
    Else
        MsgBox "Value is not exist"
    End If
End Sub

 Oke, Penjelasan dari code tersebut begini. Pertama kita membuat variabel yang diberi nama Val dan Key, Key adalah variabel yang digunakan untuk menimpan path yang akan kita tuju dan Val adalah nama dari KeyValue yang akan kita baca isinya.

Seletah kita set isi dari variabel key, program akan melakukan pengecekan Value, jika value dari lokasi yang dituju bukan kosong maka, Kita akan set val dengan membaca string dari lokasi yang kita tuju. Jika val bukan kosong meka program akan menampilkan pesan dalam label yang sudah dibuat, jika tidak maka program akan menampilkan pesan bahwa string tidak mempunyai isi.

Dari kode diatas kita dapat belajar penggunaan dari class clsRegistryAccess dapat berupa pengecekan value dan readSring.

Pembacaan Registry

Selanjutnya kita belajar tentang pembuatan lokasi atau registry key. Pada Frame Create Registry Key terdapat tombol yang ku beri nama cmdCreateKey dan akan berfungsi membuat key dalam registry. Dalam button tersebut terdapat kode

Private Sub cmdCreateKey_Click()
    Dim Key As String
    
    Key = "HKEY_CURRENT_USER\Software\RobzLabz"
    
    If Not reg.KeyExists(Key) Then
        reg.CreateKey (Key)
        lblCreateKey.Caption = "Status : Created"
    Else
        MsgBox "Key Sudah Ada"
    End If
End Sub

Button ini akan bekerja memeriksa apakah key sudah ada, jika sudah ada maka program akan menampilkan pesan bahwa key sudah ada, jika key belum ada maka key akan dibuat dengan fungsi create key

Pada code ini kita belajar cara memeriksa suatu key sudah ada atau tidak, dan cara membuat key

Selanjutnya kita lanjut pada frame Write KeyValue yang di dalamnya ada button dengan nama cmdWrite. Nah, fungsi dari button ini adalah membuat Value dalam sebuah key dengan type DWORD, Binary dan String Value.

Private Sub cmdWrite_Click()
    Dim Key As String
    
    lblKeyValue = "Status : " & vbNewLine
    Key = "HKEY_CURRENT_USER\Software\RobzLabz"
    
    If reg.KeyExists(Key) Then
        With reg
            If .WriteBinary(Key, "Create Binary", "Binary :)") <> 0 Then
                lblKeyValue = lblKeyValue & "Binary Created" & vbNewLine
            Else
                lblKeyValue = lblKeyValue & "Binary not Created" & vbNewLine
            End If
            
            If .WriteDWORD(Key, "Create DWORD", 0) <> 0 Then
                lblKeyValue = lblKeyValue & "DWORD Created" & vbNewLine
            Else
                lblKeyValue = lblKeyValue & "DWORD not Created" & vbNewLine
            End If
            
            If .WriteString(Key, "Create String", "String") <> 0 Then
                lblKeyValue = lblKeyValue & "String Created" & vbNewLine
            Else
                lblKeyValue = lblKeyValue & "String not Created" & vbNewLine
            End If
        End With
    Else
        MsgBox "Key is not Exist"
    End If
End Sub

Sama seperti code sebelumnya, code ini juga memastikan bahwa key sudah ada. Ketike key sudah exist maka program akan membuat 3 tipe value yaitu DWORD, String dan Binnary.

Pada Button ini kita belajar lagi tentang pengecekan key dan pelajaran yang baru adalah pembuatan beberapa value

Pembuatan KeyValue Sukses

Penampakan Pembuatan Key dan KeyValue

 Setelah kita mengecek, membaca dan membuat registry sekarang saatnya membuang registry yang sudah ada. Oke selanjutnya adalah frame Deleting Key yang terdapat button cmdDelete dan di dalam button tersebut terdapat code seperti ini

Private Sub cmdDelete_Click()
    Dim Key As String
    
    Key = "HKEY_CURRENT_USER\Software\RobzLabz"
    
    If reg.KeyExists(Key) Then
        With reg
            If .KillValue(Key, "Create Binary") <> 0 Then
                MsgBox "Deleted"
            Else
                MsgBox "Something Wrong :/ "
            End If
        End With
    Else
        MsgBox "Key not exist"
    End If
End Sub

Dalam kode ini juga memastikan bahwa lokasi key adalah exist dengan fungsi KeyExists, selanjutnya yang dilakukan adalah membuang registry dengan memanggil fungsi KillValue. Ketika sukses membuang KeyValue maka akan menampilkan pesan deleted dan ketike fail maka akan menampilkan pesan something wrong.

Download Project Add, Edit Delete Registry

Oke, Selamat belajar
You Probably Success