按键精灵 先运行A脚本，到了指定时间无限循环B脚本

Question

请问怎么设置，让按键精灵先无限循环A段代码，到了晚上10点开始，停止A脚本，无限循环运行另外一段B脚本。。非常感谢您的回答。

Answer 1

你这里有逻辑漏洞，因为你启动脚本有可能是晚上10点之后，你没有交代如果是晚上10点之后启动脚本，是执行A脚本还是执行B脚本，所以我只提供一个“晚上10点之前启动脚本”的代码。

Dim ID
ID = BeginThread(A)
Do
If DateDiff("s", Date & " 22:00:00", Now) > 0 Then 
StopThread ID
Delay 200
BeginThread B
Exit Do
End If
Delay 400
Loop


Sub A
While True
'这里写A段代码
Wend
End Sub


Sub B
While True
'这里写B段代码
Wend
End Sub

追问

启动脚本是10点之前的。10点以前一直无限执行A段代码，10点以后停止A 无限B段代码的。直到手动停止为止。如果10点以后启动脚本，则直接运行B段代码，该怎么写呢

追答Dim ID

If DateDiff("s", Date & " 22:00:00", Now) <= 0 Then 
BeginThread B
Else 
ID = BeginThread(A)
Do
     If DateDiff("s",Date & " 22:00:00",Now) >= 0 Then 
         StopThread ID
         Delay 200
         BeginThread B
         Exit Do
     End If
     Delay 400
Loop
End If

Sub A
    While True
        '这里写A段代码
    Wend
End Sub
 
Sub B
    While True
        '这里写B段代码
    Wend
End Sub
'这里的参考时间是指电脑时间，而不是网络时间。