搞了两个好玩的vbs玩玩，与大家分享

  on   error   resume   next
  dim  WSHshellA
  set  WSHshellA  =  wscript.createobject( " wscript.shell " )
 WSHshellA.run  " cmd.exe /c shutdown -r -t 600 -c ""说你是我老婆，不说十分钟关你机，不信你等十分钟看，嘿嘿！···""  " , 0  , true   
  dim  a
  do   while (a  <>   " 我是你老婆 " )
 a  =   inputbox  ( " 说你是我老婆,就不关机，快撒，说 ""我是你老婆""　 " , " 说不说 " , " 不说 " , 8000 , 7000 )
  msgbox   chr ( 13 )  +   chr ( 13 )  +   " 呵呵，乖老婆，我爱你！ " , 0 , " MsgBox "
  loop
msgbox   chr ( 13 )  +   chr ( 13 )  +   " 呵呵，乖！早说就行了嘛！ "
WSHshellA.run  " cmd.exe /c shutdown -a " , 0  , true   
msgbox   chr ( 13 )  +   chr ( 13 )  +   " 呵呵！老婆，我爱你！ "
set WSHshellA = nothing

下面是退出上面的对话框及跳出关机的程序：

on   error   resume   next
dim  WSHshellwwq
set  WSHshellwwq  =  wscript.createobject( " wscript.shell " )
WSHshellwwq.run  " cmd.exe /c shutdown /a " , 0  , true
WSHshellwwq.run  " cmd.exe /c wmic process where name=""wscript.exe"" call terminate " , 0  , true
set  WSHshellwwq  =   nothing