Registry Tools : Source Code

Kemaren2 kan udah pernah diposting tentang Regsitry Tools yang dibuat pake Visual Basic 6(VB6).Nah,kali ini bakal dibongkar gimana caranya buat yang begituan,,buat para master tolong dibenerin yah kalo ada yang salah,,ni khusus buat newbie yang baru belajar aja,buat para master jga blh nonton kok,comment jga jgn lupa yah..
Buat temen2 yang pingin buat sendiri program yang seperti itu,nih,gwa kasih Source Codenya + file Exenya.Buat yang pingin manual,ngetik sendiri kodenya,ni dia listing kodenya (Source Codenya).
(Link download ada di akhri postingan)
Maaf ni,,masih acak2an.,yang buat newbie jga si..

Private Sub Check15_Click() 'checkbox untuk check all
If Check15.Value = 1 Then
Check1.Value = 1
Check2.Value = 1
Check3.Value = 1
Check4.Value = 1
Check5.Value = 1
Check6.Value = 1
Check7.Value = 1
Check9.Value = 1
Check10.Value = 1
Check13.Value = 1
Check14.Value = 1
Else
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Check7.Value = 0
Check9.Value = 0
Check10.Value = 0
Check13.Value = 0
Check14.Value = 0

End If
End Sub



Private Sub Command1_Click() 'command enable

Dim regrun As Object
Dim a, x, b, c, d As String
Set regrun = CreateObject("Wscript.shell")
a = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies"

If Check1.Value = 1 Then regrun.regwrite a & "\Explorer\NoRun", 0, "REG_DWORD"
If Check2.Value = 1 Then regrun.regwrite a & "\System\DisableTaskMgr", 0, "REG_DWORD"
If Check3.Value = 1 Then regrun.regwrite a & "\System\DisableRegistrytools", 0, "REG_DWORD"
If Check3.Value = 1 Then regrun.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
If Check4.Value = 1 Then regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD"
If Check5.Value = 1 Then regrun.regwrite a & "\Explorer\NoFolderOptions", 0, "REG_DWORD"
If Check6.Value = 1 Then regrun.regwrite a & "\Explorer\NoViewContextMenu", 0, "REG_DWORD"
If Check7.Value = 1 Then regrun.regwrite a & "\Explorer\NoDesktop", 0, "REG_DWORD"
If Check9.Value = 1 Then regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 1, "REG_DWORD"
If Check10.Value = 1 Then regrun.regdelete a & "\Explorer\NoDriveTypeAutoRun"
If Check13.Value = 1 Then regrun.regwrite a & "\Explorer\NoFind", 0, "REG_DWORD"
If Check14.Value = 1 Then regrun.regwrite a & "\System", 0, "REG_DWORD"

x = MsgBox("Beberapa Perubahan dapat terjadi setelah komputer di log off.Log Off sekarang?", vbYesNo, "Registry Tools")
If x = vbYes Then Shell ("shutdown -l") Else Command1.SetFocus


End Sub

Private Sub Command2_Click() 'command disable
Dim regrun As Object
Dim a, b, c, d, x As String
Set regrun = CreateObject("Wscript.shell")
a = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies"

If Check1.Value = 1 Then regrun.regwrite a & "\Explorer\NoRun", 1, "REG_DWORD"
If Check2.Value = 1 Then regrun.regwrite a & "\System\DisableTaskMgr", 1, "REG_DWORD"
If Check3.Value = 1 Then regrun.regwrite a & "\System\DisableRegistrytools", 1, "REG_DWORD"
If Check3.Value = 1 Then regrun.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
If Check4.Value = 1 Then regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 2, "REG_DWORD"
If Check5.Value = 1 Then regrun.regwrite a & "\Explorer\NoFolderOptions", 1, "REG_DWORD"
If Check6.Value = 1 Then regrun.regwrite a & "\Explorer\NoViewContextMenu", 1, "REG_DWORD"
If Check7.Value = 1 Then regrun.regwrite a & "\Explorer\NoDesktop", 1, "REG_DWORD"
If Check9.Value = 1 Then regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0, "REG_DWORD"
If Check10.Value = 1 Then regrun.regwrite a & "\Explorer\NoDriveTypeAutoRun", 255, "REG_DWORD"
If Check13.Value = 1 Then regrun.regwrite a & "\Explorer\NoFind", 1, "REG_DWORD"
If Check14.Value = 1 Then regrun.regwrite a & "\System", 1, "REG_DWORD"

x = MsgBox("Beberapa Perubahan dapat terjadi setelah komputer di log off.Log Off sekarang?", vbYesNo, "Registry Tools")
If x = vbYes Then Shell ("shutdown -l") Else Command1.SetFocus

End Sub

Sekian dulu deh,,sekali lagi,maaf banget yhah krna masih banyak banget kekurangan,.
Pliss,comment yhah,biar gwa bisa menginstropeksi diri gwa..
Oiya,ni full SCnya
Download Here