Kadang-kadang kita menjadi jengkel ketika sebuah virus meng-attack kompie seperti block registry, block run dan block cmd.exe kita...hufh sebelnya bukan main. Ne ada sebuah cara untuk mengatasi.
Buka notepad coy,copy 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”h4ck3d bY ryanaby.blogspot.com”, vbinformation,”Selamat”
—end–
nah nih untuk membuka/enable run, hide file ext, dll. simpan dengan .vbs dan dobel 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”h4ck3d bY ryanaby.blogspot.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–