该博客展示了一段HTML代码，利用VBScript实现光驱控制功能。通过创建WMPlayer对象，定义eject函数，在点击按钮时可实现光驱的弹出和收回操作，同时改变按钮显示文本。
<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>
扫一扫
8360
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
