按键精灵 先运行A脚本,到了指定时间无限循环B脚本
请问怎么设置,让按键精灵先无限循环A段代码,到了晚上10点开始,停止A脚本,无限循环运行另外一段B脚本。。非常感谢您的回答。...
请问怎么设置,让按键精灵先无限循环A段代码,到了晚上10点开始,停止A脚本,无限循环运行另外一段B脚本。。非常感谢您的回答。
展开
展开全部
你这里有逻辑漏洞,因为你启动脚本有可能是晚上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
'这里的参考时间是指电脑时间,而不是网络时间。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询