 |
|
|
|
 |
|
 |
 |
|
 |
 |
StaticFive
tranceaddict in training

Registered: Apr 2003
Location: San Francisco, USA
|
|
|
| quote: | Originally posted by Dwingo
inquisi... WHAT?
Using the WMPlayer:
Set oWMP = CreateObject("WMPlayer.OCX.7")
' attempt to connect with the cdrom collection interface...
Set colCDROMs = oWMP.cdromCollection
' if cdrom collection found, and there are cdrom drives present,
' then execute eject method on all the cdrom dirves...
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Let me guess. You found that using google?
There are more ways to open the drive then just executing the mediaplayer plugin.
I found this too for example:
You need to have "Active Desktop" installed to get at the "Shell.Application" object
Const ssfDRIVES = &H11 ' namespace constant (drives folder = 17)...
Const cdromDrvLtr = "G:\" ' specify your cd-rom drive letter...
Set oSH = CreateObject("Shell.Application")
' open the cd-rom drawer...
oSH.NameSpace(ssfDRIVES).ParseName(cdromDrvLtr).InvokeVerb "E&ject"
I understand only half of what it says here (only scripting I know is PHP), but as you can see in the commentline: you need to have certain applications installed, which is why it doens't work for some of you (if they used this script... i don't know) |
Oh, grrr. I hate it when people challenge my knowlege of programming. I'd hate to spill the beans, but I know most of visual basic, basic, c, c++, flash actionscript, and javascript. Damn, I guess you know more than I do though. I also make mean programs for the HP48G--lemme know if you want some! hehe please dont respond mang!
Hella!
|
|
Apr-14-2003 01:59
|
|
|
 |
All times are GMT. The time now is 12:28.
Forum Rules:
You may not post new threads
You may not post replies
You may not edit your posts
|
HTML code is ON
vB code is ON
[IMG] code is ON
|
|
|
|
|
|
Contact Us - return to tranceaddict
Powered by: Trance Music & vBulletin Forums
Copyright ©2000-2026, Jelsoft Enterprises Ltd.
Privacy Statement / DMCA
|