
CODE: [Copy to clipboard]With CreateObject("WMPlayer.OCX.7").cdromCollection
.Item(0).eject
WScript.echo "光驱已经打开"&vbcrlf&"单击确定关闭光驱"
.Item(0).eject
End With
| Quote: | |
|
CODE: [Copy to clipboard]@echo off
echo With CreateObject("WMPlayer.OCX.7").cdromCollection>tem.vbs
echo .Item(0).eject>>tem.vbs
echo msgbox "光驱已经打开"^&vbcrlf^&"单击确定关闭光驱">>tem.vbs
echo .Item(0).eject>>tem.vbs
echo End With>>tem.vbs
cscript.exe //H:wscript //nologo tem.vbs
del tem.vbs
CODE: [Copy to clipboard]正在从vbs转到js,给个同样功能的吧。记得在下面用一句taskkill结束mshta进程。mshta "javascript:with (new ActiveXObject('WMPlayer.OCX').cdromCollection.Item(0)){Eject();if(confirm("是否进仓?")) Eject();}window.close();"
| Quote: | |
|
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |