Cara Membuat Virus membuka & menutup cdroom

Say thanks if you liked this post!
I just want a THANK...!!!

Cara Membuat Virus membuka & menutup cdroom

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



copy kedalam notepad,simpan dengan nama "virus.vbs" tanpa tanda petik!!!
kemudian double click ...apa yang kamu liahat....heheheheh

cara disablenya gampang......buka task manager klik proses kemudian klik wscript.exe and end this process!!!