OCRImage-图片云识别工具（百度云版）(页 1) - VBS原创&转载 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

老刘1号 发表于 2018-6-12 13:35

OCRImage-图片云识别工具（百度云版）

最近正好要批量OCR一些PDF提取出来的图片，就写了一个，
用的是百度云OCR接口，腾讯云倒是也有这种接口，不过比较麻烦，还要实名认证，懒的折腾~
如果可以的话，希望可以放到第三方库里面@CrLf。
用法如下：
[quote]老刘封装——图像云OCR工具（百度云版，支持中英文混排）

用法：
CSCRIPT -NOLOGO OCRImage.VBS <APIKey>       <SecretKey>    <ImageFilePath>

APIKey                你创建的百度云人工智能应用所附带的APIKey
SecretKey             你创建的百度云人工智能应用所附带的SecretKey
ImageFilePath          图像文件的路径（支持相对路径）

百度云人工智能OCR：    [url=https://cloud.baidu.com/product/ocr]https://cloud.baidu.com/product/ocr[/url]

输出信息：
句柄1                OCR结果
句柄2                帮助、错误信息、执行耗时

注意：
一、不支持XP系统。
二、图片大小必须小于3M，建议小于1M。否则就会非常慢（VBS的锅，下次换Vb.Net），而且识别效果极差甚至无法识别（这是百度云的锅）。[/quote]
大家如果懒得注册百度云，添加应用，就先拿去用吧，反正5w次LZ用不完^_^
TsjtQn5zM9jjptHFjlOPwfQp kQnaefbF0PmAQOruq7hBbQZBd1MtWVl1
码云链接：[url=https://gitee.com/OldLiu001/codes/mwcqbtel2po8uf54xrzkh10]https://gitee.com/OldLiu001/codes/mwcqbtel2po8uf54xrzkh10[/url]
GitHub_Gist链接：
源码如下（ImageOCR.VBS，使用自制工具[url=http://www.bathome.net/thread-47323-1-1.html]VbsHighLight-Vbs代码着色工具[/url]上色）：
[color=Red][size=6]——————————————————[/size][/color]
[color=Green]Rem CODE BY OLDLIU[/color]
[color=DeepSkyBlue]Option[/color] [color=DeepSkyBlue]Explicit[/color]
[color=Red]Randomize[/color]

[color=DeepSkyBlue]Dim[/color] ExitCode
ExitCode [color=DarkOrange]=[/color] Main[color=DarkOrange]([/color][color=DarkOrange])[/color]
[color=Blue]WSH[/color][color=DarkOrange].[/color]Quit ExitCode

[color=DeepSkyBlue]Function[/color] Main[color=DarkOrange]([/color][color=DarkOrange])[/color]
[color=DeepSkyBlue]Const[/color] OCR_URL [color=DarkOrange]=[/color] [color=Gray]"https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic"[/color]
[color=DeepSkyBlue]If[/color] [color=Blue]WSH[/color][color=DarkOrange].[/color]Arguments[color=DarkOrange].[/color]Count [color=DarkOrange]=[/color] 3 [color=DeepSkyBlue]Then[/color]
      [color=DeepSkyBlue]Dim[/color] fso[color=DarkOrange],[/color]APIKey[color=DarkOrange],[/color]SecretKey[color=DarkOrange],[/color]Start_Time
      Start_Time [color=DarkOrange]=[/color] [color=Red]Timer[/color]
      [color=DeepSkyBlue]Set[/color] fso [color=DarkOrange]=[/color] [color=Red]CreateObject[/color][color=DarkOrange]([/color][color=Gray]"Scripting.FileSystemObject"[/color][color=DarkOrange])[/color]
      APIKey [color=DarkOrange]=[/color] [color=Blue]WSH[/color][color=DarkOrange].[/color]Arguments[color=DarkOrange]([/color]0[color=DarkOrange])[/color]
      SecretKey [color=DarkOrange]=[/color] [color=Blue]WSH[/color][color=DarkOrange].[/color]Arguments[color=DarkOrange]([/color]1[color=DarkOrange])[/color]
      [color=DeepSkyBlue]If[/color] fso[color=DarkOrange].[/color]FileExists[color=DarkOrange]([/color][color=Blue]WSH[/color][color=DarkOrange].[/color]Arguments[color=DarkOrange]([/color]2[color=DarkOrange])[/color][color=DarkOrange])[/color] [color=DeepSkyBlue]Then[/color]
         [color=DeepSkyBlue]Dim[/color] ImageFilePath[color=DarkOrange],[/color]Token
         ImageFilePath [color=DarkOrange]=[/color] fso[color=DarkOrange].[/color]GetFile[color=DarkOrange]([/color][color=Blue]WSH[/color][color=DarkOrange].[/color]Arguments[color=DarkOrange]([/color]2[color=DarkOrange])[/color][color=DarkOrange])[/color][color=DarkOrange].[/color]Path [color=Green]'处理相对路径[/color]
         Token [color=DarkOrange]=[/color] GetToken[color=DarkOrange]([/color]APIKey[color=DarkOrange],[/color]SecretKey[color=DarkOrange])[/color]
         [color=DeepSkyBlue]If[/color] Token [color=DarkOrange]<[/color][color=DarkOrange]>[/color] [color=Gray]"ERROR"[/color] [color=DeepSkyBlue]Then[/color]
            [color=DeepSkyBlue]With[/color] [color=Red]CreateObject[/color][color=DarkOrange]([/color][color=Gray]"HTMLFILE"[/color][color=DarkOrange])[/color]
                  [color=DarkOrange].[/color]ParentWindow[color=DarkOrange].[/color]execScript _
                  [color=Gray]"var ImageBase64String_URLEnc = encodeURIComponent('"[/color] [color=DarkOrange]&[/color] FileBase64Enc[color=DarkOrange]([/color]ImageFilePath[color=DarkOrange])[/color] [color=DarkOrange]&[/color] [color=Gray]"');"[/color]
                  [color=DeepSkyBlue]If[/color] [color=Red]Len[/color][color=DarkOrange]([/color][color=DarkOrange].[/color]ParentWindow[color=DarkOrange].[/color]ImageBase64String_URLEnc[color=DarkOrange])[/color] [color=DarkOrange]<[/color][color=DarkOrange]=[/color] 4[color=DarkOrange]*[/color]1024[color=DarkOrange]*[/color]1024 [color=DeepSkyBlue]Then[/color]
                     [color=DarkOrange].[/color]ParentWindow[color=DarkOrange].[/color]execScript _
                     [color=Gray]"var JSON = "[/color] [color=DarkOrange]&[/color] _
                     HTTP_POST[color=DarkOrange]([/color] _
                     OCR_URL [color=DarkOrange]&[/color] [color=Gray]"?access_token="[/color] [color=DarkOrange]&[/color] Token[color=DarkOrange],[/color] _
                     [color=Gray]"image="[/color][color=DarkOrange]&[/color] [color=DarkOrange].[/color]ParentWindow[color=DarkOrange].[/color]ImageBase64String_URLEnc [color=DarkOrange]&[/color] _
                     [color=Gray]"&language_type=CHN_ENG"[/color] [color=DarkOrange]&[/color] _
                     [color=Gray]"&detect_direction=false"[/color] [color=DarkOrange]&[/color] _
                     [color=Gray]"&detect_language=false"[/color] _
                     [color=DarkOrange])[/color]
                     [color=DeepSkyBlue]On[/color] Error [color=DeepSkyBlue]Resume[/color] [color=DeepSkyBlue]Next[/color]
                     [color=DeepSkyBlue]Dim[/color] Error_Code
                     Error_Code [color=DarkOrange]=[/color] [color=DarkOrange].[/color]ParentWindow[color=DarkOrange].[/color]JSON[color=DarkOrange].[/color]error_code
                     [color=DeepSkyBlue]If[/color] Error_Code [color=DarkOrange]=[/color] [color=DeepSkyBlue]Empty[/color] [color=DeepSkyBlue]Then[/color]
                        [color=DeepSkyBlue]On[/color] Error [color=DeepSkyBlue]Goto[/color] 0
                        [color=DeepSkyBlue]Dim[/color] i
                        [color=DeepSkyBlue]For[/color] i [color=DarkOrange]=[/color] 0 [color=DeepSkyBlue]To[/color] [color=DarkOrange].[/color]ParentWindow[color=DarkOrange].[/color]JSON[color=DarkOrange].[/color]words_result_num [color=DarkOrange]-[/color] 1
                              [color=Blue]WSH[/color][color=DarkOrange].[/color]Echo [color=Red]Eval[/color][color=DarkOrange]([/color][color=Gray]".ParentWindow.JSON.words_result.["[/color] [color=DarkOrange]&[/color] i [color=DarkOrange]&[/color] [color=Gray]"].words"[/color][color=DarkOrange])[/color]
                        [color=DeepSkyBlue]Next[/color]
                        Main [color=DarkOrange]=[/color] 0
                        [color=Blue]WSH[/color][color=DarkOrange].[/color]StdErr[color=DarkOrange].[/color]WriteLine [color=Gray]"成功，用时 "[/color] [color=DarkOrange]&[/color] [color=Red]Timer[/color] [color=DarkOrange]-[/color] Start_Time [color=DarkOrange]&[/color] [color=Gray]" sec。"[/color]
                     [color=DeepSkyBlue]Else[/color]
                        [color=DeepSkyBlue]On[/color] Error [color=DeepSkyBlue]Goto[/color] 0
                        Main [color=DarkOrange]=[/color] 5
                        [color=Blue]WSH[/color][color=DarkOrange].[/color]StdErr[color=DarkOrange].[/color]WriteLine [color=Gray]"Error! Code:"[/color] [color=DarkOrange]&[/color] Error_Code [color=DarkOrange]&[/color] [color=Gray]", msg:"[/color] [color=DarkOrange]&[/color] [color=DarkOrange].[/color]ParentWindow[color=DarkOrange].[/color]JSON[color=DarkOrange].[/color]error_msg
                     [color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]If[/color]
                  [color=DeepSkyBlue]Else[/color]
                     Main [color=DarkOrange]=[/color] 4
                     [color=Blue]WSH[/color][color=DarkOrange].[/color]StdErr[color=DarkOrange].[/color]WriteLine [color=Gray]"文件过大。"[/color]
                  [color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]If[/color]
            [color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]With[/color]
         [color=DeepSkyBlue]Else[/color]
            Main [color=DarkOrange]=[/color] 3
            [color=Blue]WSH[/color][color=DarkOrange].[/color]StdErr[color=DarkOrange].[/color]WriteLine [color=Gray]"APIKey或SecretKey有误。"[/color]
         [color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]If[/color]
      [color=DeepSkyBlue]Else[/color]
         Main [color=DarkOrange]=[/color] 2
         [color=Blue]WSH[/color][color=DarkOrange].[/color]StdErr[color=DarkOrange].[/color]WriteLine [color=Gray]"文件未找到。"[/color]
      [color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]If[/color]
[color=DeepSkyBlue]Else[/color]
      Main [color=DarkOrange]=[/color] 1
      [color=Blue]WSH[/color][color=DarkOrange].[/color]StdErr[color=DarkOrange].[/color]WriteLine [color=Gray]"老刘封装——图像云OCR工具（百度云版，支持中英文混排）"[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"用法："[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"CSCRIPT -NOLOGO OCRImage.VBS       <APIKey>       <SecretKey>       <ImageFilePath>"[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"APIKey                      你创建的百度云人工智能应用所附带的APIKey"[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"SecretKey             你创建的百度云人工智能应用所附带的SecretKey"[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"ImageFilePath             图像文件的路径（支持相对路径）"[/color][color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"百度云人工智能OCR：       [url=https://cloud.baidu.com/product/ocr]https://cloud.baidu.com/product/ocr[/url]"[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"输出信息："[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"句柄1                      OCR结果"[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"句柄2                      帮助、错误信息、执行耗时"[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"注意："[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"一、不支持XP系统。"[/color] [color=DarkOrange]&[/color] [color=Blue]vbNewLine[/color] [color=DarkOrange]&[/color] _
      [color=Gray]"二、图片大小必须小于3M，建议小于1M。否则就会非常慢（VBS的锅，下次换Vb.Net），而且识别效果极差甚至无法识别（这是百度云的锅）。"[/color]
[color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]If[/color]
[color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]Function[/color]

[color=DeepSkyBlue]Function[/color] HTTP_POST[color=DarkOrange]([/color][color=DeepSkyBlue]ByVal[/color] Address[color=DarkOrange],[/color][color=DeepSkyBlue]ByVal[/color] Args[color=DarkOrange])[/color]
[color=DeepSkyBlue]With[/color] [color=Red]CreateObject[/color][color=DarkOrange]([/color][color=Gray]"MSXML2.XMLHTTP"[/color][color=DarkOrange])[/color]
      [color=DarkOrange].[/color]Open [color=Gray]"POST"[/color][color=DarkOrange],[/color]Address[color=DarkOrange],[/color] [color=DeepSkyBlue]False[/color]
      [color=DarkOrange].[/color]SetRequestHeader [color=Gray]"CONTENT-TYPE"[/color][color=DarkOrange],[/color][color=Gray]"application/x-www-form-urlencoded"[/color]
      [color=DarkOrange].[/color]Send Args
      HTTP_POST [color=DarkOrange]=[/color] [color=DarkOrange].[/color]ResponseText
[color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]With[/color]
[color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]Function[/color]

[color=DeepSkyBlue]Function[/color] GetToken[color=DarkOrange]([/color][color=DeepSkyBlue]ByVal[/color] APIKey[color=DarkOrange],[/color][color=DeepSkyBlue]ByVal[/color] SecretKey[color=DarkOrange])[/color]
[color=DeepSkyBlue]Const[/color] GET_TOKEN_URL [color=DarkOrange]=[/color] [color=Gray]"https://aip.baidubce.com/oauth/2.0/token"[/color]
[color=DeepSkyBlue]On[/color] Error [color=DeepSkyBlue]Resume[/color] [color=DeepSkyBlue]Next[/color]
GetToken [color=DarkOrange]=[/color] _
[color=Red]Split[/color][color=DarkOrange]([/color] _
HTTP_POST[color=DarkOrange]([/color] _
GET_TOKEN_URL[color=DarkOrange],[/color] _
[color=Gray]"grant_type=client_credentials"[/color] [color=DarkOrange]&[/color] _
[color=Gray]"&client_id="[/color][color=DarkOrange]&[/color]APIKey [color=DarkOrange]&[/color] _
[color=Gray]"&client_secret="[/color] [color=DarkOrange]&[/color] SecretKey _
[color=DarkOrange])[/color] _
[color=DarkOrange],[/color][color=Gray]""[/color][color=Gray]""[/color][color=DarkOrange])[/color][color=DarkOrange]([/color]13[color=DarkOrange])[/color]
[color=DeepSkyBlue]If[/color] Err[color=DarkOrange].[/color]Number [color=DarkOrange]<[/color][color=DarkOrange]>[/color] 0 [color=DeepSkyBlue]Then[/color] GetToken [color=DarkOrange]=[/color] [color=Gray]"ERROR"[/color]
[color=DeepSkyBlue]On[/color] Error [color=DeepSkyBlue]Goto[/color] 0
[color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]Function[/color]

[color=DeepSkyBlue]Function[/color] FileBase64Enc[color=DarkOrange]([/color][color=DeepSkyBlue]ByVal[/color] strFilePath[color=DarkOrange])[/color]
[color=DeepSkyBlue]Dim[/color] fso[color=DarkOrange],[/color]WshShell[color=DarkOrange],[/color]TmpFilePath[color=DarkOrange],[/color]oReadFile
[color=DeepSkyBlue]Const[/color] ForReading [color=DarkOrange]=[/color] 1
[color=DeepSkyBlue]Const[/color] MyBirthDay [color=DarkOrange]=[/color] 1228
[color=DeepSkyBlue]Const[/color] WINDOW_HIDE [color=DarkOrange]=[/color] 0
[color=DeepSkyBlue]Set[/color] fso [color=DarkOrange]=[/color] [color=Red]CreateObject[/color][color=DarkOrange]([/color][color=Gray]"Scripting.FileSystemObject"[/color][color=DarkOrange])[/color]
[color=DeepSkyBlue]Set[/color] WshShell [color=DarkOrange]=[/color] [color=Red]CreateObject[/color][color=DarkOrange]([/color][color=Gray]"Wscript.Shell"[/color][color=DarkOrange])[/color]
TmpFilePath [color=DarkOrange]=[/color] fso[color=DarkOrange].[/color]GetSpecialFolder[color=DarkOrange]([/color]2[color=DarkOrange])[/color] [color=DarkOrange]&[/color] [color=Gray]"\"[/color] [color=DarkOrange]&[/color] [color=Red]Fix[/color][color=DarkOrange]([/color][color=Red]Rnd[/color] [color=DarkOrange]*[/color] MyBirthDay[color=DarkOrange])[/color] [color=DarkOrange]&[/color] [color=Gray]".TMP"[/color]
WshShell[color=DarkOrange].[/color]Run [color=Gray]"Certutil.EXE -ENCODE "[/color][color=Gray]""[/color] [color=DarkOrange]&[/color] strFilePath [color=DarkOrange]&[/color] [color=Gray]""[/color][color=Gray]" "[/color][color=Gray]""[/color] [color=DarkOrange]&[/color] TmpFilePath [color=DarkOrange]&[/color] [color=Gray]""[/color][color=Gray]""[/color] [color=DarkOrange],[/color]WINDOW_HIDE [color=DarkOrange],[/color][color=DeepSkyBlue]True[/color]
[color=DeepSkyBlue]Set[/color] oReadFile [color=DarkOrange]=[/color] fso[color=DarkOrange].[/color]OpenTextFile[color=DarkOrange]([/color]TmpFilePath[color=DarkOrange],[/color]ForReading[color=DarkOrange])[/color]
oReadFile[color=DarkOrange].[/color]ReadLine [color=Green]'跳过首行的”-----BEGIN CERTIFICATE-----“标志[/color]
[color=DeepSkyBlue]Dim[/color] Str
[color=DeepSkyBlue]While[/color] Str [color=DarkOrange]<[/color][color=DarkOrange]>[/color] [color=Gray]"-----END CERTIFICATE-----"[/color]
      FileBase64Enc [color=DarkOrange]=[/color] FileBase64Enc [color=DarkOrange]&[/color] Str
      Str [color=DarkOrange]=[/color] oReadFile[color=DarkOrange].[/color]ReadLine
[color=DeepSkyBlue]Wend[/color]
oReadFile[color=DarkOrange].[/color]Close
fso[color=DarkOrange].[/color]DeleteFile TmpFilePath
[color=DeepSkyBlue]End[/color] [color=DeepSkyBlue]Function[/color]
[color=Red][size=6]——————————————————[/size][/color]
如果这个工具帮到了您，您可以赞助我们，您的赞助就是我们最大的动力！
个人赞助：
[attach]11267[/attach]

CrLf 发表于 2018-6-12 20:54

已上传

kaze 发表于 2019-3-20 18:28

看不懂，太复杂了，不能处理在线地址图片，下载本地不符合绿色精神。还不是高精度识别，识别不好

老刘1号 发表于 2019-3-21 09:45

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=218462&ptid=48390]4#[/url] [i]kaze[/i] [/b]

就是套个api，没啥看懂看不懂的
高精度这个……百度的识别率貌似比起腾讯、搜狗、有道是最差的了，
所以换其它提供商的可能好些。
不能处理在线图片，这个确实不大方便，如果还有下次更新的话写个httpget处理一下

kaze 发表于 2019-3-21 13:40

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=218487&ptid=48390]5#[/url] [i]老刘1号[/i] [/b]

感谢回复，如果方便的话改成批处理调用JAVASCRIPT的形式，可移植到安卓tasker使用，话说网上有个py脚本识别的，也是看不懂怎么转化，折腾一天我放弃了:dizzy:

老刘1号 发表于 2019-3-21 19:08

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=218496&ptid=48390]6#[/url] [i]kaze[/i] [/b]

这个其实不用研究实现，直接看官方api接口文档就行了

holucan 发表于 2019-3-22 15:16

说到OCR这个，Google Drive也有此功能，貌似辨识率很高，
而且没有限制的样子，但就不晓得能不能这么用
弄成批量自动化想必很不错。

5i365 发表于 2019-4-30 12:47

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=209028&ptid=48390]1#[/url] [i]老刘1号[/i] [/b]

您好，本人小白，请问要修改的三个参数在哪里哪呢？能指一下吗，感谢！

5i365 发表于 2019-5-2 17:30

有大神愿意伸出援手吗？搞了三天了，还没搞定，提前感谢，:dizzy:
假设我的三个参数如下，我应该怎样改上面的代码呢？
APIKey 是123
SecretKey 是456
ImageFilePath 是c:\123.png

老刘1号 发表于 2019-5-2 18:13

[i=s] 本帖最后由老刘1号于 2019-5-2 18:26 编辑 [/i]

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=219783&ptid=48390]9#[/url] [i]5i365[/i] [/b]

调用方法是：cscript -nologo vbs 123 456 c:\123.png

测试了一下发现确实不能用了，去百度云官方查了一下文档发现Access token获取回来的参数添加了几个，原来参数的位置变了，而写获取token的时候偷懒用字符串分割代替了，所以获取到了错误的token，（大家引以为戒）
顶楼已经更新代码，不过还是不严谨的字符串截取+补救版（其实就是改了个数字），
准备用其它语言重写了，毕竟vbs太慢，顺便加一个位置精确识别功能，好直接转换为word

如果不是批量使用的话，建议用天若OCR，支持快捷键矩形选框截图识别，好几个识别接口，还有公式识别、表格识别等功能，比这个不知道强到哪去了

5i365 发表于 2019-5-3 05:07

[i=s] 本帖最后由 5i365 于 2019-5-3 05:11 编辑 [/i]

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=219784&ptid=48390]10#[/url] [i]老刘1号[/i] [/b]

[size=5]感谢大师回复，
我是一个批处理的小白，大师能再帮忙指导一下吗？我不想从其它文件中调用这些代码，我想将上面的代码，存成一个名为BaiduOCR.vbs的文件，然后将我的三个参数，写在上面代码的开头，当我双击这个VBS文件的时候，将识别的结果生成一个text文件到桌面上，这能实现吗？再次感谢！！！:)
非常感谢大师的源码分享，期待大师用其它语言编写的新作，我会一直关注你的！
[/size]

5i365 发表于 2019-5-3 14:35

[i=s] 本帖最后由 5i365 于 2019-5-3 14:36 编辑 [/i]

[size=5]本人前后用了四天时间，才让上面的代码有输出了！简真太笨了
我用白话说一下我是怎样做的，先把楼主的代码保存为OCRImage.VBS文件，然后在相同的目录下，新建一个 bat文件，文件的内容如下：

CSCRIPT -NOLOGO OCRImage.VBS "[color=Red]你的百度云APIKey[/color]" "[color=Red]你的百度云SecretKey[/color]" "[color=Red]你的图片文件路径[/color]"
pause

双击bat文件后，稍等一会儿，就出现了识别的结果
但是本人，目前还是不知道怎样把BAT的内容写在同一个VBS中的运行方法，希望各种高手，能指点一下，感谢[/size]

ppappa2001 发表于 2019-6-20 10:01

OCRImage.VBS 无法下载？？连接挂了？麻烦更新下

老刘1号 发表于 2019-6-20 17:15

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=221195&ptid=48390]13#[/url] [i]ppappa2001[/i] [/b]

你是认真的么？:)

页: [1]

批处理之家's Archiver

OCRImage-图片云识别工具（百度云版）