Question

按键精灵脚本A，B。A一直循环执行。B在一定时间执行（B运行时间大概3-5分钟）。奖励分我可以追加

A在B执行时需要暂停或者停止在B运行完毕继续运行A
脚本B运行的时间18：00或者22：00（一共9-10个时间段）不一定是整点。请问可以如何编制这段代码呀？
A代码如下：
RightClick 1
Delay 500
KeyPress "S", 1
Delay 500
KeyDown 18, 1
Delay 50
KeyPress 83, 1
Delay 50
KeyUp 18, 1
Delay 500
KeyDown 18, 1
Delay 50
KeyPress 69, 1
Delay 50
KeyUp 18, 1
Delay 1000
……（×&（×……&&×（%……×&%×（&（×&……×&%×……（×
脚本B如下：
Call Plugin.Sys.SetCLB("剪切板内容")
Delay 1000
MoveTo 135, 30
Delay 500
LeftClick 1
Delay 500
MoveTo 155, 115
Delay 500
LeftClick 1
MoveTo 640, 480
Delay 500
RightClick 1
Delay 500
KeyPress "A", 1
Delay 500
MoveTo 800, 480
Delay 500
LeftClick 1
Delay 500
搞简洁点。脚本A循环，在脚本B执行的时候A停止，B运行完毕继续循环A，B执行有N个时间点

Answer 1

这个是大概写的,详细可以继续hi我!! 还要修改!!!!

Dim 小时

Rem 开始 '标记开始

小时 = Hour(time) '取当前小时
If 小时 = 18 or 23 Then '如果是18:00 或者是22:00则运行B
b = BeginThread(B脚本)
StopThread a '停止A脚本
Else '如果不是你要B运行的时间就运行A脚本
a = BeginThread(A脚本)
End If

goto 开始 '跳转到开始

Sub A脚本

RightClick 1
Delay 500
KeyPress "S", 1
Delay 500
KeyDown 18, 1
Delay 50
KeyPress 83, 1
Delay 50
KeyUp 18, 1
Delay 500
KeyDown 18, 1
Delay 50
KeyPress 69, 1
Delay 50
KeyUp 18, 1
Delay 1000
End Sub

Sub B脚本
Call Plugin.Sys.SetCLB("剪切板内容")
Delay 1000
MoveTo 135, 30
Delay 500
LeftClick 1
Delay 500
MoveTo 155, 115
Delay 500
LeftClick 1
MoveTo 640, 480
Delay 500
RightClick 1
Delay 500
KeyPress "A", 1
Delay 500
MoveTo 800, 480
Delay 500
LeftClick 1
Delay 500
'B运行完毕
ContinueThread A '开始运行A脚本
End Sub

Answer 2

使用获取系统时间。。
然后加个 到时的判断。
转跳到A过程上。A执行完毕。接着执行B
B执行完毕转跳到判断语句上去就可以了
如果不会写我就帮你写下。

追问

时间问题不会呀，跳转用goto 和rem吗？请帮忙一下吧。谢谢

追答

先吧AB 分成两个小程序
Plugin sDate = Sys.GetDateTime()获取
你加qq455175633
你把AB 分成两个文本发给我。。

你要在什么时间段执行 跟我说然后我帮你做。。

做好了你要看看我的代码是怎么写的。。
学好了、。。

追问

可以使用请endscript命令停止A几分钟然后在RestartScript执行A吗？
时间范围18点半-4点，间隔1小时或者半小时左右