百度 签到脚本分享，有大发现！！

您所在的用户组无法下载或查看附件

出什么情况，没错i=3好像就卡了一会再继续，脚步那里写错了吗
流程
进入主界面-》》进入列表贴吧循环依次签到--》》进入签到页面->>判断-->>是否已经签过--》》没有执行签到
好奇怪，附上图上截图
求解，刚了解望高手解答
感谢



RunApp "com.baidu.tieba"

Dim 我的吧,选择,未签到,返回,已签到,A
Dim 签到 = ReadUIConfig("签到否")
DIM IntX=280
DIM IntY=580
DIM IntA=780
DIM IntB=580


我的吧 = "214|277|FF8533,253|283|FF8533,295|282|FF8533,324|277|FDFAF8"
选择 = Array(279,577)
已签到=Array(726,368,795,1111, "B46937","22|9|F5F2EF,35|17|F7F4F2")
未签到= Array(791,367, 961,1003, "B56D3D","45|4|B36836,90|-1|F7F4F2")
返回 = Array(59, 149)

//主程序
Call 是否进入界面(我的吧,0,0)
//进入列表贴吧循环依次选择
For i = 0 To 7
TracePrint i
IntY = 580 + i * 135
Tap IntX, IntY
Delay 3000
//判断是否已经签到过
A = 找签到(已签到,0,59, 149)
Delay 2000
//没有执行签到
If A = false Then
Call 找签到(未签到,1,59, 149)
TracePrint "哈哈"
End If
IntB = 580 + i * 135
Tap IntA, IntB
Delay 1500
A = 找签到(已签到,0,59, 149)
Delay 2000
If A = false Then
Call 找签到(未签到,1,59, 149)
TracePrint "签到啦"
End If
Next






KillApp "com.baidu.tieba"

Function 点击(数组)
Dim arr
arr = 数组
Tap arr(0), arr(1)
TracePrint "点击 "
End Function



Function 是否进入界面(色组,x坐标, y坐标)
Do
是否进入界面=False
Dim 对比
对比= CmpColorEx(色组, 0.9)
If 对比 = 1 Then
是否进入界面 = true
ShowMessage "已进入主界面"
TracePrint "已进入主界面"
Exit Do
Else
ShowMessage "不在主界面，请稍等"
TracePrint "不在主界面，请稍等"
Delay 1000
End If
Loop
End Function



Function 多点比色(坐标颜色组, 模式, x坐标, y坐标)
多点比色=False
Dim 对比结果
对比结果 = CmpColorEx(坐标颜色组, 0.9)
If 对比结果 = 1 Then
多点比色=true
If 模式 = 1 Then
Tap x坐标, y坐标
End If
End If
End Function
Function 单点比色(横坐标x, 纵坐标y,输出内容,颜色值)
单点比色=False
Dim 对比结果
对比结果 = CmpColor(横坐标x,纵坐标y,颜色值, 0.9)
If 对比结果 > -1 Then
单点比色=true
TracePrint "找到:" & 输出内容
End If
End Function


Function 找签到(数组,模式,X,Y)
找签到 = False
Dim arr,intX,intY
arr = 数组
FindMultiColor arr(0), arr(1), arr(2), arr(3), arr(4), arr(5), 0, 0.9, intX, intY
If intX > -1 Then
找签到 = True
If 模式 = 0 Then
delay 500
Tap X, Y
ShowMessage "已经签到"
End If
If 模式 = 1 Then
delay 500
Tap intX, intY
Delay 1500
Tap X, Y
Delay 500
End If

End If
End Function