主题：出现错误：基础连接已关闭

 你连接数据库的连接字符串是怎么写的？贴出来看看。

第二个错误，你窗口的AfterLoad事件写了什么代码？提示是因为你的json数据有问题，无法解释。

看弹出什么 msgbox(hc.getData)

 

把弹出的内容复制粘贴上来看看。

 

直接在浏览器执行地址，得到的又是什么？

 

---------------------- 看是否此问题

 

执行弹出什么？

 

Dim hc As New HttpClient("https://open.youzan.com/oauth/token?client_id=73*******b&client_secret=76b********38&grant_type=silent&kdt_id=19****90")
msgbox(hc.getData)

 

试试在执行之前，执行下面这句代码

 

System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Ssl3

试试在afterOpenProject写

 

System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Ssl3

改成这样吧，应该是http是这样的访问有问题。

 

Dim hc As New HttpClient("http://open.youzan.com/oauth/token?client_id=73*******b&client_secret=76b********38&grant_type=silent&kdt_id=19****90")
msgbox(hc.getData)