[源码分享] ocrEX封装的找字点击,新手可以直接拿去用 [复制链接]

import "zm.luae"
Function 本地_区域识字点击(参数,点击模式,延迟)//
Dim 临时 = ocrEx(参数[1],参数[2],参数[3],参数[4],参数[6],参数[7])
Dim x中心坐标,y中心坐标
本地_区域识字点击 = false
Dim 识别结果
For Each k , v In 临时
// TracePrint zm.VarInfo(v)
Dim 分割= Split(参数[5],"|")
For n = 1 To Len(分割)
If UTF8.InStr(1, v["text"], 分割[n]) > 0 Then
y中心坐标 = v["y"] + (v["h"]\2)
x中心坐标 = v["x"] + (v["w"] \ 2)
If 点击模式 = 1 Then //直接点击
zm.Tap x中心坐标, y中心坐标,延迟,"显示","@"&分割[n]
ElseIf 点击模式 = 2 Then
zm.Tap x中心坐标-3, y中心坐标-3,x中心坐标+3, y中心坐标+3,延迟,"显示","@"&分割[n]
ElseIf zm.type(点击模式) = "table" Then ///固定点击模式
zm.Tap 点击模式 ,延迟,"显示","@"&分割[n]
ElseIf zm.type(点击模式) = "string" Then ///偏移点击模式
分割 = Split(点击模式, ",")
x中心坐标 = x中心坐标 + int(分割[1])
y中心坐标 = y中心坐标 + int(分割[2])
zm.Tap x中心坐标,y中心坐标, 延迟, "显示", "@" & 分割[n]
ElseIf 延迟 <> null Then
Delay 延迟
End If
TracePrint v["text"]&"中心坐标:",x中心坐标, y中心坐标
本地_区域识字点击 = true
Exit Function
End If
Next
Next
End Function
参数说明:

本地_区域识字点击(参数数组,点击模式,延迟)
命令参数：	参数数组:                              [1][2][3][4]:识字范围 [5]:要找的字用"|"分割 [6]:识别模式 0：精准模式，1：快速模式 缺省为0                              [7]:语种 支持多语种，分隔符”,“，默认：”0”“0”：中文+英文“1”：中文“2”：英文                              点击模式: 1 :直接点击 2: 目标坐标小范围随机点击                              数组:{x,y}或者{x,y,x1,y1}点击指定坐标或者指定范围随机点击                              字符串: "+10,-10" 偏移点击                              延迟:可为null 或者毫秒