http - MSXML2.XMLHTTP 发送方法适用于早期绑定(bind)，失败于后期绑定(bind)

Question

下面的代码有效。但是，如果我注释掉行 Dim objRequest As MSXML2.XMLHTTP 并取消注释行 Dim objRequest As Object 它会失败并显示错误消息:

The parameter is incorrect

为什么，我能做些什么(如果有的话)？

Public Function GetSessionId(strApiId, strUserName, strPassword) As String

    Dim strPostData As String

    Dim objRequest As MSXML2.XMLHTTP
    'Dim objRequest As Object '

    strPostData = "api_id=" & strApiId & "&user=" & strUserName & "&password=" & strPassword

    Set objRequest = New MSXML2.XMLHTTP
    With objRequest
        .Open "POST", "https://api.clickatell.com/http/auth", False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .send strPostData
        GetSessionId = .responseText
    End With

End Function

---

Corey，是的，我知道我必须这样做才能使我的代码在不引用 MSXML 类型库的情况下工作。这不是这里的问题。无论我是否使用

，使用 Dim objRequest As Object 时代码都会失败

使用引用设置 objRequest = NEW MSXML2.XMLHTTP，或者

在没有引用的情况下设置 objRequest = CreateObject("MSXML2.XMLHTTP")。

Answer 1

出于某种原因，这有效:

Dim strPostData As String
Dim objRequest As Object

strPostData = "api_id=" & strApiId & "&user=" & strUserName & "&password=" & strPassword

Set objRequest = New MSXML2.XMLHTTP
With objRequest
  .Open "POST", "https://api.clickatell.com/http/auth", False
  .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  .send (strPostData)
   GetSessionId = .responseText
End With

不要通过字符串连接构建 URL 编码的 strPostData，强烈建议使用 URL 编码函数:

strPostData = "api_id=" & URLEncode(strApiId) & _
              "&user=" & URLEncode(strUserName) & _
              "&password=" & URLEncode(strPassword)

VBA 中的 URLEncode() 函数的几个选择在这个线程中:How can I URL encode a string in Excel VBA?