Question

这个代码 哪里错了

dim a
do
a=inputbox("输入123，否者关机.")
if a="123" then
masgbox"很遗憾，你中招了，这个是整人程序，你等着关机吧"
WSshell.Run "cmd.exe /C shutdown -s -t 300"
wscript.sleep 1000
exit do
else
magbox"乖，输入123"
end if
loop

Answer 1

是函数写错了
magbox "乖，输入123"
msgbox "乖，输入123"
哈哈看出来了吗，差个字母a=>s

追问

是msgbox？ 我改回去后运行 还是不可以啊

追答

得了，给你全改好吧，拿去保存后直接运行：

dim a
do
a=inputbox("输入123，否者关机.")
if a="123" then
msgbox"很遗憾，你中招了，这个是整人程序，你等着关机吧"
set ws=createobject("wscript.shell")
ws.Run "cmd.exe /C shutdown -s -t 300"
wscript.sleep 1000
exit do
else
msgbox "乖，输入123"
end if
loop