从vb.net中的httpwebrequest获取Json响应

从vb.net中的httpwebrequest获取Json响应,json,vb.net,httpwebrequest,Json,Vb.net,Httpwebrequest,我正在处理一个旧的VB.NET(ASP.NET)网页,我需要获得HttpWebRequest调用的响应,如下所示: Dim s As HttpWebRequest Dim enc As UTF8Encoding Dim postdatabytes As Byte() s = httpWebRequest.Create("www.theurl.com/api") enc = New System.Text.UTF8Encoding() Dim PostData = "

我正在处理一个旧的VB.NET(ASP.NET)网页,我需要获得HttpWebRequest调用的响应,如下所示:

Dim s As HttpWebRequest
Dim enc As UTF8Encoding
Dim postdatabytes As Byte()
s = httpWebRequest.Create("www.theurl.com/api")
enc = New System.Text.UTF8Encoding()
Dim PostData = "grant_type=client_credentials"
postdata = postdata & "&client_id=" & ConfigurationManager.AppSettings("client_id")
postdata = postdata & "&client_secret=" & ConfigurationManager.AppSettings("client_secret")
postdata = postdata & "&audience=" & ConfigurationManager.AppSettings("audience")
postdatabytes = enc.GetBytes(postdata)
s.Method = "POST"
s.ContentType = "application/x-www-form-urlencoded"
s.ContentLength = postdatabytes.Length

Using stream = s.GetRequestStream()
      stream.Write(postdatabytes, 0, postdatabytes.Length)
End Using
Dim result = s.GetResponse()
response.write(result)

我遇到的问题是,我在写“result”时得到的不是Postman提供的Json字符串,而是响应:

有什么想法吗


谢谢

对于那些寻找答案的人,我通过添加以下代码使其工作:

Dim responsedata As Stream = result.GetResponseStream
Dim responsereader As StreamReader = New StreamReader(responsedata)
Dim xResponse = responsereader.ReadToEnd
Response.Write(xResponse)
谢谢

Dim responsedata As Stream = result.GetResponseStream
Dim responsereader As StreamReader = New StreamReader(responsedata)
Dim xResponse = responsereader.ReadToEnd
Response.Write(xResponse)