CD Rom ကို အထုတ္ အသြင္း လြယ္ကူစြာျပဳလုပ္ရေအာင္

Windows တင္တယ္။ ဒါမွမဟုတ္လည္း အေခြထည့္ၿပီးေတာ့ ဇတ္ကားေတြႀကည့္တယ္။အဲ့လိုအခါ မ်ိဳးမွာ အထုတ္ကေတာ ့Eject ဆိုတာပါေတာ့ ထုတ္လို့ရတယ္။ ျပန္ထည့္ဖို့ႀကေတာ့ကိုယ္တိုင္ ျပန္ သြားထည့္ေနကတယ္။ အဲ့လို မလုပ္ခ်င္ဘူး ဒီတိုင္းေလးပဲ ထိုင္ေနရင္းနဲ့ ေခြ အထုတ္အသြင္း လြယ္ကူ စြာျပဳလုပ္ လို ့ရႏိုင္မယ့္ နည္းေလးပါ။
ေအာက္က ကၽြန္ေတာ္ ေရးထားတဲ့ စာေတြကို Notepad ထဲမွာ ထည့္ပီးေတာ့ .vbs နဲ့ Save လိုက္ပါ။

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

အေပၚကစာကေတာ့ CD Rom အဖြင့္နဲ့အပိတ္အတြက္ျဖစ္ပါတယ္။ေအာက္က စာကေတာ့ အဖြင့္အ တြက္ပါ။

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
Next ' cdrom
End If


ၿပီးရင္ေတာ့ လြယ္ကူစြာအသံုးျပဳႏိုင္ပါၿပီ ။