如何用代码向第三方服务器发送Get请求，并获取返回的json - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何用代码向第三方服务器发送Get请求，并获取返回的json

共有2768人关注过本帖树形打印复制链接主题：如何用代码向第三方服务器发送Get请求，并获取返回的json

pc005637

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1039 积分：12926 威望：0 精华：0 注册：2011/5/29 15:19:00

如何用代码向第三方服务器发送Get请求，并获取返回的json 发帖心情

Post By：2019/3/29 16:51:00 [只看该作者]

对方返回的是

{

"message": "请求登录成功！",

"status": "success",

"sessionId": "4D78FB465F1137DCE9A4B1D9DD960D62"

}

这样子的数据，但我用HttpClient是会报错的。说明文档是用单引号的对方发来的是双引号的。

pc005637

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1039 积分：12926 威望：0 精华：0 注册：2011/5/29 15:19:00

之前有个获取post的例子。怎么样改成Get的？ 发帖心情

Post By：2019/3/29 16:53:00 [只看该作者]

Dim reqstr As String = Args(0)

Dim bodystr As String = Args(1)

Dim pos As object

try

Dim body As String = bodystr

Dim req = System.Net.WebRequest.Create(reqstr)

req.Method = "POST"

req.C

req.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:57.0) Gecko/20100101 Firefox/57.0"

Dim aryBuf As Byte() = Encoding.UTF8.GetBytes(body)

req.ContentLength = aryBuf.Length

Dim writer = req.GetRequestStream()

writer.Write(aryBuf, 0, aryBuf.Length)

writer.Close()

writer.Dispose()

pos = req.GetResponse

catch ex As System.Net.WebException

pos = ctype(ex.Response,System.Net.HttpWebResponse)

'Return "post错误"

End try

Dim stm As System.IO.Stream = pos.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

pos.Close

stm.Close

reader.close

Return str

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/29 19:38:00 [只看该作者]

1、用 HttpClient 为什么报错？报什么错？

2、直接用就行了吧

Dim pos As object
try
    Dim req = System.Net.WebRequest.Create("http://127.0.0.1/test.htm?key=123")
    req.Method = "get"
    pos = req.GetResponse
    Dim stm As System.IO.Stream = pos.GetResponseStream()
    Dim reader As New System.IO.StreamReader(stm)
    Dim str As String = reader.ReadToEnd
    pos.Close
    stm.Close
    reader.close
    msgbox(str)
catch ex As System.Net.WebException
    pos = ctype(ex.Response,System.Net.HttpWebResponse)
    'Return "post错误"
End try

下一主题 >> << 上一主题

主题：如何用代码向第三方服务器发送Get请求，并获取返回的json