闲来无事,写了个弹窗,分享给大家😊
效果
先上效果
还是很搞人心态的
代码
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
这样每次开机你都会得到一个无限弹窗了,是不是十分好用呢,用完过来感谢我吧!文章来源:https://www.toymoban.com/news/detail-456284.html
想说的话
初中生写文章不易,看到的点个赞,点点关注文章来源地址https://www.toymoban.com/news/detail-456284.html
到了这里,关于恶搞,vbs+bat实现随机位置无限弹窗的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!