vb调用百度的OCR遇到的问题，求高人指点

sqhsqhli

在http://club.excelhome.net/thread-1394680-1-1.html  一贴中，有个调用百度OCR的实例（写在excel下，模块和类模块放在Word也是一样的），实际运行时不成功的。查看代码有这么一段
Url = "https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic"BaiduApiKey = "G1Lp3zD4Iojubagke4fWAAcu" '从百度申请
BaiduSecretKey = "L1TkdtIS4EdhRVsbll7VrOF5jk2U1w1y"
If "YES" = TokenExpireChk Then 'Token过期，则重新申请Token                   '我把这句直接注释掉           
Token = GetToken(BaiduApiKey, BaiduSecretKey, Token, expires_in)
If "" <> Token Then
    Url = "https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic?access_token=" & Token
Else
    Exit Function '重新申请Token失败
End If
Else    '我把这句直接注释掉
    Url = "https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic?access_token=" & TokenExpireChk 'Token未过期    '我把这句直接注释掉
End If    '我把这句直接注释掉

作用是调用百度OCR前要通过验证，百度的说明文档中指出根据BaiduApiKey和BaiduSecretKey  去申请Token，有了这个才能OCR。为此，我重新申请了BaiduApiKey和BaiduSecretKey 替换了上述代码中的，然后直接运行Token = GetToken(BaiduApiKey, BaiduSecretKey, Token, expires_in)   ，结果在GetToken函数里有句    Set p = JSON.parse(PostData)  不能通过，vb怎么调用JSON呢？？？ 下载相关的包也不能安装，是不是需要其他环境支持？     原文帖子中运行TokenExpireChk后认为Token是没过期的，这个结果对吗？？        求完整可用vb实例

sqhsqhli

还是自己花时间解决了
Function findtk(s As String) As String
Dim i As Integer
findtk = "access_token"
i = InStr(s, findtk)
findtk = Left(s, i + 13)
s = Replace(s, findtk, "")
findtk = ","
i = InStr(s, findtk)
findtk = Left(s, i - 1)
End Function