0

我知道如果你输入

Do

msgbox("This is a msg box")

loop

然后会弹出一个不会消失的消息框。

我想要多个您可以关闭的消息框。

我该怎么做呢？

4

5 回答 5

1

警告：您可能会遇到严重的延迟和/或崩溃。如果您选择继续，我不对任何损害负责。

您可以制作一个多次打开同一个 VBS 脚本的批处理文件。制作一个记事本：

msgbox("YourTextHere")

或者如果你想循环它：

do
msgbox("YourTextHere")
loop

用你想要的任何东西替换 YourTextHere。

然后将其另存为 .vbs

然后制作另一个记事本：

start "MessageBox" "MessageBox.vbs"

将“MessageBox”更改为您制作的消息框 VBS 的名称。

多次复制并粘贴相同的脚本以多次打开它（这样做需要您自担风险，您可能会遇到严重的延迟）​​。

然后将其保存为 .bat

或者多次添加批处理文件本身，这样它就可以创建一个打开批处理文件的循环，可以从中打开更多脚本。（这样做需要您自担风险，您可能会遇到严重的滞后）。

例如：

start "BatchFile" "Batchfile.bat"

将“BatchFile”更改为您创建的批处理文件的名称。

复制并粘贴多次以再次打开它（这样做需要您自担风险，您可能会遇到严重的延迟）​​。

到目前为止，您还好，因为您没有打开 .bat 文件。如果您尝试对其进行测试，它将打开您的 .bat 文件和消息框的多个实例，然后从新实例中打开更多实例，然后从更新的实例中打开更多实例，并重复足以使您的 PC 崩溃或滞后.

于 2021-03-10T11:47:21.197 回答
0

您想寻找非模态对话框。您在此处弹出的消息框是模态的，这就是它们一个接一个出现的原因（对话框打开时执行暂停）。

您可以在网上找到这方面的参考资料。

Func _NoHaltMsgBox($code=0, $title = "",$text = "" ,$timeout = 0)
  Run (@AutoItExe & ' /AutoIt3ExecuteLine  "MsgBox(' & $code & ', '''& $title & ''', '''& $text &''',' & $timeout & ')"')
EndFunc
于 2013-08-09T14:04:32.920 回答
0

如果您不想使用批处理文件，请尝试以下操作：
第 1 步 - 错误消息
假设您想要a=msgbox("messageboxtext"). 因此，在记事本中，您可以将其写入a=msgbox("messageboxtext")并保存为 .vbs 文件。
第 2 步 - 垃圾邮件发送者
无限
在一个新的记事本文档中，粘贴以下内容：

set shell = createobject("wscript.shell")
count = "hello world"
do until count = 1
shell.run("""C:\Users\user\Documents\error.vbs""")
loop

将 C:\Users\user\Documents\error.vbs 替换为文件的位置。将其保存为 .vbs 文件。
Finitely
要打开有限数量的窗口，请使用以下代码：

set shell = createobject("wscript.shell")
count = 0
do until count = 5
shell.run("""C:\Users\user\Documents\error.vbs""")
loop

将 5 替换为您希望消息产生的次数。

享受！

于 2021-10-14T21:52:12.443 回答
-1
  1. 首先制作一个名为“anything.vbs”的文件，用您想要的任何内容替换任何内容。
  2. 然后编辑它并放入代码
msgbox("LOL")
loop"
  1. 用你喜欢的任何东西替换 LOL。
  2. 然后制作一个 .bat 文件。
  3. 放入代码
start "LOL.bat"
loop"

现在你有一个垃圾邮件发送者。:)

于 2022-02-23T18:21:35.353 回答
-1

您需要一个多重按钮MsgBox，然后将其设置为一个值：如果CANCEL按下，该过程将停止。

Do
spam=MsgBox("SPAM",3)
If spam = 2 Then
WScript.Quit
End If
Loop
于 2017-09-23T12:44:54.510 回答