Dim intX,intY
FindColor 185, 50, 10, 1670, "2833CE",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "颜色已经找到，坐标："&intX&","&intY
Tap intX, intY
Else
TracePrint "颜色没找到"
End If
FindColor 185, 50, 10, 1670, "2833CE",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "颜色已经找到，坐标："&intX&","&intY
Tap intX, intY
Else
TracePrint "颜色没找到"
End If
