vb get请求带json参数

在 VB.NET 中可以使用 System.Net.Http.HttpClient 发送 GET 请求并附带 JSON 参数。以下是一个示例代码：

Imports System.Net.Http
Imports System.Net.Http.Headers
Imports Newtonsoft.Json

' 定义要发送的 JSON 参数的类
Public Class Person
    Public Property Name As String
    Public Property Age As Integer
End Class

' 创建 HttpClient 实例
Dim client As New HttpClient()

' 设置请求头
client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/json"))

' 构造请求 URL
Dim url As String = "https://example.com/api/person"

' 构造要发送的 JSON 参数
Dim person As New Person With {
    .Name = "John",
    .Age = 30
}

' 将 JSON 参数序列化为字符串
Dim jsonString As String = JsonConvert.SerializeObject(person)

' 将 JSON 参数附加到 URL 中
url = $"{url}?json={Uri.EscapeDataString(jsonString)}"

' 发送 GET 请求
Dim response As HttpResponseMessage = Await client.GetAsync(url)

' 读取响应内容
Dim responseJson As String = Await response.Content.ReadAsStringAsync()

' 将响应内容转换为 VB.NET 对象
Dim result As Person = JsonConvert.DeserializeObject(Of Person)(responseJson)

在上述代码中，我们使用 HttpClient 发送了一个 GET 请求，并将要发送的 JSON 参数附加到了请求 URL 中。注意，在附加 JSON 参数时需要使用 Uri.EscapeDataString 方法对 JSON 字符串进行转义。