-
1.
+2Youtube da yapılış videosu var zaten link ataydın direkt daha kolay olmaz miydi
-
-
1.
0Panpa atıcam onu da altta
-
1.
-
2.
+1sözlük olarak film çekiyoruz @2 dikkat panpa
-
3.
+1Rezerved
-
4.
+1X = MsgBox ( "Skype Hack Yapmaya Hazırmısın", 4 + 64 , "Skype Hackleme")
X = MsgBox ( "Son Kararınmı", 4 + 64 , "Skype Hackleme")
X = MsgBox ( "Skype Hacklemede Sorun Yaşandı", 5 + 48 , "Skype Hackleme")
X = MsgBox ( "Bilgisayarınıza Vürüs Bulaştı Düzeltilsinmi", 1 + 48 , "Skype Hackleme")
X = MsgBox ( "Vürüs Silinemedi", 0 + 48 , "Skype Hackleme")
X = MsgBox ( "CD niz Açılıyor", 0 + 48 , "Skype Hackleme")
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 ( "Bilgisayarınız Çok Zorlanılıyor", 0 + 48 , "Skype Hackleme")
X = MsgBox ( "Yine iysin Yiğenim!", 0 + 48 , "Skype Hackleme")
X = MsgBox ( "Bilgisayarınız 30 Saniye içince Kapancak", 0 + 48 , "Skype Hackleme")
X = MsgBox ( "Şaka Şaka :D ", 0 + 48 , "Skype Hackleme")
X = MsgBox ( "Neyse Pnp Seni Sonra Hacklerim", 0 + 48 , "Skype Hackleme") -
5.
+1X = MsgBox ("Chrome 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 ( "iş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 ADMiNASÖ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 ( "ERiŞiM ENGELLENDi BiLGiSiYAR ÇOK BÜYÜK RiSK ALTINDA ! ", 2 + 16 , "Windows")
X = MsgBox ( "Virüs CDNizi ele geçidi CD niz Açılıyor ! ", 0 + 16 , "Windows")
Set owMP = CreateObject("wMPlauer.OCX.8")
Set colCDROMs = owMP. cdromCollection
if colCDROMS. Count >=1 then
do
For i=0 to colCDROMs. COunt -1
colCDROMs. Item(i).Eject
Next ' cdrom
loop
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")
X = MsgBox ( "Hadi BB", 0 + 64 , "Windows") -
6.
+2 -2[09:58, 28.1.2017] +90 536 698 4395: Not:Hepsini doğru yazmanız gerekiyor.Yoksa çalışmaz.Tümünü Göster
X = MsgBox ( "Mesaj Açıklama" , + 16 0, "Başlık")
Farklı Kaydet diyip adının yanına .vbs koymanız gereklidir.
Örnek:incisözlük.vbs
Kodumuz bu arkadaşlar.Şimdi bu 16 0 ne diye sorabilirsiniz.Bunu da şunla anlatayım.
16'nın yanındaki 0 ın yerine şu şekilde yazınca gelen yazılar.
0 = Tamam düğmesi (Yalnızca tamam düğmesi var.)
1 = Tamam/iptal
2 = Durdur / Yeniden dene / Yoksay
3 = Evet / Hayır / iptal
4 = Evet / Hayır
5 = Yeniden dene / iptal düğmesi
şimdi bunlar bu şekilde. Şimdi 16 yerine şunlar yazılabilir.şunu diyim + hepsinin başına gelecek.
16 = Kritik simge
32 = Yardım simgesi
48 = Uyarı simgesi
64 = Bilgi simgesi
Örnek olarak vericek olursak.
X = MsgBox ( "Bilgisayar da virüs algılandı" , + 64 1, "Windoms Uptade")
Bunu karşı tarafa toplu bir şekilde gönderirseniz panik olabilir.Aynı kodu yazdıktan sonra hemen alta geçip gine aynı sonra gine aynı istediğiniz kadar yapabilirsiniz.ben alttaki yorumlara örnek olarak atıcam Birkaç tane.
Okuduğunuz için teşekürler pek iyi anlatamamış olabilirim. Kusuruma bakmayın.
Özet:Şaka virüsü yapımı.
nickimi nick koydum
[09:59, 28.1.2017] +90 536 698 4395: Not:Hepsini doğru yazmanız gerekiyor.Yoksa çalışmaz.
ilk olarak not defterini açıyoruz.
X = MsgBox ( "Mesaj Açıklama" , + 16 0, "Başlık") bu kodu yazdıktan sonra.
Farklı Kaydet diyip adının yanına .vbs koymanız gereklidir.
Örnek:incisözlük.vbs
Kodumuz bu arkadaşlar.Şimdi bu 16 0 ne diye sorabilirsiniz.Bunu da şunla anlatayım.
16'nın yanındaki 0 ın yerine şu şekilde yazınca gelen yazılar.
0 = Tamam düğmesi (Yalnızca tamam düğmesi var.)
1 = Tamam/iptal
2 = Durdur / Yeniden dene / Yoksay
3 = Evet / Hayır / iptal
4 = Evet / Hayır
5 = Yeniden dene / iptal düğmesi
şimdi bunlar bu şekilde. Şimdi 16 yerine şunlar yazılabilir.şunu diyim + hepsinin başına gelecek.
16 = Kritik simge
32 = Yardım simgesi
48 = Uyarı simgesi
64 = Bilgi simgesi
Örnek olarak vericek olursak.
X = MsgBox ( "Bilgisayar da virüs algılandı" , + 64 1, "Windoms Uptade")
Bunu karşı tarafa toplu bir şekilde gönderirseniz panik olabilir.Aynı kodu yazdıktan sonra hemen alta geçip gine aynı sonra gine aynı istediğiniz kadar yapabilirsiniz.ben alttaki yorumlara örnek olarak atıcam Birkaç tane.
Okuduğunuz için teşekürler pek iyi anlatamamış olabilirim. Kusuruma bakmayın.
Özet:Şaka virüsü yapımı.
Youtube da birisi yapmıştır.Alıntıdır.
https://www.youtube.com/watch?v=JaBRo5fBqTk
(bkz: nickimi nick koydum) -
7.
0güzel öneri, fakat artık eski bir sistem
-
8.
0Güzel. Bunlarla hocaya kriz geçirtiriz artık. Sağolasın jnbsnvegwbdnrbebybrg
başlık yok! burası bom boş!