恶搞，vbs+bat实现随机位置无限弹窗

闲来无事，写了个弹窗，分享给大家😊

效果

先上效果

还是很搞人心态的

代码

vbs

首先是做基本的，每个弹窗的制作，这里使用的是inputbox，因为inputbox可以通过更改x,y轴的参数从而实现出现在指定位置的效果，代码如下

randomize
a = int(rnd * 16000 +0)
b = int(rnd * 8000 +0)
X=inputbox("卡死你","virus","：）",a,b)

randomize即为初始随机种子，用来生成随机位置的x,y轴

a = int(rnd * 16000 +0)
b = int(rnd * 8000 +0)

这两行就是定义变量，后面的数字指随机范围，如16000+0就是在16000到0之间的随机值赋值给a

可以根据自己屏幕的分辨率改动

---

接下来就是用来调用.bat的文件的vbs文件，代码如下

CreateObject("WScript.Shell").Run "cmd /c D:s.bat",0

就这么简简单单的一行

他调用了同一个子文件目录下的另一个s.bat文件（待会会讲），并隐藏了运行的bat界面,否则只要关掉主运行界面，无限弹窗就会终结了

bat部分

这里其实就是一个死循环，调用刚才在随机位置生成弹窗的vbs文件，代码如下

:A
start a.vbs
goto A

就是用goto这个远古指令实现死循环，十分简单

教学

代码讲了这么多，接下来教大家应用，我们新建三个txt文件，把上面3个代码依次复制进去，改成图中的文件名，一定不要错哦

关于文件类型：txt把后缀名分别改为bat,vbs就行了

最重要的，记得把三个文件放在同一个文件夹内，点击b.vbs运行

---

作死小技巧

如果你喜欢作死，可以给b.vbs创建一个快捷方式，把这个快捷方式剪切到下面这个路径里

C：\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp

这样每次开机你都会得到一个无限弹窗了，是不是十分好用呢，用完过来感谢我吧！

想说的话

初中生写文章不易，看到的点个赞，点点关注