Question

按键精灵 找图脚本，找到图执行点击后，不继续找图，

FindPic 0, 0, 1360, 768, "Attachment:\未合成.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击1818
End If
FindPic 0, 0, 1360, 768, "Attachment:\开始融合.bmp", 0.7, intX, intY
If intX > 0 And intY > 0 Then
Call 点击1818
End If
FindPic 0, 0, 1360, 768, "Attachment:\选择图谱.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
MoveTo intX+64, intY+64
LeftClick 1
End If
FindPic 0, 0, 1360, 768, "Attachment:\选择图谱戴里克.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击1818
End If
FindPic 0, 0, 1360, 768, "Attachment:\喂食.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Goto 循环喂食
End If
FindPic 0, 0, 1360, 768, "Attachment:\融合精灵.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击1818
End If
FindPic 0, 0, 1360, 768, "Attachment:\合成完毕.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击1818
End If
FindPic 0, 0, 1360, 768, "Attachment:\融合精灵珊瑚龙.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击1818
End If
FindPic 0, 0, 1360, 768, "Attachment:\融合精灵犀角龙.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击1818
End If

FindPic 0, 0, 1360, 768, "Attachment:\融合精灵洛克.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击1818
End If
FindPic 0, 0, 1360, 768, "Attachment:\融合精灵尼多拉.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击1818
End If
FindPic 0, 0, 1360, 768, "Attachment:\购买雷.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 购买雷
End If
FindPic 0, 0, 1360, 768, "Attachment:\购买木.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 购买木
End If
FindPic 0, 0, 1360, 768, "Attachment:\购买水.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 购买水
End If
FindPic 0, 0, 1360, 768, "Attachment:\购买火.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 购买火
End If

Answer 1

你把同一级别要找的图放入一个FOR循环(或者DO循环,找到后点击完直接退出循环，执行以后的脚本，那么这层的所有找图都不会再执行了)
For 1
FindPic 0, 0, 1360, 768, "Attachment:\购买雷.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击
Exit For
End If
FindPic 0, 0, 1360, 768, "Attachment:\购买木.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击
Exit For
End If
FindPic 0, 0, 1360, 768, "Attachment:\购买水.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击
Exit For
End If
FindPic 0, 0, 1360, 768, "Attachment:\购买火.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击
Exit For
End If
next
或者你把同一级要找的图 全部用Else 来表示，如果找到图以后Else是不会成立的~~

具体操作还是要根据你需要的逻辑来编写代码！

追问

这样么

FindPic 0, 0, 1360, 768, ".............
If intX > 0 And intY > 0 Then
Call 点击1818
End If
Else
FindPic 0, 0, 1360, 768, "..........
....
Else
FindPic 0, 0, 1360, 768, "...........

追答

差不多，
End If 要放到最后一个Else 的后面

追问

这个如果图太多，运行起来没问题么？一星图5个两个合成一个二星10个，三星50个四星1250五星.......

Answer 2

您好,大概思路如下
dim 地址(//图片数量)
地址(0)="Attachment:\未合成.bmp" : 地址(1)="Attachment:\开始融合.bmp"
For i = 0 to UBound(地址)
FindPic 0, 0, 1360, 768, 地址(i), 0.9, intX, intY
If intX > 0 And intY > 0 Then
Call 点击1818
End If
next

追问

这样建立循环么？

dim 一层（10）
.........................
dim 二层（10）
...........................

追答

不是啊,是dim 图片地址(0)..dim 图片地址(1)...以此类推.多少个图就赋值多少个数组

追问

这样不对么？要求是6星点击后执行5星，5星点击后执行4星........

追答

你定义的方式错误
dim 星6(2) //是数组了,意思是星6里面有三个数据了
应该定义 为
dim 星6(1)
你按变量的方式定义了.
或者直接直接不要(2),
dim 星6x=,星6y=

追问

星6(0)不算一个数据么？你把图片在标签页打开看看，dim 星6(2)执行了后怎么去执行dim 星5(8)》》》》或者dim 地址(100)
地址(0)="Attachment:\未合成.bmp" : 地址(1)="Attachment:\开始融合.bmp"............... : 地址(100)="Attachment:\融合.bmp"

追答

您好,星6(0)算一个数据,但你定义三个数据,只需定义到星6(2).
不然超出最大下标,得到空值容易报错.
您if用得不错,可以外面再嵌套一个循环,然后以数组的形式赋值.
多做几个判断就行了.祝顺利