带有X-Auth-Token的VBA API POST

我有下面的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 

我不断收到这个错误：

“{”“error”“：”“您需要先login或注册才能继续。”“}”

Answer 1

添加身份validation可以使用您的Base 64授权（由基本授权API调用的用户名和密码生成）

只需添加以下内容：

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

例如。

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

（一个真实的身份validation码长度大约为50个字符）