展开全部
XY=Plugin.Color.FindMutiColorEx(0,0,1024,768,"D2CABF","1|1|D2CABF,3|5|D2CABF,3|6|D2CABF",1,0)
//多点找色A
ZB = InStr(XY,"|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X > 0 and Y > 0 Then
Call A
//如果多点A找到则执行操作A,否则找多点B
Else
XY=Plugin.Color.FindMutiColorEx(0,0,1024,768,"D2CABF","1|1|D2CABF,3|5|D2CABF,3|6|D2CABF",1,0)
//多点找色B
ZB = InStr(XY,"|")
X = Clng(Left(XY, ZB - 1)) : Y = Clng(Right(XY, Len(XY) - ZB))
If X > 0 and Y > 0 Then
Call B
End if
End If
Sub A
LeftClick 1
End Sub
Sub b
RightClick 1
End Sub
//多点找色A
ZB = InStr(XY,"|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X > 0 and Y > 0 Then
Call A
//如果多点A找到则执行操作A,否则找多点B
Else
XY=Plugin.Color.FindMutiColorEx(0,0,1024,768,"D2CABF","1|1|D2CABF,3|5|D2CABF,3|6|D2CABF",1,0)
//多点找色B
ZB = InStr(XY,"|")
X = Clng(Left(XY, ZB - 1)) : Y = Clng(Right(XY, Len(XY) - ZB))
If X > 0 and Y > 0 Then
Call B
End if
End If
Sub A
LeftClick 1
End Sub
Sub b
RightClick 1
End Sub
追问
Rem a
FindColor 144,0,450,93,"40A62B",x,y
FindColor 144,0,450,93,"2C8CFC",x1,y1
If x > 0 or y1 > 0 Then
MessageBox "找到"
Else
Goto a
End If
我自己写的。我只需要这样就好 你那个太复杂
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询