Anasayfa » İnternet-Web » CD-Rom’u Script İle Açmak
CD-Rom’u Script İle Açmak
Arkadaşlar eğer aranızda CdROM’un düğmesine basmaya üşenenler varsa bu kodlar tam ona göre.. Bu vereceğim script sayesinde CDROM’unuzu otomatik açabilirsiniz.Adımlar şöyle;
* Not defterini açın.
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
yukarıdaki kodları yapıştırın.
* Ve farklı kaydet deyin.Dosyanın sonuna .vbs yazın.
Ve oluşturduğunuz scripte tıkladığınız anda cdromunuzu açabilirsiniz..
Toplamda 535 defa okundu.
Bu Konuya (7) Yorum Yapılmış
+ cd eject toll programı 30 günlük helal olsun kardeşime ben de bide progrm bakıodum yaaa
helal olsun seni doğuran anaya benim laptopun cd room düğmesi yoktu hemde 2009 versyon acer in
en iyisi cd eject toll programı tek ttıkla açıp kapanıyor üstelik görev çubuğundan açıyorsunuz.
vallaha işimie yaradı bravo
oFFF Ne ii Geldi saol
O değil de, :D Bende kaydet aç iptal çıkıyor?
burak ii güzel de cd-rom u açmaya üşenen adam kapamaya da üşenmeyecek mi ?
yani kapama kodunu da beklioz ;)