百度AI图文识别示例(按键精灵源码)

Function BaiDuOCR(APIKey, SecretKey, ImgPath, OcrType)
    Dim http, ReJson, url, formStr, token,  PhotoBS, httpBody
    Dim xml_dom, Node, FileByteArrs, Stream, ReExpObj, Matches
    Dim adTypeBinary, adModeReadWrite, adTypeText
    adTypeBinary = 1
    adModeReadWrite = 3
    adTypeText = 2
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    Set sStream = CreateObject("ADODB.Stream")
    
    url = "https://aip.baidubce.com/oauth/2.0/token?"
    formStr = "grant_type=client_credentials&" & _
    "client_id=" & APIKey & "&" & _
    "client_secret=" & SecretKey & "&"
    
    With http
        .Open "POST", url
        .SetRequestHeader "Conent-Length", Len(formStr)
        .Send formStr
    End With
    ReJson = http.ResponseText
    
    Set ReExpObj = CreateObject(&#