|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『楼 主』:
[已解决]用VBS获取系统当前时间添加at任务
比如说现在一个VBS脚本运行起来在退出这个脚本前(因为前面有do loop语句所以运行后不会自动退出)
获取当前系统时间。只要分钟就好了 ，然后在获得的当前时间上+个5分钟，再运行这个VBS脚本
简单点说就像
at 系统当前时间（分钟）+5（分钟） xx.vbs
wscript.quit
[ Last edited by hackhd on 2008-1-27 at 07:24 PM ]
|
|
 2008-1-26 06:04 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
2 楼』:
msgbox time自己mid吧
|
|
|
2008-1-26 12:28 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
|
|
2008-1-26 18:37 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第
4 楼』:
Times = Time
NewTime = Split(times, ":" ,-1)
Wscript.echo NewTime(1)+5
'完整写法
Wscript.echo Time & "====加5分钟是====" & NewTime(0) & chr(58) & NewTime(1)+5 & chr(58) & NewTime(2)
|
第一高手 第二高手
我的小站
 |
|
|
2008-1-26 19:07 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
|
|
2008-1-26 19:30 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
|
|
2008-1-26 19:31 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第
7 楼』:
是的其实首句是多余的,没做55+处理,我怕数字计算
NewTime = Split(time, ":" ,-1)
Wscript.echo NewTime(1)+5
Wscript.echo Time & "====加5分钟是====" & NewTime(0) & chr(58) & NewTime(1)+5 & chr(58) & NewTime(2)
|
第一高手 第二高手
我的小站
|
|
|
2008-1-26 19:57 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『第
8 楼』:
获取时间方法4楼说得很清楚了。谢谢啊。我把它整合起来添加一个DOS任务怎么就出错呢。
dim wsh
set wsh=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
Times = Time
NewTime = Split(times, ":" ,-1)
command="at "&NewTime&"(1)+5 "&"1.vbs"
retodate=wsh.Run(command,0,true)
|
|
|
2008-1-26 19:58 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
9 楼』:
你msgbox下你的command就知道你自己错哪里了
|
|
|
2008-1-26 20:03 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『第
10 楼』:
现在这样子已经以提示了command这行类型不匹配了
后面加msgbox没用。我是个菜菜还烦大哥再指点指点
|
|
|
2008-1-26 20:12 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
11 楼』:
command = "at " & NewTime & "(1)+5 " & "1.vbs"
你照4楼的修改……
NewTime是个数组……
不能单独，你的括号引用错误了。。。
|
|
|
2008-1-26 20:22 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第
12 楼』:
整点55分钟+5 及12点+1=01完整代码
NewTime = Split(Time, ":" ,-1)
if NewTime(1)+5 > 59 Then
mm=NewTime(1)+5-60
Newnn=Split(NewTime(0), " " ,-1)
if Newnn(1)+1 = 13 Then
nn="01"
else
nn=Newnn(1)+1
end if
Times = Newnn(0) & " " & nn & chr(58) & mm & chr(58) & NewTime(2)
else
Times = NewTime(0) & chr(58) & NewTime(1)+5 & chr(58) & NewTime(2)
end if
Wscript.echo Time & "====加5分钟是====" & Times
|
第一高手 第二高手
我的小站
|
|
|
2008-1-26 21:04 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『第
13 楼』:
哇。这么多代码。要是写个病毒怎么办。一个功能就占了这么多了。
a=Wsh.Run("at "&hour(now)&":"&((minute(now)+5) mod 60)&" 1.vbs",0,False)
[ Last edited by hackhd on 2008-1-26 at 09:41 PM ]
|
|
|
2008-1-26 21:23 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
14 楼』:
Newnn = Split(NewTime(0), " " , - 1) '不清楚用意
'将time Split就得到时分秒了啊……
你那样貌似下标会越界……
|
|
|
2008-1-26 21:32 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
15 楼』:
| Quote: | Originally posted by hackhd at 2008-1-26 21:23:
哇。这么多代码。要是写个病毒怎么办。一个功能就占了这么多了。
a=Wsh.Run("at "&hour(now)&":"&(minute(now)+5)&" 1.vbs",0,False) |
|
不是由长短绝对代码的好坏的……
你的这个觉得好麽？
12:56:36你的结果如何呢？而且at这样用是没有效果的吧
|
|
|
2008-1-26 21:34 |
|
