1-  .VBS  ŞAKASI


1- Metin Belgesi Oluşturun.

2- Metin Belgesine Girin.

3- Şunu Yazın =         X = MsgBox ("Yazacağınız Mesaj" , 4 + 16 , "Başlık")              Yazacağınız Yazı Yerine Hata Da Hangi yazı Yazsın Onu Yazacaksınız. Başlık Kısmınada Başlığını Yazın. 4 + 16 Yazan Sayılara Buton Ve İkonları Giriniz.

16= Kritik Simge (X)
32= Yardım Simgesi (?)
48= Uyarı Simgesi (!)
64= Bilgi Simgesi (İ)

0= Tamam Düğmesi
1= OK / İptal
2= Durdur / Yeniden Dene / Yoksay
3= Evet / Hayır / İptal
4= Evet / Hayır
5= Yeniden Dene / İptal

                                                                       ÖRNEK
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ı ?", 0 + 16 , "Windows")
X = MsgBox ( "Bu sana bir şakaydı virüs mirüs yok ve bilgisayarınız patlamayacak :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")
--------------------------------------------------------------------------------------------------------------------------
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
--------------------------------------------------------------------------------------------------------------------------
Kodu CD Açma Kodudur.

Mesela Sınırsız Tekrar Komutu İsterseniz
Şu Kodu Yazın
--------------------------------------------------------------------------------------------------------------------------
do
X = MsgBox ("Yazacağınız Mesaj" , 4 + 16 , "Başlık")
loop
--------------------------------------------------------------------------------------------------------------------------
Bu Şekilde Sınırsız Tekrar Komutu Olur.
                                                                 ÖRNEK
do
Msgbox "Uyarı! Bilgisayarınız virüs tarafından ele geçirildi!", vbCritical, "Microsoft Security"
loop
--------------------------------------------------------------------------------------------------------------------------
Bunu Sonlandırmak İsterseniz
1- Görev Çubuğuna Gelip Sağ Tıklayıp Görev Yöneticisi'ni başlat a Gelin
2- Uygulamalardan İşlemler Kısmına Gelip En Aşağıya Gelip wscript.exe Ye Tıklayın
3- Aşağıdan İşlemi Sonlandır Kısmına Basın Ve Tekrar İşlemi Sonlandır a Basın Ve Bitti.

Bilgisayarı Kapatma Kodu Bile Var ! Burada Ne Ararsan Var !
1- Önce Yeni Kısayol Oluşturuyoruz.
2- Açılınca "Öğenin konumunu yazın:" Yazan Yere shutdown -s -f -t "Kaç Saniyede Kapansın"    Kaç Saniyede Kapansın Yazan Yere De Kaç Saniyede Kapanacağını Yazacaksınız.
                                                                               ÖRNEK
shutdown -s -f -t 00
--------------------------------------------------------------------------------------------------------------------------
00 Yazarsak Hiç Beklemeden Kapatır.
3- İleriye Tıklayınca "Bu kısayol için bir ad yazın:" Yazan Yere İstediğiniz Adı Yazabilirsiniz. Mesela Kapat. Son Dedikten Sonra Masaüstü ne Ekleniyor.
--------------------------------------------------------------------------------------------------------------------------
Aynı İşlemi Başlat Menüsü ndende Yapabilirsiniz.
1- Başlat Menüsü nü Açıp shutdown -s -f -t "Kaç Saniyede Kapansın"    Kaç Saniyede Kapansın Yazan Yere De Kaç Saniyede Kapanacağını Yazacaksınız. Ve Enter.
Ama Kapatılmasını Engellemek İsterseniz Başlat Menüsüne Gelin Ve shutdown -a Yazın. Ve Kapatılma Engellendi.
İsterseniz Bunu Yeni Kısayol dan Da Yapabilirsiniz.
1- Yeni Kısayol Oluşturun Çıkan Yere shutdown -a Yazın İleri ye Tıklayın. Sonra Açılan Yere İsmini Yazın Ve Sona Tıklayınız. Açınca Kapatılma Engellendi :)
--------------------------------------------------------------------------------------------------------------------------
Çok Büyük Bir Detay Daha. Kodları Yazdıktan Sonra Sol Üst Köşede Dosya Seçeneği Var. Bastıktan Sonra Farklı Kaydet e Tıklayınız. Dosya Adına Adını Yazdıktan Sonra En Sonuna .vbs Uzantısını Eklemeyi Unutmayın. Sonra Kaydet e Tıklayabilirsiniz. Ama Biz Bunun Simgesini Değiştireceğiz Derseniz İşte Tam Doğru Yerdesiniz :) Önce .vbs Uzantılı Uygulamanın Kısayol unu Çıkartın. Tarayıcınıza Girin Ve Hangi Simgeyi İsterseniz Aratın. Mesela Google Chrome Simgesi Diye Aratın. Yükledikten Sonra Kısayola Sağ Tıklayıp Özellikler Kısmına Basın. Simge Değiştir e Girin. Ve İstediğinizi Seçin Ama İstediğiniz Yoksa Gözat a Basın. Yüklediğiniz Yerden Seçip Açın. Uygula Ve Tamam a Tıklayın. Bitti ! Ama .vbs Uzantılı Gerçek Olan Uygulamayı İstediğiniz Bir Yere Saklayabilirsiniz. Ama Silerseniz Simgesini Değiştirdiğiniz De Silinir. UNUTMAYIN :) Düzenlemek İsterseniz Sağ Tıklayıp Düzenleye Tıklayarak Düzenleyebilirsiniz.

-----------------------------------------------------------------------------------------------------------------------------

Bizzat Kendi Yapmış Olduğum 4 Tane Virüs Şaka Kodları Var. Bu Kodları İndirmek İsteyenler :) Link Aşağıda :)

İndirmek İçin Tıklayınız.

İndirme İşlemi Tamamlandıktan Sonra WinRAR Dosyasını Masaüstüne Atınız. WinRAR'ın Üzerine Sağ Tık Yaparak Buraya Çıkart Yazısına Basınız. Masaüstüne Gelen Virüs Şaka Kodları Klasörünü Çift Tıklayıp Açın.

• Google Kapat(Google Chrome Kapat) Yazan Şaka Kodu Google İcon'ludur Ve Açıldığında 5-10 Saniye Arasında Bilgisayarı Kapatır Ve Siz Açana Kadar Açılmaz.
• Google Virüs(Google Chrome Virüs) Yazan Şaka Kodu Google İcon'ludur Ve Açıldığında https://www.youtube.com/watch?v=by4sFzyg_dI Bağlantısındaki Aynı Olaylar Olur.
• Kapat Yazan Şaka Kodu Açıldığında Bilgisayar 0-1 Saniye Arasında Bilgisayarı Kapatır Ve Siz Açana Kadar Açılmaz.
• Kurtar(Kapatmayı Kurtar) Yazan Şaka Kodu Ünlem İcon'ludur Ve Açıldığında Kapatmayı Kurtarır. Mesela Google Kapat'ı Açınca 5-10 Saniyede Bilgisayarı Kapattığı İçin Kurtara Basarsanız Kapatmayı İptal Eder.
• Sınırsız Yazan Şaka Kodu Açıldığında Sınırsız Şekilde Uyarı! Bilgisayarınız Virüs Tarafından Ele Geçirildi Yazar. Bu Uyarıyı Kapatmak İçin Ya Bilgisayarı Yeniden Başlatırsınız Ya Da Görev Çubuğuna Sağ Tık Yaparak Görev yöneticisi'ni başlat Yazan Yere Basıp Üst Kısımdan İşlemler Kısmına Gelip En Aşağıya Geliniz. wscript.exe'nin Üstüne Basıp Görevi Sonlandır Tuşuna Tıkladıktan Sonra Ekranda Çıkan İşlemi sonlandır Tuşuna Basınca Kapanır. Ve Artık Görev Yöneticisi İle İşimiz Bitti. Artık OnuKapatabiliriz. Zaten Bunun Detaylı Resimli Ve Metinli Anlatımı Sayfanın Yukarılarındadır :)

Bu Dosyayı Sakla Yazan Klasörde İse Google Virüs(Google Chrome Virüs) Ve Sınırsız Şaka Kodlarının Ana Makinesi Gibidir. Bu Dosyayı Sakla Yazıyorsa O Klasörü Saklayacaksınız Ya Da Klasörün İsmini Değiştirin.

Beni Oku Metin Belgesini İster Okuyun, İster Okumayın, İster Silin Ya Da Dursun :)

-----------------------------------------------------------------------------------------------------------------------------
                                                         VİDEOLU ANLATIM