列子:
[按键精灵] 纯文本查看 复制代码
TracePrint SetDictEx(0, "Attachment:s1.txt")//设置附件中的s1.txt文档为1号字库
TracePrint UseDict(0)//使用1号字库文件,之后的找字、识别都在这个文件点阵中匹配
Dim 索引值,intX,intY
索引值 = FindStr(0,0,2000,2000,"长安","9f2e3f-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
Tap intX,intY
End If
索引值 = FindStr(0,0,2000,2000,"长安|洛阳","9f2e3f-000000",0.9,intX,intY)
If intX >= 0 and intY >= 0 Then
Tap intX,intY
End If
索引值 = FindStr(0,0,2000,2000,"长安|洛阳","9f2e3f-000000",0.9,intX,intY)
Select Case 索引值
Case 0
Traceprint "找到长安"
Case 1
Traceprint "找到洛阳"
End Select
|