[教程源码] 实测 OCR 识别

/**  说明  ********************************************/

// 图片我是随便做的，你们可以去抓些图来测试

// 百度（普通）：每天免费 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 解决