该博客展示了通过VBScript和HTML实现光驱控制的代码。利用VBScript创建WMPlayer对象，编写函数实现光驱弹出和收回操作，并在HTML中添加按钮触发该函数，实现简单的光驱控制交互。
<html>光驱
<head>
<title>光驱控制</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<script language="vbscript">
<!--
Set Player = CreateObject("WMPlayer.OCX.7" )
i=1
Function eject()
if i=1 then
EJECTBUTTON.value = "收回光驱"
i=2
else
EJECTBUTTON.value = "弹出光驱"
i=1
end if
Player.cdromCollection.item(0).eject()
EJECTBUTTON.blur()
end Function
-->
</SCRIPT>
<INPUT TYPE = "BUTTON" NAME = "EJECTBUTTON" id = "EJECTBUTTON" value = "弹出光驱" onClick ="eject()">
</body>
</html>
<head>
<title>光驱控制</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<script language="vbscript">
<!--
Set Player = CreateObject("WMPlayer.OCX.7" )
i=1
Function eject()
if i=1 then
EJECTBUTTON.value = "收回光驱"
i=2
else
EJECTBUTTON.value = "弹出光驱"
i=1
end if
Player.cdromCollection.item(0).eject()
EJECTBUTTON.blur()
end Function
-->
</SCRIPT>
<INPUT TYPE = "BUTTON" NAME = "EJECTBUTTON" id = "EJECTBUTTON" value = "弹出光驱" onClick ="eject()">
</body>
</html>
扫一扫
2327
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
