今天好好看看客服端的内容
看了楼上,和高级开发文档试了下,计划任务里面,本机执行的,发现不行,但是下面的链接,放在浏览器里面是可以的
Dim hc As New HttpClient("https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=正确的API Key&client_secret=正确的Secret Key")
Dim result As String = hc.GetData()
msgbox(result) ’result=空
Dim json As String = result
Dim jo As JObject = JObject.Parse(json)
result = jo("access_token")
msgbox(result) ’result=空
Vars("token") = result
下面是连接访问结果
此主题相关图片如下:qq图片2018112510975433222.png
[此贴子已经被作者于2018/11/27 13:33:59编辑过]