!Şaka Virüsleri!
İlk olarak şaka virüsleri bilgisayara veya başka bilgisayara zarar vermez , yani sadece arkadaşlarınızı şakalamak için kullanabilirsizin (zaten zarar verenler kullanılmamalı).İsterseniz yapılışına geçelim.
Gerekli Bilgiler:
Uyarı:İlk olarak bir not defteri oluşturmanız lazım kodlar buraya girilecek.Sonra farklı kaydet seçeneğiyle (bat-vbs) olarak keydetmeniz gerekiyor.
⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓⇓

1-Sonsuz Döngü Kodu:(BAT)
:a
Kod(şakada kullanacağınız kodu yazıcaksınız)
goto a
2-CMD Rengini Değiştiren Kod:(BAT)
color a = Yazıları Yeşil Yapar
color a1 = Yazı ve Arkaplan Rengini
Beraber Değiştirir
⇒0=Siyah
⇒1=Mavi
⇒2=Yeşil
⇒3=Deniz Mavisi
⇒4=Kırmızı
⇒5=Mor
⇒6=Sarı
⇒7=Beyaz(görünsün diye direk beyaz yapmadım)
⇒8=Gri
⇒9=Açık Mavi(bu kadar açık olmasa da :D)
⇒A=Açık Yeşil
⇒B=Açık Deniz Mavisi
⇒C=Açık Kırmızı
⇒D=Açık Mor
⇒E=Açık Sarı
⇒F=Parlak Beyaz(görünsün diye direk beyaz yapmadım)
⇒0=Siyah
⇒1=Mavi
⇒2=Yeşil
⇒3=Deniz Mavisi
⇒4=Kırmızı
⇒5=Mor
⇒6=Sarı
⇒7=Beyaz(görünsün diye direk beyaz yapmadım)
⇒8=Gri
⇒9=Açık Mavi(bu kadar açık olmasa da :D)
⇒A=Açık Yeşil
⇒B=Açık Deniz Mavisi
⇒C=Açık Kırmızı
⇒D=Açık Mor
⇒E=Açık Sarı
⇒F=Parlak Beyaz(görünsün diye direk beyaz yapmadım)
⇒3-PC Kapatan ve Yeniden Başlatan
Kod:(BAT)
shutdown -s -t 00 = Bilgisayarı
Kapatır
shutdown -r -t 00 = Bilgisayarı
Yeniden Başlatır
⇒4-Explorer.exe Kapatan ve Açan
Kod:(BAT)
start explorer.exe =
explorer.exe açar
taskkill -f -im explorer.exe =
explorer.exe kapatır
⇒5-Klasör Oluşturan Kod:(BAT)
md Klasörismi = Klasörismi diye
bir klasör oluşturur
⇒6-Klasör Silen Kod:(BAT)
RD /S /Q Klasörismi = Klasörismi
olan klasörü siler
⇒7-Dosya Silen Kod:(BAT)
del /f /q /s DOSYAYOLU+ADI =
Dosyayolundaki dosyayı siler
⇒8-Dosya Çalıştıran Kod:(BAT)
start DOSYAYOLU+ADI =
Dosyayolundaki dosyayı açar
⇒9-Dosya veya Program Kapatan
Kod:(BAT)
taskkill -f -im
DosyanınGörevYöneticisindekiAdı = Görev Yöneticisindeki Çalışan İşlemi
Sonlandırır
⇒10-Site Açan Kod:(BAT)
start link : Linkteki siteyi
açar
⇒11-Mesaj Gösteren Kod: (VBS)
MsgBox "Mesajın İçinde
Yazanlar", 16 + 0, "Mesajın Başlığı"
⇒0 = Sadece Tamam Butonu
⇒1 = Tamam & İptal Butonları
⇒2 = Durdur & Yeniden dene & Yoksay Butonları
⇒3 = Evet & Hayır & İptal Butonları
⇒4 = Evet & Hayır Butonları
⇒5 = Yeniden Dene & İptal Butonları
⇒16 = Hata Mesajı
⇒32 = Yardım Mesajı
⇒48 = Uyarı Mesajı
⇒64 = Bilgi Mesajı
⇒12-Sürekli CD Açıp Kapatan Kod:
(VBS)
Set oWMP =
CreateObject("WMPlayer.OCX.7")
Set colCDROMs =
oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
Not:Sorularınızı lütfen yorumlara yazınız bildiğim kadarıyla yardımcı olmaya çalışıcağım.
Not:Yazıların bir kısımı (youtube)'daki birkaç kanaldan alıntıdır.
Not:Bu ilk blogum olduğu için acemiliklerimi yorum olarak atın ben de elimden geldiğince kendimi düzenleyim iyi bloglar...
Not:Yazıların bir kısımı (youtube)'daki birkaç kanaldan alıntıdır.
Not:Bu ilk blogum olduğu için acemiliklerimi yorum olarak atın ben de elimden geldiğince kendimi düzenleyim iyi bloglar...
Not:Evet arkadaşlar yıllar önce yapmış olduğum bu paylaşım beklemediğim kadar fazla ilgi gördü ve bu durum beni çok memnun etti hepinize bunun için teşekkür ederim. Aradan yıllar geçti ve bu şekilde başlayan serüvenim şuan bilgisayar mühendisi öğrencisi olarak devam ediyor. Güncel yayınlarımı ingilizce yapmaktayım dilerseniz buradan takip edebilirsiniz. Tekrardan hepinize çok teşekkürler :)
bişe sorcam peki sürekli değilde sadece 1 kere cd kapatıp açan kod varmı
YanıtlaSilevt bak bu kodla
SilSet 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
oha ne kadar hızlıydı sağol
Silbat mı vbs mi
Silbat lar sadece .bat içinmi yoksa .vbs yede olurmu?
YanıtlaSilolmaz
SilBen .vbs koyunca oldu. İnandırıcı olsun diye birkaç tane mesaj koydum. Bu arada sürekli cd'yi açıp kapatan kodu çalıştırdığımızda onu nasıl sonlandırıyoruz acaba?
YanıtlaSilBilgisayarı kapatıp açarsan düzelir.
SilAyrıca mesela 64 + 4 + 5 yazınca da çalışır mı, yoksa sadece simge ve 0, 1, 2, 3, 4 veya 5 koyunca mı çalışıyor?
YanıtlaSilwindows arka fonunu değiştirme ve ya mavi ekran "resmi" açmanın yolu var mı?
YanıtlaSilbend e blogspot kullanıyorum ve sana destek olacağım :)
YanıtlaSil