标题: 怪事!!! 我的第一个vbs怎么啦？？总循环运行！ [打印本页]

---

作者: ellf     时间: 2009-3-2 04:23    标题: 怪事!!! 我的第一个vbs怎么啦？？总循环运行！

呵呵~这是一个关机的vbs,但测试的时候,问题却接连而来!!请帮忙看看!!
想法:
1 关机前出现提示框。
2 如在一定时间内没有响应，自动关机
3 bat 导入任务 （at 12:00 /every:m,t,w,th,f,s,sa “C:\poweroff\delay.vbs“)
   问题：无论有没引号，或换成exe文件都没有响应！！
4 自动升级 （用xcopy）

---------------------------------------------------------------------------------------
我的做法:
文件:两个dalay.vbs    logoff.vbs
---------------------------------------------------------------------------------------
dalay.vbs
代码：

set Ws = WScript.CreateObject("WScript.Shell")
Ws.Run "c:\poweroff\logoff.vbs"
WScript.Sleep 2500  ‘(有循环运行的情况，不知道原因，只能通过杀进程处理~！！)
Ws.SendKeys "~"

---------------------------------------------------------------------------------------
logoff.vbs
代码：

Option Explicit

Dim ts,ws
set ws=createobject("wscript.shell")
ts=MsgBox("下班时间已到,"&vbcrlf&vbcrlf&"5秒 后将自动关机......",vbinformation+vbokcancel+vbdefaultbutton1,"提示")
if ts=vbok then
ws.run "taskkill /f /im delay.vbs",0 处理循环，郁闷阿~！
rem ws.run "shutdown.exe -s -f -t 0 "测试，可不能随便关机~！
end if
if ts=vbcancel then
ws.run "taskkill /f /im delay.vbs",0
end if

---

作者: slore     时间: 2009-3-2 04:55
taskkill /f /im delay.vbs?

=.=

提示关键字:
popup

---

作者: ellf     时间: 2009-3-2 21:39
谢谢。
通过popup 很好地处理这种情况。
at任务，可惜的是不能通过system账户运行~！