呵呵~这是一个关机的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
想法:
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