القائمة

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

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


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. الآن انقر نقرا مزدوجا على الملف الذي تم إنشاؤه.