• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.5
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][资源分享]----安卓本地文字识别收录贴----被峨眉山猴子暴... [复制链接]

1#
说明:本地文字识别(不带坐标版):

下载地址:
***** 该内容需您回复才可浏览 *****
本地识别(坐标版):

代码一览:
  1. Import "ShanHai.lua"
  2. //TracePrint 识别(0,0,0,0)
  3. //Call 点击("日志", 20, 50, 200, 200)
  4. //TracePrint 判断是否存在("日志", 20, 50, 200, 200)
  5. Do
  6. Call 点击("系统应用",11,173,554,446)
  7. Call 点击("设置", 11, 173, 554, 446)
  8. Delay 1000
  9. KeyPress "back"
  10. KeyPress "back"
  11. Loop

  12. Function 识别(x1, y1, x2, y2)
  13. SnapShot "/sdcard/N7.png",x1, y1, x2, y2
  14. Dim js="let ocrResult = ocr("""&"/sdcard/N7.png"&""");ocrResult!=null?JSON.stringify(ocrResult):false"
  15. Dim co="http://127.0.0.1:9999/script?js=" & ShanHai.CharToUrl(js)
  16. 识别=URL.Get(co, 6 * 10000)
  17. End Function
  18. Sub 点击(内容,x1, y1, x2, y2)
  19. Dim 识别结果,识别数组 ,分割1,分割2,分割3,x,y
  20. 识别结果 = 识别(x1, y1, x2, y2)
  21. //TracePrint 识别结果
  22. 识别数组 = GetStrAB(识别结果, "{", "}")
  23. For i = 0 To UBOUND(识别数组)-1
  24. //TracePrint 识别数组(i)
  25. If InStr(1, 识别数组(i), 内容) > 0 Then
  26. TracePrint 识别数组(i)
  27. 识别数组(i) = Replace(识别数组(i), "[[", "[")
  28. 识别数组(i) =Replace( 识别数组(i),"]]","]")
  29. 分割1 = GetStrAB(识别数组(i), "[", "]")
  30. //TracePrint 分割1(0),分割1(2)
  31. 分割2 = Split(分割1(0), ",")
  32. 分割3 = Split(分割1(2), ",")
  33. x = (分割3(0) - 分割2(0))/2+分割2(0)+x1
  34. y = (分割3(1) - 分割2(1))/2+分割2(1)+y1
  35. TracePrint int(x),int(y)
  36. Tap Int(x), Int(y)
  37. Delay 1000
  38. End If
  39. Delay 20
  40. Next
  41. End Sub
  42. Function 判断是否存在(内容, x1, y1, x2, y2)
  43. 判断是否存在=False
  44. Dim 识别结果,识别数组 ,分割1,分割2,分割3,x,y
  45. 识别结果 = 识别(x1, y1, x2, y2)
  46. //TracePrint 识别结果
  47. If InStr(1, 识别结果, "labelName" & Chr(34) & ":" & Chr(34) & 内容 & Chr(34)) > 0 Then
  48. 判断是否存在=True
  49. End If
  50. End Function
  51. //当前脚本第16行:"labelName":"log(调用(代码))","rect":[[2,1036],[209,1036],[209,1068],[2,1068]]
  52. Function GetStrAB(Str, StrA, StrB)
  53. Dim i,ArrStrA,Ck,分割
  54. ArrStrA=Split(Str,StrA)
  55. For i = 1 To UBOUND(ArrStrA)
  56. 分割=Split(ArrStrA(i),StrB)
  57. If InStr(1,ArrStrA(i), StrB) > 0 Then
  58. Ck = Ck & 分割(0) &"|||"
  59. End If
  60. Next
  61. GetStrAB=split( Ck,"|||")
  62. End Function
复制代码
下载地址:
***** 该内容需您回复才可浏览 *****

最后编辑瑞祥幽冥狼 最后编辑于 2022-03-09 22:24:51
本主题由 超级版主 瑞祥幽冥狼 于 2022/4/19 16:34:34 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

谢谢分享谢谢分享谢谢分享

3#

前排沙发

4#

学习下

5#

666666

6#


7#

卓本地文字识别收录贴

8#

谢谢分享谢谢分享谢谢分享

9#

啦啦啦,我来啦

10#

感谢分享 学习一下

11#

特来支持狼哥

12#

111111111111111111111111111111111111

635787403
13#

谢谢分享谢谢分享谢谢分享

熊家班熊叫兽
14#

谢谢分享谢谢分享谢谢分享

15#

还是新手,如果这个带注解就好了

16#

学习一下~

17#


18#

这是什么高科技

19#

6666666

20#

谢谢分享 ,学习了

发新话题 回复该主题