[按键精灵] 纯文本查看 复制代码
/** 说明 ********************************************/
// 图片我是随便做的，你们可以去抓些图来测试
// 百度（普通）：每天免费 50000 次
// 百度（高精）：每天免费 500 次
// 腾讯：目前免费，但不保证并发数，实名可能会好点，我是在没实名时测试的
/** 插件 ********************************************/
Import "zm.luae"
/** 变量 ********************************************/
Dim intI
Dim strRet
Dim strOcrId_B : strOcrId_B = "BBBBBBBBBB" // 这里是百度 apikey
Dim strOcrPw_B : strOcrPw_B = "BBBBBBBBBB" // 这里是百度 seckey
Dim strOcrId_T : strOcrId_T = "TTTTTTTTTT" // 这里是腾讯 AppID
Dim strOcrPw_T : strOcrPw_T = "TTTTTTTTTT" // 这里是腾讯 AppKey
/** 百度（普通） ************************************/
zm.OcrBaiDuInit(strOcrId_B, strOcrPw_B, "https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic")
For intI = 1 To 5
strRet = zm.OcrBaiDu(GetTempDir() & intI & ".png")
TracePrint "百度（普通）：" & strRet
Next
/** 百度（高精） ************************************/
zm.OcrBaiDuInit(strOcrId_B, strOcrPw_B, "https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic")
For intI = 1 To 5
strRet = zm.OcrBaiDu(GetTempDir() & intI & ".png")
TracePrint "百度（高精）：" & strRet
Next
/** 腾讯 ********************************************/
zm.OcrYouTuInit(strOcrId_T, strOcrPw_T)
For intI = 1 To 5
strRet = zm.OcrYouTu(GetTempDir() & intI & ".png")
TracePrint "腾讯：" & strRet
Next
/** 结果 ********************************************/
// 百度（普通）：精准度稍差
// 百度（高精）：精准度好
// 腾讯：精准度好，并发数有限常会卡住，但可以用 Do…Loop 解决
发表于 2018-8-11 08:35:46
