如何自动截取屏幕的固定区域上面的文字识别导出到表格 - 精易论坛

' 1. 找到目标窗口（假设是微信网页版窗口，通过标题/类名定位）
局部_窗口句柄＝窗口_取句柄_模糊 (“使用手机微信扫码登录”) ' 模糊匹配窗口标题

如果真 (局部_窗口句柄＝ 0)

信息框 (“未找到目标窗口！”, 0, )

返回 ()

' 2. 获取窗口区域坐标（或手动指定截图区域）
窗口_取位置 (局部_窗口句柄, 局部_左, 局部_顶, 局部_宽, 局部_高)
' 3. 截图并保存为临时文件
局部_截图路径＝取运行目录 () ＋ “\temp.png”
截图_窗口 (局部_窗口句柄, 局部_左, 局部_顶, 局部_宽, 局部_高, 局部_截图路径)

i支持库列表	支持库注释
spec	特殊功能支持库

' 百度OCR API地址（通用文字识别）
常量_百度OCR_URL ＝ “https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic”
' 函数：调用百度OCR识别图片文字

子程序名	返回值类型	公开	备注
识别图片文字	文本型		返回识别结果
参数名	类型	参考	可空	数组	备注
图片路径	文本型

' 1. 获取Access Token（需先替换API_KEY、SECRET_KEY）
局部_Token ＝百度OCR_GetToken (“API_KEY”, “SECRET_KEY”)  ' 自己实现Token获取逻辑（HTTP请求）
' 2. 图片转Base64编码
局部_Base64 ＝编码_BASE64编码 (到字节集 (读入文件 (图片路径)))
' 3. 构造POST请求数据
局部_请求数据＝ “image=” ＋编码_URL编码 (局部_Base64, 真) ＋ “&language_type=CHN_ENG”
' 4. 发送HTTP请求
局部_结果＝网页_访问_对象 (常量_百度OCR_URL ＋ “?access_token=” ＋局部_Token, 1, 局部_请求数据, , , , , , , , )
' 5. 解析JSON结果（提取文字）
局部_Json ＝解析JSON (局部_结果)
局部_识别文字＝ JSON_取通用值 (局部_Json, “words_result[0].words”)  ' 第一行文字
局部_识别文字＝局部_识别文字＋ #换行符＋ JSON_取通用值 (局部_Json, “words_result[1].words”)  ' 第二行文字
返回 (局部_识别文字)

i支持库列表	支持库注释
internet	互联网支持库

' 函数：写入文字到Excel

子程序名	返回值类型	公开	备注
写入Excel	逻辑型
参数名	类型	参考	可空	数组	备注
文字内容	文本型

变量名	类型	静态	数组	备注
Excel应用	Excel.Application
工作簿	Excel.Workbook
工作表	Excel.Worksheet

' 1. 创建Excel对象
Excel应用.创建 ()
工作簿＝ Excel应用.Workbooks.添加 ()
工作表＝工作簿.Worksheets.取 (1)
' 2. 拆分文字为行（按换行符分割）
局部_行数组＝分割文本 (文字内容, #换行符, )
' 3. 逐行写入表格

计次循环首 (取数组成员数 (局部_行数组), 局部_行号)

工作表.Cells (局部_行号, 1).Value ＝局部_行数组 [局部_行号]

计次循环尾 ()
' 4. 保存并关闭
工作簿.保存副本 (“识别结果.xls”)
工作簿.关闭 ()
Excel应用.Quit ()
返回 (真)

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库