China DOS Union

For example, now a VBS script runs. Before exiting this script (because there is a do loop statement before, so it will not exit automatically after running). Get the current system time. Just get the minutes. Then add 5 minutes to the obtained current time, and then run this VBS script. Simply put, it is like at the current system time (minutes) +5 (minutes) xx.vbs wscript.quit

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

msgbox time自己mid吧

```
Times = Time
NewTime = Split(times, ":", -1)
Wscript.echo NewTime(1) + 5
'Full writing
Wscript.echo Time & "====Add 5 minutes is====" & NewTime(0) & chr(58) & NewTime(1) + 5 & chr(58) & NewTime(2)
```

The last sentence above is Times

It seems that the 55 processing was not done...

Yes, in fact, the first sentence is redundant and not processed for 55+. I was afraid of numerical calculations
NewTime = Split(time, ":" ,-1) Wscript.echo NewTime(1)+5 Wscript.echo Time & "====加5 minutes is====" & NewTime(0) & chr(58) & NewTime(1)+5 & chr(58) & NewTime(2)

The method of getting time is clearly stated on the 4th floor. Thanks. But why do I get an error when I integrate it and add a DOS task.
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)

Then msgbox your command and you'll know where you're wrong.

Now it has prompted that the type of the command line does not match. Adding msgbox later doesn't work. I'm a newbie, and I'm bothering the elder brother to give more guidance.

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

You follow the modification of floor 4...

NewTime is an array...

Cannot be single, your parenthesis reference is wrong...

Here is the translation:

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) & ":" & NewTime(1) + 5 & ":" & NewTime(2) End If Wscript.Echo Time & "====Add 5 minutes is====" & Times

Wow. So much code. What if it's a virus? Just one function takes up so much.

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) 'I don't know the intention

'Splitting time gets hours, minutes and seconds...

What you did above seems to have subscript out of bounds...

Originally posted by hackhd at 2008-1-26 21:23:
Wow. So much code. What if it's a virus? Just one function takes up so much.

a=Wsh.Run("at "&hour(now)&":"&(minute(now)+5)&" 1.vbs",0,False)

It's not about the length to determine the quality of code absolutely...

Do you think this one is good?

What's your result at 12:56:36? And using at like this may not work.