Question

vbs怎么大量弹出窗口？？？

一次型弹出指定窗口个数~~
而且窗口上显示自己想要的内容~~~
do until i=10000
i=i+1
msgbox "中心最帅~~~~~",16+4096,"系统提示"
wscript.sleep 5*2 '
loop

这是弹出一万下~~~
但是必须点差了
下一个才能弹出~~~
我要一次性弹出~~~
怎么改！~~~~

Answer 1

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

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

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

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

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

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

7、完成效果图。

Answer 2

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 3

可以创建1万个wscript.exe进程，每个wscript.exe弹出一个窗……

Answer 4

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

Answer 5

无限调用自身，就是一个递归