Admin
Admin
Posts : 64
ရမွတ္ : 622
Join date : 2011-07-29
Age : 30
ေနရပ္ : ဗီးနပ္စ္ရြာ ၊ ေစတန္ၿမိဳ႕ ၊ ဂ်ဴပီတာႏိုင္ငံ
 |  Subject: CDDVD Rom ကို ပြင့္လိုက္ ပိတ္လုိက္ျဖစ္ေအာင္ ကလိၾကမယ္  Wed Aug 03, 2011 10:40 pm | |
| - Code:
-
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If CD\DVD Rom ကို ပြင့္လိုက္ ပိတ္လုိက္ျဖစ္ေအာင္ ကလိၾကမယ္။ ဟဲ...ဟဲ အပ်င္းေျပကစားတာေပါ့။ အေပၚက Code ကို note pad ထဲမွာ paste လုပ္ၿပီး ကိုယ္ႀကိဳက္တဲ့နာမည္ရယ္ .vbs နဲ႔ save လုပ္ပါ။ ( ဥပမာ - funny.vbs ) ၿပီးရင္ အဲဒီ vbs ဖုိင္ေလးကို run ၾကည့္လုိက္။ CD\DVD Rom ႀကီး ပြင့္လိုက္ ပိတ္လိုက္ ျဖစ္ေနလိမ့္မယ္။  ျပန္ရပ္ခ်င္ရင္ Task Manager ကုိေခၚၿပီး Process tab မွာ wscript.exe ကို end process လုပ္လုိက္ရင္ Drive ျပန္ၿငိမ္သြားပါလိမ့္မယ္။ | |
|
