[已解决] 按键精灵手机版的问题 呼叫:瑞祥幽冥狼 老大 [复制链接]

首先很感谢我的上一个帖子 瑞祥幽冥狼 老大帮了我大忙,解决我的问题,现在我依旧想请教你,手机版的代码,也是借用你的代码,但是提示不对.Function 找图()


picpath=array("添加或编辑" )//这里添加多个图片的名字
找图 = False'开头声明False，找到等于true
Do
Dim intX, intY
For i=0 to UBound( picpath)'图片数组下标不能和次数i混用，i=10退出，图片只有4
FindPic 0, 0, 0, 0, "Attachment:\" & picpath(i) & ".png", "000000", 0,1, intX, intY
//如果没有找到，intX和intY的值都会被置为-1
If intX > -1 And intY > -1 Then
tap intX, intY
TracePrint "恭喜找到这张图片......"&picpath(i)
找图 = i'直接返回找到的下标
Exit Do //退出循环
Else
TracePrint "正在重新查找图片中......."&picpath(i)
End If
Next

Delay 300
Loop


End Function