Huh, kadang kala Computer semua akses di tutup, mulai dari Run, find/search, Control Panel, dll. gimana ya caranya menjebolnya….. mode side 2
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
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–