Menjebol Proteksi Warnet Dengan VB Script

Huh, kadang kala di warnet semua akses di tutup, mulai dari Run, find/search, Control Panel, dll.

Gimana Ya Cara Jebolinnya ?
Simak Tutorial Berikut !

Buka notepad, (Bener2 keterlaluan kalo Notepad aja di blok!!!) Copy n Paste Script berikut:

Code Mulai :

On error resume next

Dim Reg
Set Reg = CreateObject("WScript.Shell")

if msgbox("Kembalikan menu Run ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "0", "REG_DWORD"
end if

if msgbox("Enable Registry Tool ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD"
end if

if msgbox("Perlihatkan file hidden" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden", "1", "REG_DWORD"
end if

if msgbox("Kembalikan menu Find" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "0", "REG_DWORD"
end if

if msgbox("Kembalikan menu Option" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "0", "REG_DWORD"
end if

if msgbox("Enable Taskmanager" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "0", "REG_DWORD"
end if

if msgbox("Disable File Extensi" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\explorer\advanced\HideFileExt", "0", "REG_DWORD"
end if

if msgbox("Perlihatkan Log Off" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\explorer\advanced\StartMenuLogoff", "1", "REG_DWORD"
end if
MsgBox"Registry kamu berhasil di optimasi, silakan logOff", vbinformation,"Selamat"
MsgBox"creat3d bY calvinalexander.co.cc", vbinformation,"Selamat"