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

[lenbo]

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

[unioly]

我連了
可是什麼事都沒發生啊

[Joes]

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/de...ayerobject.asp
Player.cdromCollection:
http://msdn.microsoft.com/library/de...tionobject.asp
Eject Method:
http://search.microsoft.com/gomsuri....jectmethod.asp

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