位置: IT常识 - 正文
恶搞，vbs+bat实现随机位置无限弹窗(恶搞代码vbs教程)
编辑：rootadmin推荐整理分享恶搞，vbs+bat实现随机位置无限弹窗(恶搞代码vbs教程)，希望有所帮助，仅作参考，欢迎阅读内容。
文章相关热门搜索词:vbs恶搞整人代码,bat恶搞代码大全,vbs恶搞整人代码,vb恶搞程序,vbs恶搞整人代码,bat 恶搞,恶搞代码vbs教程,bat 恶搞,内容如对您有帮助，希望把文章链接给更多的朋友！
闲来无事，写了个弹窗，分享给大家😊
效果先上效果
还是很搞人心态的
代码vbs首先是做基本的，每个弹窗的制作，这里使用的是inputbox，因为inputbox可以通过更改x,y轴的参数从而实现出现在指定位置的效果，代码如下
randomizea = 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文件，代码如下
:Astart a.vbsgoto A就是用goto这个远古指令实现死循环，十分简单
教学代码讲了这么多，接下来教大家应用，我们新建三个txt文件，把上面3个代码依次复制进去，改成图中的文件名，一定不要错哦
关于文件类型：txt把后缀名分别改为bat,vbs就行了
最重要的，记得把三个文件放在同一个文件夹内，点击b.vbs运行
作死小技巧如果你喜欢作死，可以给b.vbs创建一个快捷方式，把这个快捷方式剪切到下面这个路径里
C：\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp这样每次开机你都会得到一个无限弹窗了，是不是十分好用呢，用完过来感谢我吧！
想说的话初中生写文章不易，看到的点个赞，点点关注
上一篇：一只正在花园里吃野苹果的乌鸫，英国威尔特郡 (© Nick Upton/Minden Pictures)(一只猫在花园里英语)
下一篇：pavsrv50.exe - pavsrv50进程管理信息