Enable Regedit , Task Manager , Folder Options w/ VB6

Alat Dan Bahan :

Visual Basic 6.0 [Full/Portable] Link = Google
Sedikit pengertian terhadap bahasa pemograman

Sediahkan 1 Command Button dan 1 Form dan klik 2 kali Formnya .
CP Code berikut ke Form 1

Dim bx As Object
Dim xb As String
Dim xbz As String
Dim xbx As String
Dim xbc As String
Private Sub Command1_Click()
Set bx = CreateObject("wscript.shell")
xb = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
xbz = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
xbx = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
xbc = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
bx.regwrite xb, 0, "REG_DWORD"
bx.regwrite xbz, 0, "REG_DWORD"
bx.regwrite xbx, 0, "REG_DWORD"
bx.regwrite xbc, 0, "REG_DWORD"
End Sub

moga berguna