on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""说我想你，不说我想你就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我想你")
a = inputbox ("说我想你,就不关机，快撒，说 ""我想你"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox "虽然你想我。。我还是要关你机。因为你太听话啦"
楼主……娱乐一下可以，不过，我想说的不是前面那句话，我想说，你把这个脚本发给别人，别人不点击也能运行，这是不可能的，就像我要你不睁开眼睛用眼睛看东西一样，是不现实的！还有你说一分钟关机，可是你的-t 是30秒。。。bug啊。。
如果想不点击也运行的话，我想你放到开始-程序-启动 文件夹里面倒是可以，每次开机就自动运行了，或者计划任务也可以，还有那个什么磁盘自动运行的autoexec.bat，反正是不可能你发给别人，别人都不用点击就运行了的…… 还有，要倒计时10秒的话你还得在程序的最前面加上一句：
WScript.Sleep 10000 这样的话就是在10秒以后执行下面的代码了！
附：1秒=1000毫秒
如果想不点击也运行的话，我想你放到开始-程序-启动 文件夹里面倒是可以，每次开机就自动运行了，或者计划任务也可以，还有那个什么磁盘自动运行的autoexec.bat，反正是不可能你发给别人，别人都不用点击就运行了的…… 还有，要倒计时10秒的话你还得在程序的最前面加上一句：
WScript.Sleep 10000 这样的话就是在10秒以后执行下面的代码了！
附：1秒=1000毫秒
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-10-02
好坏！
msgbox "虽然你..........前面至少要加一个WSHshellA.run “cmd.exe /c shutdown -a”吧本回答被提问者和网友采纳
msgbox "虽然你..........前面至少要加一个WSHshellA.run “cmd.exe /c shutdown -a”吧本回答被提问者和网友采纳
