Pc微信转账记录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%3Aimage%2Fpng%3Bbase64%2CiVBORw0KGg&sig=47E%2BgkykZJ8HIncF%2BXugDwalZmI2mtP%2F3jy6nVZNCDUAAAAAAAAAAAAAAAAAAAAA&body=data%3Aimage%2Fpng%3Bbase64%2C” ＋ 彗星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.内容 ＝ 返回文本_金额