Şaka Virüsü

 Ş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 

)

⇒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

:(