vba - 来自 Excel vba 在启用 ssl 的 url 上的 POST 请求

Question

我这里真的很纠结。我正在尝试从我的 Excel 进行身份验证登录调用，请在下面找到我的代码。

Sub Authen()
Dim qTestServ As New MSXML2.XMLHTTP 

With qTestServ
    .Open "Post", "https://testURL.com/oauth/token", False
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .SetRequestHeader "Authorization", "Basic encodedvalue="
    .Send ("grant_type=value&username=userOne&password=testing123")
    msgbox(.ResponseText)

    If Not .Status = 200 Then
        MsgBox "UnAuthorized"
        Exit Sub
    End If

End With

Set qTestServ = Nothing
End sub

请在下面找到添加到我的项目中的引用。

请在下面找到我收到的错误消息。

提前致谢!!!

Answer 1

感谢蒂姆·威廉姆斯的建议。

我使用 Dim qTestServ As New MSXML2.XMLHTTP 声明并将其更改为 Dim qTestServ As New MSXML2.ServerXMLHTTP

请在下面找到代码

Dim qTestServ As New MSXML2.ServerXMLHTTP

Sub Authen()
Dim qTestServ As New MSXML2.XMLHTTP 

With qTestServ
    .Open "Post", "https://testURL.com/oauth/token", False
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .SetRequestHeader "Authorization", "Basic encodedvalue="
    .Send ("grant_type=value&username=userOne&password=testing123")
    msgbox(.ResponseText)

    If Not .Status = 200 Then
        MsgBox "UnAuthorized"
        Exit Sub
    End If

End With

Set qTestServ = Nothing
End sub

请引用msxml6.dll: The download of the specified resource has failed.