vb 代码 调用带有json body的get请求接口

一般来说，GET 请求不应该带有 JSON body，因为 GET 请求的参数应该在 URL 中进行传递。但是，如果你确实需要在 GET 请求中带有 JSON body，可以使用以下代码：

' 创建一个 HTTP 请求
Dim request As HttpWebRequest = WebRequest.Create("https://example.com/api/get?param=value")

' 设置请求方法为 GET
request.Method = "GET"

' 在请求头中设置 Content-Type
request.ContentType = "application/json"

' 设置请求体
Dim requestBody As String = "{""name"":""John"",""age"":30}"
Dim bytes As Byte() = Encoding.UTF8.GetBytes(requestBody)
request.ContentLength = bytes.Length
Using requestStream As Stream = request.GetRequestStream()
    requestStream.Write(bytes, 0, bytes.Length)
End Using

' 发送请求并获取响应
Dim response As HttpWebResponse = request.GetResponse()
Dim responseStream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(responseStream)
Dim responseData As String = reader.ReadToEnd()

' 输出响应结果
Console.WriteLine(responseData)

在上面的代码中，我们创建了一个 GET 请求，并设置了请求体。注意，我们在请求头中设置了 Content-Type 为 application/json，表示请求体是一个 JSON 格式的数据。然后，我们使用 GetRequestStream 方法获取请求流，并将请求体写入流中。最后，我们发送请求并获取响应，输出响应结果。