如何通过VB.net传递复杂的JSON对象来调用Rest API

Dim client As New HttpClient()

Dim jsonObject As New JObject()
jsonObject.Add("name", "John Doe")
jsonObject.Add("age", 30)
jsonObject.Add("email", "johndoe@example.com")

Dim jsonString As String = jsonObject.ToString()

Dim content As New StringContent(jsonString, Encoding.UTF8, "application/json")

Dim response As HttpResponseMessage = Await client.PostAsync("API_URL", content)
Dim responseContent As String = Await response.Content.ReadAsStringAsync()

Dim responseObject As JObject = JObject.Parse(responseContent)
Dim name As String = responseObject("name").ToString()
Dim age As Integer = Integer.Parse(responseObject("age").ToString())
Dim email As String = responseObject("email").ToString()