Cd-Rom'unuzu Script İle Açın

Merhaba arkadaşlar cd-romunuzu script ile açmak istiyorsanız(Nasil bir istektir orasi tartişılır fakat bilgi olsun diye ingilizce bir blogdan alıp cevirisini yapıp koyuyorum)

Dim WMP: Set WMP = CreateObject("WMPlayer.ocx")
Dim ColCDROMS: Set colCDROMS = WMP.CDROMCollection
If ColCDROMS.Count > -1 Then
For i = 0 to colCDROMS.Count - 1
colCDROMS.Item(i).Eject
Next
End If

.vbs Olarak kaydediyoruz.Çalıştırdığımız zaman cd-rom auto açılıyor

Gerçekten güzel ama program gibi yani script gibi değil.Hostinge atınca indirmek istiyor Ama gerçekten güzel

tam tersini yazarmısın bunun

düğmeye bas aç ne uğraşıyorsun

bu sağ tuşta da var zaten bunun cd'yi geri kapatan versiyonu yok mu??

En iyisi

Çalışıyor (:

Yapılmaya çalışılıyor ama hala başarılı olunamadı sadece çıkartan versiyonu var kapatılması için beklemedeyiz

teşekkürler güzel paylaşım