有偿求解，难题

点击很快吗？加快找图间隔也不行？

//,最后一次更新时间8月7号
开始
Sub 开始
刷新
抢单
End Sub
Sub 刷新
Do
//每隔0.5秒识别音量判断是否跳转
FindMultiColor 0,0,0,0,"969595","19|-3|1A1918,-25|8|1A1918,8|53|1A1918,89|5|F0F0F0,-49|-111|0B3CF6,813|24|1A1918,-5|-112|FFFFFF,811|-20|1A1918,897|9|1A1918",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Call 抢单()
else
//识别刷新按钮点刷新
Dim intX,intY
FindMultiColor 0,0,0,0,"444444","14|-4|FFFFFF,30|-8|444444,39|-8|FFFFFF,-12|0|FFFFFF,12|-27|FFFFFF,9|-21|444444,14|6|FFFFFF,17|14|444444,17|23|FFFFFF",0,1,intX,intY
If intX > -1 And intY > -1 Then
Tap 540, 2080
Delay 700
End If
End If
Loop
End Sub
Sub 抢单
Do
//识别抢单倒计时是否结束
Delay 100
Dim intX,intY
FindColor 54,894,1042,1497,"065AFA|0C3AF6|0272FE|111DF2",1,1,intX,intY
If intX > -1 And intY > -1 Then
//倒计时结束点击抢单
Tap intX, intY
Delay 120
//点击确认
Tap 644, 1293
EndScript
End If
Loop
End Sub

Dim h, intX
h = Thread.Start(main)//用多线程调用步骤循环（main），主线程不停找音量图
Delay 500
Do
Delay 100//每100毫秒找一次，不影响main循环
KeepCapture
FindMultiColor 7,2,93,73,"FFFFFF","9|7|534E44,9|20|FFFFFF,-10|15|D2D0CE,1|25|98958F,-5|22|484238",0,0.9,intX,intY
If intX > -1 Then//上述找图区域和颜色请按需编辑
Swipe 50, 377, 100, 377//消除音量界面
TracePrint "restarting main..."
Thread.Stop (h)//找到音量界面时重启线程（直接执行抢单）
Delay 300
h = Thread.Start(main)
End If
ReleaseCapture
Loop
Sub main()
Do
Call 抢单
Call 刷新
Loop
End Sub