半成品 百度云 Ocr 识别备注 转账金额
是之前在论坛找的 好像是拉面大佬转载的吧
忘记了. 小白没能力更新..
窗口卡死真的无语
小白没能力后期更新就发出来玩玩吧
如果有大佬感兴趣 优化下可以给我一份吗
.版本 2
.子程序 百度云OCR识别图片, 文本型, , 论坛大佬转载的帖子 忘记谁了...
.参数 图片, 字节集, , png、gif、jpg图片，尺寸不宜过大
.局部变量 XML对象, 对象
.局部变量 源代码, 字节集
.如果真 (XML对象.创建 (“Microsoft.XMLHTTP”, ) ＝ 假)
返回 (“”)
.如果真结束
XML对象.方法 (“open”, “POST”, “http://biji.baidu.com/inotes/api/hackathonocr”, 假, )
XML对象.方法 (“setRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
XML对象.方法 (“send”, “text=data:image/png;base64,iVBORw0KGg&sig=47E+gkykZJ8HIncF+XugDwalZmI2mtP/3jy6nVZNCDUAAAAAAAAAAAAAAAAAAAAA&body=data:image/png;base64,” ＋ 彗星URL编码 (Base64编码 (图片)))
处理事件 ()
返回 (取内容 (XML对象.读文本属性 (“responseText”, ))).版本 2
.支持库 spec
.子程序 转账识别, , , 转账识别转账识别转账识别
.局部变量 区域截图_金额, 字节集
.局部变量 返回文本_金额, 文本型
.局部变量 返回位置_金额, 精易_坐标
.局部变量 确认收钱_位置, 精易_坐标
.局部变量 聊天框_坐标, 精易_坐标
返回位置_金额 ＝ 阿信.找图_从句柄 (, #转账标识, , )
处理事件 ()
程序_延时 (200)
区域截图_金额 ＝ 图片_屏幕区域截图 (返回位置_金额.横 ＋ 46, 返回位置_金额.纵, 150, 30)
' 写到文件 (取特定目录 (#系统桌面) ＋ “1.jpg”, 区域截图)
图片框2.图片 ＝ 区域截图_金额
返回文本_金额 ＝ 百度云OCR识别图片 (区域截图_金额)
程序_延时 (500)
' 点击转账
鼠标_单击 (handwork, 返回位置_金额.横, 返回位置_金额.纵, 1)
调试输出 (“返回位置”, 返回位置_金额.纵)
处理事件 ()
程序_延时 (500)
确认收钱_位置 ＝ 阿信.找图_从句柄 (, #确认收钱, , )
处理事件 ()
程序_延时 (1000)
调试输出 (“确认收钱”, 确认收钱_位置.横)
.如果 (确认收钱_位置.横 ≠ -1)
' 点击收钱
鼠标_单击 (handwork, 确认收钱_位置.横, 确认收钱_位置.纵, 1)
程序_延时 (500)
处理事件 ()
键盘_单击 (#Esc键, 1)
处理事件 ()
程序_延时 (1000)
.否则
键盘_单击 (#Esc键, 1)
处理事件 ()
程序_延时 (1000)
.如果结束
.如果真 (选择框4.选中 ＝ 真)
' 领包回复
聊天框_坐标 ＝ 阿信.找图_从句柄 (, #聊天框, , )
程序_延时 (500)
调试输出 (“聊天框”, 聊天框_坐标.横)
鼠标_单击 (handwork, 聊天框_坐标.横, 聊天框_坐标.纵 ＋ 20, 1)
程序_延时 (500)
剪辑板_置文本 (领包回复)
键盘_组合按键 (#V键, #Ctrl键, , )
程序_延时 (500)
键盘_单击 (#回车键, 1)
处理事件 ()
.如果真结束
.如果真 (取文本左边 (返回文本_金额, 2) ＝ “00”)
返回文本_金额 ＝ “0.0” ＋ 取文本右边 (返回文本_金额, 1)
编辑框2.内容 ＝ 返回文本_金额
返回 ()
.如果真结束
返回文本_金额 ＝ 取文本左边 (返回文本_金额, 取文本长度 (返回文本_金额) － 2)
编辑框2.内容 ＝ 返回文本_金额本文链接：https://www.death-note.cn/notes-12.html 首发于阿信冲鸭，转载复制片段望签名。
