FindPic ,"0,0,1024,768Attachment:\图片1.bmp",0.9,intX,intY
FindPic ,0,0,1024,768"Attachment:\图片2.bmp",0.9,intX1,intY
If intX > 0 And intY > 0 Then
Call 找怪()
End If
If intX1 > 0 And intY1 > 0 Then
Call 自动点击
End If
Sub 找怪()
FindColorEx 0,0,1024,768,"0085ff",2,0.9,intX2,intY2
If intX2 > 0 And intY2 > 0 Then
MoveTo intx2, intY2-15
LeftClick 1
End If
End Sub
Sub 自动点击()
XY=Plugin.ColorEx.FindMultiColor(,0,0,1024,768"FFFFFF","16|0|FFFFFF,-1|1|FFFFFF,17|1|FFFFFF,-1|2|FFFFFF,3|2|FFFFFF,4|2|FFFFFF,5|2|FFFFFF,10|2|FFFFFF,11|2|FFFFFF,17|2|FFFFFF,-4|9|FFFFFF,2|9|FFFFFF,6|9|FFFFFF,9|9|FFFFFF,12|9|FFFFFF,17|9|FFFFFF,-4|10|FFFFFF,2|10|FFFFFF,3|10|FFFFFF,4|10|FFFFFF,5|10|FFFFFF,6|10|FFFFFF,10|10|FFFFFF,11|10|FFFFFF,17|10|FFFFFF,-5|11|FFFFFF,16|11|FFFFFF",1,0)
ZB = InStr(XY,"|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
MoveTo X, Y
LeftClick 1
End Sub
以上是脚本代码
达人 大神看看 还有错误的代码吗 或者精简的
想在自动点击 子程序内再加一个多点找色 怎么弄
程序结束返回开头 怎么加代码