请问怎样控制光驱的弹出与弹进啊

[aspkiller]

如提

[Estyle]

Javascript目前还做不到这一点.

[youbest]

只有自制组件来控制

[rferen]

这个问题吗，用javascript来控制是不行的，因为javascript是用来做前台的，前台就是ie浏览器，它只能控制这东东，想要控制光区，用vb,vc都成，做成应用程序或者dll,用javascript调用不久行了

[心云意水]

vbs的，改成js小意思。关键是如何关闭……

<div style="width:100%;position:relative;top:1px;filter:alpha(opacity=100);" id=notesPlace align="center">
<button onclick=yunshui()>哥们，点我试试看？</button>
<SCRIPT language=VBScript>
<!--
sub yunshui()
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
colCDROMs.Item(i).Eject
End If
end sub
-->
</SCRIPT>
</div>

[lovingkiss]

呵呵，什么叫如何关闭呀？打开=关闭~~~~~~~~

<SCRIPT language=VBScript>
<!--
Dim II,JJ
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

If colCDROMs.Count >= 1 then
For JJ=0 To 1000 '重复1000/2次
For II = 0 to colCDROMs.Count - 1
colCDROMs.Item(II).Eject '多个光驱依次打开//然后依次关闭
Next
Next
End If
-->
</SCRIPT>


这只是理论上的可以不断的重复打开/关闭光驱，前两天帮助朋友作的，呵呵~~~~
客户端需要安装MediaPlay7以上的解码器~~~~~~~~~~~~

[lovingkiss]

实际上关闭和打开是有时间延迟的，而程序没有延迟，所以效果不是很理想~~~~~~~

[lansajf]

哥们掌握的技术真好,又长见识了!:)

[bushido]

js版本的：
function jjcdrom(){
var oWMP = new ActiveXObject("WMPlayer.OCX.7");
var colCDROMs = oWMP.cdromCollection;
if(colCDROMs.Count >= 1)
for(var i = 0;i<colCDROMs.Count;i++)colCDROMs.item(i).Eject();
}

[zhaoweiwei]

<SCRIPT language=VBScript>
<!--

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

-->
</SCRIPT>
///////////光驱自动弹出