Question

这是我脚本的最后一部分

MsgBox("text")
    vbOK
WScript.Quit
End If
x=MsgBox("text",1,"text")
    vbOK
If vbOK Then
do
Loop
    vbCancel
If vbCancel Then
WScript.Quit
    MsgBox("text")

但不知怎的，它不会工作。我使用vbsedit，但是当我按开始时它告诉我添加'结束'，所以我这样做然后它告诉我添加'if'。在完成之后，它告诉我再次添加“结束”，所以它继续。

我该如何解决？我是VBS的新手，花了5小时试图找到解决方案。

Answer 1

如有疑问，请阅读documentation：

在对话框中显示消息，等待用户单击按钮，然后返回一个值，指示用户单击的按钮。

MsgBox(prompt[, buttons][, title][, helpfile, context])

<强>参数

[...]

按钮
  数值表达式，是指定要显示的按钮的数量和类型，要使用的图标样式，默认按钮的标识以及消息框的模态的值的总和。请参阅设置部分了解值。如果省略，则按钮的默认值为0。

正如您所看到的，VBScript消息框的按钮布局是通过第二个参数控制的，函数的返回值表示用户按下了哪个按钮。

例如，如果您想要向用户提供是/否选择，您可以执行以下操作：

choice = MsgBox("question", vbYesNo, "title")

Select Case choice
  Case vbYes : MsgBox "User pressed 'Yes'."
  Case vbNo  : MsgBox "User pressed 'No'."
  Case Else  : MsgBox "Something unexpected happened.", , "Error"
End If

VBScript，无法结束我的项目

1 个答案: