同问,我是手机上,卡在 找图失败这里了自己乱编的,可以借鉴下
Dim intX,intY
FindPic 0, 0, 0, 0, "Attachment:玩家对战.png", "000000", 0, 0.9, intX, intY
If intX >-1 And intY >-1 Then
Delay 1000
Tap intX+5, intY+5
Delay 1000
End If
Delay 10
FindPic 0, 0, 0, 0, "Attachment:学徒赛按钮.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX + 5, intY + 5
Delay 1000
End If
Delay 10
FindPic 0, 0, 0, 0, "Attachment:学徒赛单人赛按钮.png", "000000", 0, 0.9, intX, intY
If intX > 0 And intY >0 Then
Tap intX + 5, intY + 5
Delay 1000
End If
Delay 10
FindPic 736,1541,872,1892, "Attachment:开始游戏按钮.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX + 5, intY + 5
Delay 1000
End If
Delay 10
FindPic 0, 0, 0, 0, "Attachment:准备按钮.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intX + 5, intY + 5
Delay 1000
End If
Delay 10
KeepCapture
FindPic 0, 0, 0, 0, "Attachment:玩家对战.png", "000000", 0, 0.7, intX, intY
If intX > 0 And intY > 0 Then
//如果intX大于0,说明找颜色,IntX与IntY分别表示这颜色的位置坐标
TracePrint "找到图片,图片左上角点位置坐标:" & intX & "," & intY
Else
//否则
TracePrint "找图失败"
End If
ReleaseCapture