Question

vbs如何弹出大量弹窗

玩vbs的时候发现，程序运行到msgbox的时候就会暂停，直到单击某个按钮才会继续运行，有没有一种方法，让他不会暂停，比如通过dos命令建立窗口之类的……

Answer 1

1、首先启动计算器，在桌面右键，选中“文件文档”。

2、生成之后，双击打开文件文档。，然后输入如图的代码。

3、输入完毕后，保存起来。

4、然后对文件进行右键，重命名，将txt的后缀，改为vbs格式。

5、然后双击打开，就可以看见其效果了。这里是关不了的。（ctrl+alt+delete可以停止下来）

6、或者打开任务管理器，将一个wscript的进程，选中，结束进程即可。

7、完成效果图。

Answer 2

msgbox "嘿嘿，我等你很久了"

for i=0 to 4 ‘循环次数

msgbox "有没有想我"

next

for i=0 to 20

msgbox "想关？没门！"

next

用for循环 可以调节循环次数，

Answer 3

弹窗前后台启动一下自身，例如：

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "a.vbs"
MsgBox "Hello"

Answer 4

1.预先写一个vbs，命名为*.vbs,*为你想要改的名字
*.vbs内容为
Msgbox"内容"
此vbs内容为
Dim Wsh
Set Wsh=CreateObject
For i=0 to 9999
Wsh.Run"*.vbs"
Wscript.Sleep 100'延迟，可以修改，此处为100毫秒
Next
2.递归 无限弹
弹出窗口前运行自身,将此文件命名为*.vbs
Dim Wsh
Set Wsh=CreateObject
Wscript.Sleep 100
Wsh.Run"*.vbs"
Msgbox"内容"

Answer 5

do
createobject("wscript.shell").run "notepad.exe"
loop