Foxtable(狐表)用户栏目专家坐堂 → [求助]这段代码在我电脑上没有任何问题,在win xp 电脑上老是报错


  共有2640人关注过本帖树形打印复制链接

主题:[求助]这段代码在我电脑上没有任何问题,在win xp 电脑上老是报错

帅哥哟,离线,有人找我吗?
zto001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1483 积分:10551 威望:0 精华:0 注册:2018/10/16 11:42:00
[求助]这段代码在我电脑上没有任何问题,在win xp 电脑上老是报错  发帖心情 Post By:2019/12/28 20:45:00 [显示全部帖子]

[求助]这段代码在我电脑上没有任何问题,在win xp 电脑上老是报错

Dim 页面 As Integer
Dim hc As New HttpClient("https://jinshuju.net/api/v1/forms/Tqo8jR/entries")
hc.Accept = "application/json"
hc.Headers.Add("Authorization","Basic " + Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes("rU17h4PuYCqr7fd4YrRvbg:t8FjajwxQ8a3ikGjb_SK-w")))
hc.C
MessageBox.Show(hc.GetData())


这是返回的结果
'{"total":2,"count":2,"data":[{"serial_number":1,"field_1":"老两口","field_2":"15616185475","field_3":"老两口15616185475","x_field_weixin_nickname":"","x_field_weixin_gender":"","x_field_weixin_country":"","x_field_weixin_province_city":{},"x_field_weixin_openid":"","x_field_weixin_headimgurl":"","creator_name":"18570387961","created_at":"2019-12-23T12:59:54.295Z","updated_at":"2019-12-23T12:59:54.295Z"},{"serial_number":2,"field_1":"连连看","field_2":"15616161616","field_3":"换算几点呢看对方额回复的","x_field_weixin_nickname":"","x_field_weixin_gender":"","x_field_weixin_country":"","x_field_weixin_province_city":{},"x_field_weixin_openid":"","x_field_weixin_headimgurl":"","creator_name":"","created_at":"2019-12-25T04:54:21.588Z","updated_at":"2019-12-25T04:54:21.588Z"}],"next":null}


但是在xp电脑上什么都没返回
还出现这样的错误

.NET Framework 版本:4.0.30319.1022
Foxtable 版本:2019.12.17.18
错误所在事件:窗口,手机下单,AfterLoad
详细错误信息:
Error reading JObject from JsonReader. Path '', line 0, position 0.

.NET Framework 版本:4.0.30319.1022
Foxtable 版本:2019.12.17.18
错误所在事件:
详细错误信息:
The underlying connection was closed: An unexpected error occurred on a send.
Received an unexpected EOF or 0 bytes from the transport stream.







 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1483 积分:10551 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/12/28 20:46:00 [显示全部帖子]

Dim 页面 As Integer
Dim hc As New HttpClient("https://jinshuju.net/api/v1/forms/Tqo8jR/entries")
hc.Accept = "application/json"
hc.Headers.Add("Authorization","Basic " + Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes("rU17h4PuYCqr7fd4YrRvbg:t8FjajwxQ8a3ikGjb_SK-w")))
hc.ContentType = "application/json"
MessageBox.Show(hc.GetData()) 

 回到顶部