使用VBA请求将值作为HTTP GET中的参数发送

Function sendGetRequest(url As String, Optional params As String = "") As String
    Dim http As Object
    Dim urlFull As String
    
    If params <> "" Then
        urlFull = url & "?" & params
    Else
        urlFull = url
    End If
    
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", urlFull, False
    http.Send
    
    If http.Status = 200 Then
        sendGetRequest = http.responseText
    Else
        sendGetRequest = "Error: " & http.Status & " " & http.statusText
    End If
    
    Set http = Nothing
End Function

Sub testSendGetRequest()
    Dim url As String
    Dim params As String
    Dim response As String
    
    url = "http://example.com/api"
    params = "param1=value1&param2=value2"
    
    response = sendGetRequest(url, params)
    
    MsgBox response
End Sub