vb如何做云服务器

Imports System.Net.Http
Imports System.Text
Imports Newtonsoft.Json

Public Class CloudServerManager
    Private client As HttpClient
    Private apiKey As String

    Public Sub New(apiKey As String)
        Me.apiKey = apiKey
        client = New HttpClient()
        client.DefaultRequestHeaders.Add("Authorization", "Bearer " & apiKey)
    End Sub

    Public Async Function ListServers() As Task(Of List(Of Server))
        Dim response = Await client.GetAsync("https://api.cloudprovider.com/servers")
        response.EnsureSuccessStatusCode()
        Dim content = Await response.Content.ReadAsStringAsync()
        Return JsonConvert.DeserializeObject(Of List(Of Server))(content)
    End Function

    Public Async Function CreateServer(name As String, flavor As String) As Task(Of Server)
        Dim serverData = New ServerCreationData With {
            .name = name,
            .flavor = flavor
        }
        Dim json = JsonConvert.SerializeObject(serverData)
        Dim content = New StringContent(json, Encoding.UTF8, "application/json")
        Dim response = Await client.PostAsync("https://api.cloudprovider.com/servers", content)
        response.EnsureSuccessStatusCode()
        Dim createdContent = Await response.Content.ReadAsStringAsync()
        Return JsonConvert.DeserializeObject(Of Server)(createdContent)
    End Function
End Class

Public Class Server
    Public Property id As String
    Public Property name As String
    Public Property status As String
End Class

Public Class ServerCreationData
    Public Property name As String
    Public Property flavor As String
End Class