tümü

/i/Yazılım

Umuyoruz ki geleceğin yazılımcıları bu altinciden çıkacak!
    başlık yok! burası bom boş!

basit bir şaka virüsü yapımı

  1. 1.
    +2 -2
    [09:58, 28.1.2017] +90 536 698 4395: Not:Hepsini doğru yazmanız gerekiyor.Yoksa çalışmaz.

    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)
    Tümünü Göster
    ···
    #184140987 şikayet
  2. 2.
    +1
    X = 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")
    ···
    #184141062 şikayet
  3. 3.
    +1
    X = 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")
    ···
    #184141090 şikayet