调用网上运行结果基本思路是什么，要掌握哪些知识点。

ning84

1.     Dim data, res, response() As Byte, Post_data, json As Object, i, orc_basic, orc_position
   
2.     Dim ii, Str
   
3.     data = "data:image/jpeg;base64," + Pic2Base64(selectfile(FileNameObj))
   
4.    
   
5.     orc_position = "https://aip.baidubce.com/rest/2.0/ocr/v1/accurate"     '含位置信息
   
6.     orc_basic = "https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic"  '不含位置信息
   
7.     Post_data = "image=" + URLEncode(data) + "&type=" + URLEncode(orc_position) + "&detect_direction=false"
   
8.     With CreateObject("WinHttp.WinHttpRequest.5.1")
   
9.         .Open "post", "https://ai.baidu.com/aidemo", False
   
10.         .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/99.0.4844.82 Safari/537.36"
    
11.         .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
12.         .SetRequestHeader "Referer", "https://ai.baidu.com/tech/ocr/general"
    
13.         .Send (Post_data)
    
14.         res = .responsetext
    
15.         'Debug.Print res
    
16.     End With
    
17.     Set json = JsonConverter.ParseJson(res)
    
18.    
    
19.     Debug.Print res
    
20.     Stop
    
21.     Set data = json("data")("words_result")

复制代码

调用网上运行结果基本思路是什么，要掌握哪些知识点。，如调用VBA方法，运行百度Ocr,结果自动返回到单元格内。