中国DOS联盟

比如说现在一个VBS脚本运行起来在退出这个脚本前(因为前面有do loop语句所以运行后不会自动退出)

获取当前系统时间。只要分钟就好了 ，然后在获得的当前时间上+个5分钟，再运行这个VBS脚本

简单点说就像
at 系统当前时间（分钟）+5（分钟） xx.vbs
wscript.quit

[ Last edited by hackhd on 2008-1-27 at 07:24 PM ]

msgbox time自己mid吧

这样不行哦。

上面最后一句是Times

貌似没有做55处理……

是的其实首句是多余的,没做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)

获取时间方法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)

你msgbox下你的command就知道你自己错哪里了

现在这样子已经以提示了command这行类型不匹配了
后面加msgbox没用。我是个菜菜还烦大哥再指点指点

command = "at " & NewTime & "(1)+5 " & "1.vbs"

你照4楼的修改……

NewTime是个数组……

不能单独，你的括号引用错误了。。。

整点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

哇。这么多代码。要是写个病毒怎么办。一个功能就占了这么多了。

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 ]

Newnn = Split(NewTime(0), " " , - 1) '不清楚用意

'将time Split就得到时分秒了啊……

你那样貌似下标会越界……

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这样用是没有效果的吧