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).
0 yorum:
Yorum Gönder