带有X-8月-令牌的VBA API POST

Question

我有下面的curl代码，我正试图将它转换为用于excel的VBA。

   Endpoint : http://api.datadoctorit.com/email-validate
   Request Type : POST
   curl_setopt( $ch, CURLOPT_HTTPHEADER, array(
            'Content-Type: application/json',
            'Content-Length: ' . strlen( $data ),
            'X-Auth-Token: XXXXXXX'
        ) );

下面是我想出的代码：

Dim strURL As String
Dim hReq As WinHttpRequest: Set hReq = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim strResp As String
Dim Token As String
Token = mytoken
strURL = "http://api.datadoctorit.com/email-validate"
hReq.Open "POST", strURL, False
hReq.SetRequestHeader "Content-Type", "application/json"
hReq.Send "X-Auth-Token" & ":" & token
strResp = hReq.ResponseText
MsgBox strResp

我一直在犯这个错误：

{“错误”：“您需要在继续之前登录或注册。”}

Answer 1

添加身份验证可以使用Base 64授权完成(由基本授权API调用的用户名和密码生成)

只需添加以下内容：

hReq.setRequestHeader "Authorization", "Basic " & authCode

例如：

hReq.SetRequestHeader "Content-Type", "application/json"
hReq.setRequestHeader "Authorization", "Basic cHBzX2NyZWdJIYXAhjhjdjsfhjdshakjfdhakfhjk5c0AjMTZAY3JlZ"

(一个真正的Auth代码大约有50个字符长)