如何在vb.net中将DTO传递给Rest API？

Imports System.Net.Http
Imports Newtonsoft.Json

' 创建DTO类
Public Class MyDTO
    Public Property Name As String
    Public Property Age As Integer
End Class

Public Class Program
    Public Shared Sub Main()
        ' 创建DTO对象
        Dim dto As New MyDTO()
        dto.Name = "John"
        dto.Age = 25

        ' 序列化DTO对象为JSON字符串
        Dim json As String = JsonConvert.SerializeObject(dto)

        ' 创建HTTP请求
        Dim client As New HttpClient()
        Dim url As String = "https://api.example.com/myapi"
        Dim request As New HttpRequestMessage(HttpMethod.Post, url)

        ' 添加DTO数据到请求主体
        request.Content = New StringContent(json, Encoding.UTF8, "application/json")

        ' 发送HTTP请求
        Dim response As HttpResponseMessage = client.SendAsync(request).Result

        ' 处理响应
        If response.IsSuccessStatusCode Then
            Dim responseJson As String = response.Content.ReadAsStringAsync().Result
            Dim result As MyDTO = JsonConvert.DeserializeObject(Of MyDTO)(responseJson)
            Console.WriteLine("Response: " & result.Name & ", " & result.Age)
        Else
            Console.WriteLine("Error: " & response.StatusCode)
        End If
    End Sub
End Class