Yazılımca Şakalar-CD ROM Açma Kapama

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.)

Posted in: EĞLENCE, Mizah, notepad, Visual Basic