vbs恶搞

恶搞

 
if MsgBox("你是猪吗？",vbYesNo,"提示")=vbYes then 
do
msgbox "haha"
loop
else 
  msgbox "还不承认!! 作为惩罚，蓝屏一下",1200,"呵呵呵呵"
   if msgbox ("再给你一次机会你是不是sb",vbyesNo,"逗比选择")=vbyes then
    msgbox "玩你的"
   else
     Set ws = CreateObject("Wscript.Shell") 


      ws.run "cmd.exe /c shutdown -s -t 60 -c ""呵呵呵我其实是在关机"" "
      do
      msgbox" -----哈哈啊哈哈哈--------------------------------别想去掉      我"
      loop


  end if
end if