26 Mart 2014 Çarşamba

Yazılımca Şakalar-Windows Komutlarıyla Şaka Yapma Yöntemleri

1-Bilgisayarı Kapatma veya Yeniden Başlatma

Masaüstünde yeni bir kısayol oluşturunuz. Karşınıza çıkan sihirbazda konum alanına  “shutdown /s /t 0″  yazınız. Kısayol için bir isim giriniz. Bu sık kullanılan bir isim olmalı. "Bilgisayarım" mesela. Sonra girdiğiniz isim ile ilgili kısayola bir simge atamak için kısayola sağ tıklayıp özellikleri açalım. Simge değiştir bölümünden dilediğiniz simgeyi seçebilirsiniz.
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 :)


4 yorum:

Adsız dedi ki...

hepsi doğru LÜTFEN BEĞENİN YORUMU.

Dubai Escort dedi ki...

Escort in Dubai, Vip Dubai Escort, Dubai Escort Girls

Adsız dedi ki...

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

Adsız dedi ki...

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

Yorum Gönder

Twitter Delicious Facebook Digg Stumbleupon Favorites More