第41课同时查找多张图片 - 《按键精灵9 · 经典教程》

紫猫 · 发表于 2022-4-10 20:47:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

教程内容介绍

按键精灵的FindPic默认只能查找一张图片，但是经过我们的封装改造，可以让他支持同时查找多张图片了。
通过同时查找多张图片的函数可以解决一些动态图查找等问题。

[按键精灵] 纯文本查看 复制代码

//高级例子
//介绍: 支持多个颜色的限时找色命令
//图片: 多张图片以|隔开, 直接写图片名时表示附件图片, 任何一张图片找到立即返回结果
//时长: 单位毫秒, 指定时间内循环查找, 找到立即返回
//返回: 返回数组数据, 格式为[x, y, 序号], 未找到返回[-1, -1, -1]
Function zmFindPic(x1, y1, x2, y2, 图片, 相似度, 时长)
    Dim pics, i, x, y, t
    zmFindPic = Array(-1, -1, -1)
    pics = Split(图片, "|")
    t = Plugin.Sys.GetTime()
    Do
        For i = 0 To UBound(pics)
            If InStr(pics(i), "\") = 0 Then pics(i) = "Attachment:\" & pics(i)
            FindPic x1, y1, x2, y2, pics(i), 相似度, x, y
            If x > - 1  Then
                zmFindPic = Array(x, y, i)
                Exit Function
            End If
        Next
        Delay 10
    Loop While 时长 > Plugin.Sys.GetTime() - t
End Function
 
//调用例子1: 3秒内在指定范围内查找附件里1.bmp或2.bmp图片, 任何一个找到都返回结果
Dim ret
ret = zmFindPic(0, 0, 400, 500, "1.bmp|2.bmp", 0.9, 3000)
If ret(0) > - 1  Then
    TracePrint "找到坐标x=" & ret(0) & ", 坐标y=" & ret(1) & ", 序号=" & ret(2)
Else
    TracePrint "没有找到"
End If
 
//调用例子2: 3秒内在指定范围内查找附件里1.bmp或C盘里的2.bmp图片, 任何一个找到都返回结果
ret = zmFindPic(0, 0, 400, 500, "1.bmp|C:\2.bmp", 0.9, 3000)
If ret(0) > - 1  Then
    TracePrint "找到坐标x=" & ret(0) & ", 坐标y=" & ret(1) & ", 序号=" & ret(2)
Else
    TracePrint "没有找到"
End If

用户名		自动登录	找回密码
密码			立即注册

第41课 同时查找多张图片 - 《按键精灵9 · 经典教程》

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

第41课同时查找多张图片 - 《按键精灵9 · 经典教程》