CD-Rom kapanığınızın açıldığını,kapatınca yine açıldığını ve sürekli bu döngünün tekrarlandığını görmek ne kadar sinir bozucu olurdu değil mi :) Aşağıda anlatacağımız teknikle bu şakayı istediğinize yapabilirsiniz :)
Notepad'i açınız ve aşağıdaki Visual Basic Script kodlarını kopyala yapıştır yaparak notepad'in içine yapıştırınız.
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
Notepad'de iken Dosya'dan Farklı Kaydet'e gelin ve dosya adını mesela yazılımheryerde.vbs yazınız.
(Kayıt türü olarak Tüm Dosyalar seçiniz.)
Sonra yazılımheryerde.vbs dosyasını iki kere tıklayın. CD-Rom kapağı açılacaktır. Kapağı kapattığınızda tekrar açılacaktır. Bu böyle sonsuz döngü şeklinde gidecektir.(Yukarıdaki script parçasında kodlandığı üzere.)
Not:Oluşturduğunuz dosyanın ismini ve ikonunu değiştirirseniz daha etkili olur :)
Peki bunu nasıl sonlandırıyoruz? Bunun için Görev yöneticisinden(CTRL+ALT+Del tuş kombinasyonundan ulaşabilirsiniz
) wscript.exe dosyasını ("Microsof Windows Based Script Host" uygulaması ) bulup Görevi Sonlandır yapabilirsiniz.
wscript.exe nedir peki? Bu bir windows tabanlı komut dosya yürütücüsüdür.(Komut tabanlı satırı ise cscript.exe dir).
Dilerseniz dosyayı buradan indirebilirsiniz.(Bilgisayarınız dosyayı tehdit olarak algılayabilir, önemsemeyin.)
8 yorum:
Sildim kapanmıyor ya nasıl durdurcam sinir oldum >:((
görev yöneticisinden kapatçakdın
BENDE GÖZÜKMÜYOR
beyler kapatmak için wscript yok microsoft bişe bişe var logodan tanıyabilirsiniz onu kapatın
Aslında arkadaşım roblox pet kodu istedi. Rar olarak gönderdim.
Bunu yönetici olarak çalıştır
Bu kodlar robloxunda tüm oyunların kodlarına girecek yazdım açtı
QR eqeeq resimleri q
bende çalışmadı
ya mesala ondan sonra kod nasıl yazılır
X = MsgBox ("Virüsten korunmak için CD niz açılıyor" , 1 + 48 , "Windows Defender")
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
X = MsgBox ("CD niz açıldı sakın kapatmayın virüs cd ye bulaşabilir" , 0 + 64 , "Windows Defender")
gibi
Yorum Gönder