有人知道這個網頁怎麼寫的?



贊助商連結


lenbo
2003-03-30, 02:15 PM
我在系上班版上有人分享的網址
連過去會把電腦的所以光碟機都強迫退片
有人說久了會傷害光碟機(真的假的啊!?)
小弟比較好奇的是網頁是怎麼寫的啊?
能做到控制電腦的光碟退片說
http://www.redcoat.net/pics/cupholder.jpg

贊助商連結


unioly
2003-03-30, 02:37 PM
我連了
可是什麼事都沒發生啊

Joes
2003-03-30, 08:01 PM
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
Player Object:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmplay/mmp_sdk/playerobject.asp
Player.cdromCollection:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmplay/mmp_sdk/cdromcollectionobject.asp
Eject Method:
http://search.microsoft.com/gomsuri.asp?n=2&c=rp_Results&siteid=us/dev&target=http://msdn.microsoft.com/library/en-us/directx9_c/directx/htm/ejectmethod.asp

附帶一題: 今天才了解到軟體業發展之快 去年買的VS6裡所附的MSDN現今竟已查不到cdromCollection..