İlk Önce Bir Not Defteri Açalım
Sonra O Not Defterinin İçine Verdiğim Kodları Yapıştırın Ve Uzantısını Vbs Olarak Kaydedin. Adamın Cd Romu Açılıp Kapanacak Ve Garip Garip Yazılar Gelecek Ama Zararsız!

-----KODLAR-----

msgbox "QEAD.TK"
msgbox "Pc Niz hacklenmiştir Gözünüz Aydın"
msgbox "Windowsu Kapatın."
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