Dim ax,ay,bx,by,cx,cy,dx,dy
Do
FindPic 0, 0, 0, 0, "Attachment:截图1.png", "000000", 0, 1.0, ax, ay
FindPic 0, 0, 0, 0, "Attachment:截图2.png", "000000", 0, 1.0, bx, by
FindColor 210,832,549,955,"1C7F53",0,1.0, cx, cy
FindPic 0, 0, 0, 0, "Attachment:截图4.png", "000000", 0, 0.9, dx, dy
If ax > -1 And ay > -1 Then
Tap ax,ay
ElseIf bx > -1 And by > -1 Then
Tap bx,by
ElseIf ax = -1 and bx = -1 and dx = -1 and cx = -1 Then
TouchDown 700, 827, 1
TouchMove 700, 395, 1, 500
Delay 150
TouchUp 1
Delay 1000
ElseIf cx > -1 And cy > -1 Then
Tap cx,cy
ElseIf cx = -1 And cy = -1 Then
Exit Do
End If
Loop
截图1是找心，截图2是确定，找色是找下一页，截图4是点了心之后有个转圈的等待延迟