如何处理错误"expected loop"？

Question

我的代码不起作用

我正在尝试向我的朋友展示

这是消息框的代码

Dim objShell, strComputer, strInput
Dim strRestart

pass=inputbox( "test time! what is 2+2?" )

if pass="4" then

msgbox=( "you is smart" )

else 

DO

msgbox( "you cant do math now i will self destruct" )


Set WSHShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0"

Answer 1

您遇到的第一个错误：将 Dim strRestart 移至换行符。

I.E：而不是

Dim objShell, strComputer, strInput Dim strRestart

使用：

Dim objShell, strComputer, strInput
Dim strRestart

第二个错误在第 4 行：

msgbox=("you is smart")

应该是

msgbox("you is smart")

第三个错误在第 6 行：

删除DO。 DO 是 DO .. WHILE 循环语句的一部分，并且您似乎只想拥有一个 if/else 子句。

总而言之：

Dim objShell, strComputer, strInput
Dim strRestart

pass=inputbox( "test time! what is 2+2?" )

if pass="4" then
    msgbox( "you is smart" )
else
    msgbox( "you cant do math now i will self destruct" )
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0"
end if

干杯。

如何处理错误"expected loop"？

How do I deal with the error "expected loop"?

windows

vbscript