如何在 VB.NET 中使用类似的 VBA 代码？

Question

I have this code which makes an http request and returns the result in VBA (Excel). Does anyone know how to do similar in VB.NET?

Sub GetRequest()

    MYURL = "xxx"
    Accesstoken = "xxx"

    'Send Request and get JSON Response
    Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")
    xmlhttp.Open "GET", myurl, False
    xmlhttp.setRequestHeader "Authorization", "Bearer " & AccessToken
    xmlhttp.Send
    JsonResponse = xmlhttp.responseText
    Debug.Print xmlhttp.responseText
    
    'Parse JSON
    Set Json = JsonConverter.ParseJSON(JsonResponse)
    Debug.Print xmlhttp.responseText

    Set xmlhttp = Nothing


End Sub

I'm new to VB.NET and mainly only use Excel VBA.

Answer 1

To send/receive HTTP requests/responses, typically you would use the HttpClient class ( documentation ). Specifically in this case you would:

1. Call the GetAsync method ( documentation ) to submit the request
2. Check the response's StatusCode ( documentation ) to verify that a successful response was returned (presumably an OK - 200 status)
3. If a successful response was returned, get the response's Content ( documentation )

Here is a function (untested) that should get you going in the right direction:

Imports System.Net
Imports System.Net.Http
Imports System.Threading.Tasks
Imports System.Text
'...
Private Async Function SendGet(url As String) As Task(Of String)
    Dim body = String.Empty
    Using client = New HttpClient
        Dim response = Await client.GetAsync(url)

        If (response.StatusCode = HttpStatusCode.OK) Then
            body = Await response.Content.ReadAsStringAsync()
        End If
    End Using
    Return body
End Function