Subscribe:

15 Aralık 2013 Pazar

CD-ROM Açma Kapama Şakası

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 teknikle bu şakayı istediğinize yapabilirsiniz.

Notepad'i açın ve aşağıdaki Visual Basic Script kodlarını kopyala yapıştır ile 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 sadık.vbs yazınız.
(Kayıt türü olarak Tüm Dosyalar seçiniz.)

Sonra sadık.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.)

Peki bunu nasıl sonlandırıyoruz? Bunun için Görev yöneticisinden wscript.exe dosyasını 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).

8 yorum:

  1. Bişey oldu sandım bilgisayara

    YanıtlaSil
  2. gorevi sonlandir yaptim ise yaramadi

    YanıtlaSil
  3. merhaba bende WMPlayer.OXC.7 oluşturalamıyor diyor ne yapabilirim

    YanıtlaSil
  4. Hüseyin Konak6 Nisan 2019 14:12

    Eline Sağlık Güzel Kodlar

    YanıtlaSil
  5. Çok Güzel Ama Daha Çok Gelmeli.

    YanıtlaSil
  6. ahahahhaah kuzenimin en sevdiği oyun adıyla kaydettim bilgisayarıma bilgisayar bozuldu diye ağladı ben girince yanlışlıkla oldu ablağ lütfen ablağğ diye ağlıyo ahahahsh sizce şaka diyimmi

    YanıtlaSil
  7. bende niye olmadı anlamadım virüs diye algılyo antivirüs antivirüsten engelledim güvenlik duvarı izin vermiyor :/

    YanıtlaSil