Question

自己写的VBS总是提示缺少语句，代码800A0400，哪里出错了？





Answer 1

set那一行别换行啊

追问

不行啊，

追答

代码发出来帮你看下

追问

追答

发文本啊

追问

Option Explicit
On Error Resume Next

Dim answer
Dim WshShell Set WshShell = CreateObject
("wscript.Shell")
WshShell.Run"Shutdown/f/s/t 60/c 输入'我要请你吃饭',否则60秒后关机~",0
Do While answer"我要请你吃饭"
answer=InputBox("输入'我要请你吃饭',否则60秒后关机~","哈哈哈",,7000,5000)
Loop
WshShell.Run"Shutdown/a",0
MsgBox"测试一下能不能用",,"嘻嘻"

追答