按键精灵定时运行脚本怎么弄？

Question

脚本1 在10点10分， 10点40分， 11点10分， 11点40分， 12点10分， 12点40分， 13点10分， 13点40分， 14点10分， 14点40分， 15点10分， 15点40分， 16点10分， 16点40分， 17点10分， 17点40分，18点10分， 18点40分，19点10分， 19点40分， 20点40分，21点10分， 21点40分， 22点40分，23点10分， 23点40分， 00点40分 定时在这个时间点上开始运行脚本， 脚本时长不超过3分钟，然后脚本2在 20点00分， 22点00分， 00点00分 定时在这3个时间点上开始运行脚本 ， 该如果弄， 请大神帮忙？谢谢！

Answer 1

不知道你这里的脚本2是和脚本1一起运行，还是独立一个脚本，如果是一起运行，不需要分两个脚本都可以，因为你的脚本运行时间是3分钟，你的运行的时间间隔至少有30分钟，所以用单线程即可（假如代码执行时间比30分钟长，就得要多线程）。这里我只提供脚本1的代码，脚本2类似，脚本1代码如下：
Dim MyTime(26) //定义数组，存放27个时间
//下面给数组赋值，储存每个时间，由于时间间隔是30分钟，所以可以代码赋值。
MyTime(0) = "10:10:00"
For i = 1 To 25
MyTime(i) = DateAdd("n", 30, MyTime(i - 1))
Delay 10
Next
MyTime(26) = "00:40:00"
While True
For i = 0 To 26
dt = DateDiff("s", Time, MyTime(i))
If dt = 0 Then
//这里写你要执行的代码
End If
Delay 100
Next
Wend追问

2个脚本是一起运行的 24小时开着的

追答

那就可以改一下，把两个脚本的代码写在一个脚本，前提是你脚本2的代码执行一遍不得超过20分钟（因为19:40和20:00差20分钟，为了可靠最好时间更短），代码如下：
Dim MyTime(29) //定义数组，存放30个时间
MyTime(0) = "10:10:00"
For i = 1 To 25
MyTime(i) = DateAdd("n", 30, MyTime(i - 1))
Delay 10
Next
MyTime(26) = "00:40:00"
MyTime(27) = "20:00:00"
MyTime(28) = "22:00:00"
MyTime(29) = "00:00:00"
While True
For i = 0 To 26
dt = DateDiff("s", Time, MyTime(i))
If dt = 0 Then
If i<27 Then
//这里写脚本1执行的代码
Else
//这里写脚本2执行的代码
End If
End If
Delay 100
Next
Wend

本回答被网友采纳

Answer 2

给个100 200的我帮你搞定,记住是人民币

Answer 3

484654395