首先新建一个文本文档
将以下代码复制粘贴到文本文档中
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说[精彩卡农是帅哥]，不说的话没好果子吃哦，虽然今天是愚人节，但我可没愚你啊，不信，试试···"" ",0 ,true
dim a
do while(a <> "精彩卡农是帅哥")
a = inputbox ("说[精彩卡农是帅哥],就不关机，快撒，说 ""[精彩卡农是帅哥]"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛，我是帅哥~"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "我的帅是上天注定，万人敬仰，世人承认的啊"
复制完了以后就保存将文件后缀名改为.vbe
如果看不到后缀名的话单击工具，文件夹选项，查看，将隐藏已知文件类型的扩展名的勾消掉
最后就双击吧
呵呵呵呵
很好玩喔，如果嫌没意思，可以将“”里面的字改啊，然后发给qq好友。。。呵呵哈哈哈，我好邪恶啊
