windows - 如何使用 MsgBox 在 VBS 中使用用户输入正确配置条件操作？

Question

我一直在尝试让 VBS 脚本与 msgbox 一起工作一段时间。当我使用单个 msgbox 语句时，它起作用了。一旦我开始添加条件输入选项，它就不起作用了。

我在 super 用户上发布了这个问题，我被告知使用“dim”声明，并在这个网站上发布，我现在都做了。这是我正在尝试的一些有效代码。 (请忽略我的例子。)

Option Explicit
Dim vbsmsg, vbsyes, vbsno
vbsmsg=MsgBox("Proceeding will wipe the contents of your C: Drive. Proceed?", 1+48, "Format Drive C:")

当我通过快捷方式运行上述代码时，会出现如下对话框:

但是如果我添加以下内容，单击“确定”或“取消”时会出现运行时错误

If vbsmsg=1 Then
    vbsyes=MsgBox("The contents of your C: Drive could not be successfully deleted.", 0+64, "Error Formatting Drive C: - System Error 5")
If vbsmsg=2 Then
    vbsno=MsgBox("Not all of the contents of your C: Drive were successfully deleted. Please try again.", 0+64, "Error Formatting Drive C: - System Error 303")

错误中的行/字符在“系统错误303”中的“0”和“3”之间

我已经尝试了大量的故障排除。我尝试过更改暗淡的语句、显式添加选项、使用 1 和 2 而不是 6 和 8 等等……似乎没有任何效果。当我注释掉第二部分时，它没有在执行文件后出现错误，而是对我关闭了。我确信我的所有语法都是正确的并且格式正确。我将 1 和 2 更改为 vbOK 和 vbCancel，当我将其更改回来时，它根本不起作用，并立即给出了此页面上显示的错误。

如果有人知道我的示例有什么问题，我将不胜感激。我对使用 VBS 文件还很陌生，但我已经使用 .bat 文件很长时间了，这些原则似乎都不适用于这里，

我将不胜感激任何帮助，即使是很小的帮助，

Answer 1

试试这个例子:

Option Explicit
Dim Title,Question
Title = "user input in VBS with MsgBox"
Question = MsgBox("Proceeding will wipe the contents of your C: Drive. Proceed ?",vbYesNo+vbQuestion, Title)
If Question = vbYes Then
    MsgBox "We proceed wipping your C:\ drive",vbExclamation,Title
    'Call your sub here to continue proceeding your script
Else
    MsgBox "Canceling the operation !",vbCritical,Title
    Wscript.Quit()
End If

有关的更多信息MsgBox Constants