vbs玫瑰花表⽩代码_愚⼈节必备，教你制作整⼈神器，⽤代码
实现计算机蓝屏
计算机蓝屏简称BSOD，⼜叫蓝屏死机。蓝屏死机提⽰已经成为Microsoft Windows操作系统标志性的画⾯。蓝屏死机主要是Microsoft Windows 系列操作系统为保护电脑数据⽂件不被破坏⽽强制显⽰的屏幕图像。
愚⼈节即将来临，有许多⼈绞尽脑汁想各种整⼈办法。虽然电影《整蛊专家》⾥⾯有许多奇葩的恶作剧⽅法，但是电影源于现实⼜⾼于现实，⾥⾯有些⽅法学不来。近期使⽤计算机学习的⼩伙伴⽐较多，今天就⽤代码制作⼀个计算机蓝屏。
第⼀步：右键单击桌⾯空⽩位置，新建⼀个⽂本⽂档，并将“新建⽂本⽂档.txt”重命名为“打开试试.vbs”。
VBS是基于Visual Basic的脚本语⾔，我们使⽤vbs代码实现恶作剧，所以需要将⽂件后缀名改为“*.vbs”。⽂件名可以改的吸引⼈⼀些，好奇⼼害死猫。
第⼆步：右键单击“打开试试.vbs”，选中右键菜单中的编辑，打开记事本编辑窗⼝。将以下代码复制粘贴到记事本中，同时按下键盘上的Ctrl + S键保存编辑。
如果想修改提⽰语句的话，将引号中的中⽂修改成⾃⼰想要的内容即可。
代码区域：
If MsgBox("你愿意做我的⼥朋友吗？",vbYesNo,"提⽰")=vbyes then Msgbox "你竟然同意了，好开⼼！"
For i = 1 to len(b)
vbs小程序代码大全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 /",0,false
End if
VBS程序介绍：程序起始给对⽅⼀个选择题，如果对⽅选择“是”，那么就相安⽆事，并有⽂字组合图⽚和语⾳表⽩“我爱你”提⽰。如果对⽅选择“否”，将会有提⽰语句，接着计算机进⼊蓝屏。
解决蓝屏的办法只能重启计算机。请勿乱⽤这个vbs代码，以免给他⼈造成损失。
⼀旦程序运⾏该怎么终⽌呢？千万不要尝试关闭窗⼝来结束程序。
同时按下键盘上的Shift + Ctrl + Delete，启动任务管理器。在任务管理器的进程中到并选中“”，点击结束进程就没事
了。
如果喜欢请点击关注和转发，有更多计算机⼩技巧等着你来发现。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。