Kamis, 12 Agustus 2010

BOBOL WARNET YANG DI PROTEKSI OLEH ADMIN

huh, kadang kala di warnet semua akses di tutup, mulai dari Run, find/search, Control Panel, dll. gimana ya caranya menjebolnya….. mode side 2 layer 2 aktif. let’s go!!!

buka notepad, (bener2 keterlaluan kalo notepad aja di blok!!!) cut n paste script berikut:

:)

–start–

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 udienz.wordpress.com”, vbinformation,”Selamat”

—end–

nah nih untuk membuka/enable run, hide file ext, dll. simpan dengan .vbs dan klik untuk mengeksekusi. welcome to your imagine!!!!
eh ada lagi nih untuk mengoptimasi kompi temen2

–mulai–

Dim WshShell
Set WshShell = WScript.CreateObject(”WScript.Shell”)
WshShell.RegWrite “HKCU\Control Panel\Desktop\MenuShowDelay”, “0″, “REG_DWORD”
WshShell.RegWrite “HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLowDiskSpaceChecks”, “0″, “REG_DWORD”
WshShell.RegWrite “HKLM\SYSTEM\CurrentControlSet\Control\WaitToKillServiceTimeout”, “0″, “REG_SZ”
WshShell.RegWrite “HKCU\Control Panel\Desktop\PaintDesktopVersion”, “1″, “REG_DWORD”
MsgBox”Registry kamu berhasil di optimasi, silakan logOff”, vbinformation,”Selamat”
MsgBox”creat3d bY udienz.wordpress.com”, vbinformation,”Selamat”
WshShell.RegWrite “HKLM\System\ControlSet001\Control\WaitToKillServiceTimeout”, “1″, “REG_DWORD”
WshShell.RegWrite “HKCU\Control Panel\Desktop\WaitToKillAppTimeout”, “0″, “REG_SZ”
WshShell.RegWrite “HKCU\Control Panel\Desktop\AutoEndTask”, “1″, “REG_SZ”
WshShell.RegWrite “HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters\EnablePrefetcher”, “5″, “REG_DWORD”

–end–

Tidak ada komentar:

Posting Komentar