Cd-Rom Açılıp Kapanma şakası

Bu script sürekli olarak CD-Rom kapağınızı açıp kapayacaktır.



1.Notepad'i açın, Şu kodları kopyala yapıştır ile notepad'in içine yapıştırın.

Kod:

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

2. Notepad'de Dosya'dan Farklı Kaydet'e gelin ve dosya adına cdrom.vbs yazın.

Kayıt türü olarak Tüm Dosyalar seçin



3. Sonra cdrom.vbs dosyasını iki kere tıklayın. Siz delirene kadar Cd-Rom kapağınız otomatik açılıp kapanacaktır.



4. Sonlandırmak için Görev yöneticisinden wscript.exe dosyasını bulup Görevi Sonlandır yapın.

Biliyorum ben bunları sen bana yapmıştın!!!!!!