ေအာက္ကCodeေတြကို notepad ေပၚတင္ပါမေၾကာက္ပါနဲ႕ အေသးစားေလးေတြပါ။မိမိကိုယ္တိုင္ဖြင့္မွ ပြင့္ႏိုင္မယ့္ program ေလးေတြပါ။
1-သင့္ CD Drive ကိုဆက္တိုက္ပြင့္ေနပါလိမ့္မယ္။ဖြင့္လိုက္ပိတ္လိုက္ေပါ့။
code:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
မွန္ပါသည္။
လုပ္လို႔ရပါတယ္။ အကယ္၍စာဖတ္သူဧ။္ စနစ္သည္ တိက်ေသာ
လံုျခံဳေရးအားနည္းခ်က္မ်ား ရွိပါက ၁၅ စကၠန္႔ပိုင္းအတြင္းပင္
ခ်ိဳးေဖာက္ခံႏိုင္ရပါသည္။
