android 多个按键精灵,给大家分享一个，按键精灵安卓版，找多图， 以及找多图返回多个坐标的，相信大家绝对用得到 _ 按键精灵手机版 - 按键精灵论坛...

大家感觉有用的回复多多支持一下，下面这个找图代码，是我平时写代码，都用到的，我感觉不错，毕竟用起来有大漠的感觉，哈哈

//TracePrint "--"

Dim 找图组合,图片数组(),intx,intY,dm_ret ,x,y,i,ss,index,count,sss

Function FindPicEx(找图组合)///返回多个坐标

//TracePrint 找图组合

///返回的是所有找到的坐标格式如下:"id,x,y|id,x,y..|id,x,y" (图片左上角的坐标)

// Dim dm_ret ,x,y,i

dm_ret =""

图片数组 = Split(找图组合, "|")

For i = 0 To UBOUND(图片数组)

x = 0

y=0///先赋值 x y 等于0

intx = 1

While intx > 0///如果有图片则继续循坏

FindPic 0, y,2000, 2000, "Attachment:" & 图片数组(i), "000000", 0, 0.9, intX, intY

If intx > 0 Then

// TracePrint intx,inty

dm_ret = dm_ret & "|" & i & "," & intx & "," & inty

y=0

y = y+inty+1

End If

// TracePrint y

Wend

Next

//去掉前面的 |符号

dm_ret = Right(dm_ret, Len(dm_ret) - 1)

// TracePrint DM_ret

FindPicEx= DM_ret

End Function

Sub 找多图(找图组合)///返回找到的任意一张图片 类似于大漠

Dim mu

图片数组 = Split(找图组合, "|")

mu=0

Do

If 图片数组(mu) = null///这里是确定数组成员数数量，因为按键精灵还没有PC版的 取素组成员数，所以我就用这个代替呐，

// TracePrint "该数组元素个数为：" & mu

Exit Do//

End If

mu = mu+ 1

Loop

For i = 0 To mu - 1///接着就很简单呐，直接每次循环一个递增

// TracePrint 图片数组(i)

FindPic 0, 0, 0, 0, "Attachment:" & 图片数组(i), "000000", 8, 0.98, intX, intY

// TracePrint intx

If intx > 0 Then

Exit For

End If

Next

// TracePrint intx

End Sub