Notes

BENDY.exe:

X = MsgBox ( "Chrome'u Yeni Sürümüne Güncellemek İstermisiniz ?", 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 Mutlaka Ara Beni :D", 0+ 64 , "Windows")
X = MsgBox ( "Bilgisiyarınız 30 Saniye içinde kapanacaktır.", 0 + 48, "Windows")

CreateObject ("SAPI.SpVoice").Speak "kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris kill boris "

X = MsgBox ( "Tüm Dosyalarınız Silinecektir Kabul Ediyormusunuz ? ", 4 + 64 , "WİNDOWS ")

result = MsgBox ("Ağlama Lan Ağlama Silmiom Hadi Bendensin?", vbYesNo, "Bendi")

Select Case result
Case vbYes
MsgBox("Boşuna Sevinme Hiç bir şey bitmedi")
Case vbno
MsgBox("Boşuna Sevinme Hiç bir şey bitmedi")
End Select

X = MsgBox ( "Siliyimmi Lan Tüm Dosyaları Heh ? ", 4 + 64 , "Bendi")

result = MsgBox ("Dosyalarınız Silinecektir Kabul Ediyormusunuz?", vbYesNo, "Windows")

Select Case result
Case vbYes
MsgBox("Vayy Baya Cesaretlisin")
Case vbNo
MsgBox("Olum Bu Kadar Korkak Olma Lan")
End Select

X = MsgBox ( "Windows Güvenlik Duvarı Devre Dışı Bırakıldı ? ", 0 + 16 , "WİNDOWS ")

X = MsgBox ( " Bilgisayarınıza Uzaktan Bağlantı Gerçekleştirildi ", 0 + 48 , "WİNDOWS ")

X = MsgBox ( "Ben Bir Hackerim? ", 0 + 16 , "Bendi")

X = MsgBox ( "Eğer Bilgisayarını Bir Hafta Boyunca Açarsan Bilgisayarını Çökertirim ? ", 0 + 16 , "Bendi")