以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  出现错误：基础连接已关闭  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104970)
--  作者：huangxueyao
--  发布时间：2017/8/9 13:59:00
--  出现错误：基础连接已关闭
之前已经提问过，系统是window 2003的，我做的系统在别的电脑可以用，在这个电脑上就出现这个错误。

然后按照回复，换了window xp系统了，安装了.net 2.0 sp2 ，但是还是报错，请问是什么情况~


图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20170809135729.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20170809135716.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2017/8/9 14:18:00
--  
 你连接数据库的连接字符串是怎么写的？贴出来看看。
--  作者：有点甜
--  发布时间：2017/8/9 14:22:00
--  

第二个错误，你窗口的AfterLoad事件写了什么代码？提示是因为你的json数据有问题，无法解释。
--  作者：huangxueyao
--  发布时间：2017/8/9 17:27:00
--  
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")
Dim jo As JObject = Jobject.Parse(hc.GetData)
If jo("access_token") IsNot Nothing Then
    Vars("access_token") = jo("access_token").ToString
Else
    msgbox("access_token获取失败,请联系***解决问题")
    e.form.Close
End If

不好意思，下午不在电脑旁
--  作者：有点甜
--  发布时间：2017/8/9 18:14:00
--  

看弹出什么 msgbox(hc.getData)

 

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

 

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

 

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

 

全局代码

 

Public Function CheckValidationResult(sender As Object, certificate As System.Security.Cryptography.X509Certificates.X509Certificate, chain As System.Security.Cryptography.X509Certificates.X509Chain, errors As System.Net.Security.SslPolicyErrors) As Boolean
 \' 总是接受   
 Return True
End Function

 

 

AfterOpenProject事件

 

System.Net.ServicePointManager.ServerCertificateValidationCallback = New System.Net.Security.RemoteCertificateValidationCallback(addressof CheckValidationResult)
--  作者：huangxueyao
--  发布时间：2017/8/9 18:47:00
--  
{"access_token":"d82e7daeda********c53d","expires_in":604800,"scope":"storage points reviews multi_store salesman pay_qrcode item user trade_advanced trade item_category logistics coupon_advanced shop coupon crm_advanced trade_virtual"}

直接浏览器就是返回上面这个，这个本来设计的没问题的啊，我在我电脑和另外几个电脑试过也可以，就是门店的那台不行。
--  作者：huangxueyao
--  发布时间：2017/8/9 19:00:00
--  
已经加上了这个全局代码，还是老样子，在我的电脑上没问题，安装到门店电脑就是不行
--  作者：有点甜
--  发布时间：2017/8/9 19:16:00
--  

执行弹出什么？

 

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)

 
--  作者：有点甜
--  发布时间：2017/8/9 19:20:00
--  

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

 

System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Ssl3
--  作者：huangxueyao
--  发布时间：2017/8/9 19:24:00
--  

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

 

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


这句代码放在哪里？