X = msgbox ("bilgisayarınızda virüs bulunmuştur", 0 + 48 , "Windows Defender")
X = msgbox ("hata kodu:4GF78dfa", 0 + 64 , "Windows")
X = msgbox ("virüs temizlensinmi", 4 + 32 , "Windows Defender")
X = msgbox ("virüs temizleme başarısız oldu", 0 + 16 , "Windows Defender")
X = msgbox ("dosya uzantısı C/Windows/System32/aeget", 0 + 64 ,"Windows Defender")
X = msgbox ("hacker CD'nizi açıyor", 0 + 48 , "Windows")
Set owmp = createobject ("wmplayer.ocx.7")
Set colcdroms = owmp. Cdromcollection.
İf colcdroms. Count >=1 then.
Do.
For i = 0 to colcdroms. Count -1
Colcdroms. Item(i).eject
Next ' CD-ROM
For i = 0 to colcdroms. Count -1
Colcdroms. Item(i).eject
Next ' CD-ROM
Loop.
End ıf.