CD-Rom Açıp Kapama Şakası

BURADASIN

Merhaba Arkadaşlar , Biraz da Eğlenmek İçin Arkadaşlarınıza Bunu Yaparsınız Diye Düşündüm 😀

Ve Şunu Bilin Bu script sürekli olarak CD-Rom kapağını açıp kapayacaktır.

Yapmak İçin :

Notepad’i açın ve içine aşağıdaki kodları kopyalayıp yapıştırın .

 

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

 

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

Ve Arkadaşınıza Bu Dosyayı Herhangi Bir Yolla Gönderin …

Sonlandırmak İçin ;

Şaka Bitsin İsterseniz , Görev Yöneticisinden wscript.exe ‘ yi Bulup Sonlandırın .


Yorumlar (1 Yorum)

Yazı hakkında görüşlerinizi belirtmek istermisiniz?


TemaHEX