Notes

1.

0 = Tamam Butonu
1 = Tamam / Vazgeç Butonu
2 = Durdur / Yeniden Dene / Yoksay Butonu
3 = Evet / Hayır / Vazgeç Butonu
4 = Evet / Hayır Butonu
5 = Yeniden Dene / Vazgeç Butonu

16 = Kritik İkon
32 = Yardım İkonu
48 = Tehlike İkonu
64 = Bilgi İkonu
2.X = MsgBox ( "İnternet Explorer Yeni sürümünü güncellemek istermisin?", 4 + 64, "Windows Update")
X = MsgBox ( "Güncelleme başarısız oldu hata kodu:XC8J9!!", 0 + 16 , "Windows Update")
X = MsgBox ( "Virüs.Exe adlı uzantı bilgisiyarınıza eklendi onaylıyormusunuz?", 4 + 48, "Windows")
X = MsgBox ( "İşlem başarısız erişim engellendi !!", 0 + 16, "Windows")
X = MsgBox ( "Bilgisiyarınız risk altında.Hızlı Tarama başlatılsınmı", 3 + 48, "Windows Security")
X = MsgBox ( "Tarama başlatılamadı Virüs ele Geçirdi !", 0 + 16, "Windows")
X = MsgBox ( "Windows ADMİNASÖR hesabı devreye girdi. ", 0 + 48, "Windows")
X = MsgBox ( "Bilgisiyarınızdaki tüm dosyalar siliniyor onaylıyormusunuz ?. ", 4 + 64, "Warning")
X = MsgBox ( "Erişim engellendi.Dosyalarınız Siliniyor.", 0 + 16, "Windows")
X = MsgBox ( "Tüm Dosyalarınız Silindi. ", 0 + 64 , "Windows")
X = MsgBox ( "Bilgisiyarınız Risk Altında.Sistem geri yükleme başlatılıyor", 1 + 48, "Windows")
X = MsgBox ( "Virüs Sistemi ele geçirdi.Geri yükleme başlatılamıyor. ", 2 + 16 , "Windows")
X = MsgBox ( "ERİŞİM ENGELLENDİ BİLGİSİYAR ÇOK BÜYÜK RİSK ALTINDA ! ", 2 + 16 , "Windows")
X = MsgBox ( "Virüs CDNizi ele geçidi CD niz Açılıyor ! ", 0 + 16 , "Windows")
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
X = MsgBox ( "Bilgisiyarınız patlayacaktır lütfen uzaklaşınız !!!", 0 + 16 , "Windows")
X = MsgBox ( "Patlamak üzere !!", 0 + 16 , "Windows")
X = MsgBox ( "Hala Uzaklaşmadınmı ? :D ", 0 + 16 , "Windows")
X = MsgBox ( "Helal Olsun Ne bu Cesaret", 0+ 64 , "Windows")
X = MsgBox ( "Bu sana bir şakaydı virüs mirüs yok :D ", 0 + 64 , "Windows")
X = MsgBox ( "Hadi allaha emanet ben kaçtım :D", 0 + 64 , "Windows")
X = MsgBox ( "Bilgisiyarınız 30 Saniye içinde kapanacaktır.", 0 + 48, "Windows")
X = MsgBox ( "Şaka Şaka Q:WeQW:e ", 0 + 64 , "Windows")