VBS整人代码

记得刚开始学VB脚本语言的时候，写了一段调用系统进程的代码，挺好的：

dim wsh
if msgbox("笑笑很帅",vbyesno,"请回答是或否")=vbyes then
msgbox"你真聪明！"
elseif msgbox("你确定？",vbyesno,"请慎重")=vbyes then
msgbox"请抓紧保存未保存文件!30s后关机！！！"
set wsh=createobject("wscript.shell")
wsh.run "shutdown -s -t 30"
else msgbox"你真聪明！"
end if

编辑成为VBE格式，发给他，搞他一下！