Kode virus untuk open close cd room

Untuk membuat virus ini, anda hanya memerlukan notpad. Copy kode dibawah lalu faste di notpad anda. Simpan filenya dengan nama terserah anda tapi harus dikasi ekstensi vbs ( contoh : virus.vbs). virus ini bekerja apabila di klik 2 kali (double click). Silah kan di coba. Ini kodenya :


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