تاريخ نشر : 21‏/05‏/2012

فتح وإغلاق DVD-ROM مع المفكرة


1.أولا إفتح المفكرة.
2.تم نسخ ولصق هذه الرموز في المفكرة .

Set OWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = OWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End If

3.تم حفظ المفكرة كا .ملف VBS . متل dvdrom.vbs
4. الآن انقر نقرا مزدوجا على الملف الذي تم إنشاؤه.

هل يعجبك هذا؟

إتصل بنا

الاسم

بريد إلكتروني *

رسالة *

إشترك في النشرة البريدية للحصول على آخر المواضيع


تابعنا في اليوتيوب

تابعنا على الفيس بوك