中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 怪事!!! 我的第一个vbs怎么啦？？总循环运行！

ellf
新手上路

积分 2
发帖 2
注册 2009-2-26
状态离线

『楼主』: 怪事!!! 我的第一个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

2009-3-2 04:23