修改代码如下:
Dim intX, intY, 返回值
返回值 = FindPic(0, 0, 0, 0, "Attachment:c1.png|Attachment:g1.png|Attachment:h1.png|Attachment:s1.png|Attachment:sou1.png|Attachment:x1.png|Attachment:抽1.png", "101010", 0, 0.9, intX, intY)
If 返回值 > - 1 Then
TracePrint "找到的图片序号为" & 返回值 & ",坐标为" & intX & "," & intY
Select Case 返回值
Case 1
delay 200
Call c1()
Case 2
Call g1()
Case 3
Call h1()
Case 4
delay 200
Call s1()
Case 5
delay 200
Call sou1()
Case 6
delay 200
Call x1()
Case 7
Delay 250
Call chou1()
End Select
Else
TracePrint "全部没找到"
End If
if 第一张图片没有找到 then 找第二张图片end if