object to open/close CD

from WinCustomize Forums
I'm looking for how make an object to open/close CD
Thanks
desktopx
2,049 views 1 replies
Reply #1 from WinCustomize Forums Top
How about an object with this script(found via google - "script close cd").
Your milage may vary


'****** OPEN CD TRAY ******
Dim oWMP
Dim colCDROMs, i
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
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
'****** OPEN & CLOSE CD TRAY ******
Dim oWMP
Dim colCDROMs, i
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
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing



Posted via WinCustomize Browser/Stardock Central