我需要幫助來獲得連接 API 的授權。給出的命令列是
curl -X GET "https://app.mysite.fr/api/v1/societe/11111111" -H "Authorization: Bearer 84dcc64aefabcdefghebcf7762752xx"
下面是我在 ms-access 中用 VBA 撰寫的代碼
Function GetAuthorization()
Dim objCurlHttp As Object
Dim strResult As String
Dim varReqToken As Variant
Dim strWebServiceUrl As String
Dim strOwnerKey As String
Dim strQry As String
strWebServiceUrl = "https://app.mysite.fr/api/v1/societe/11111111"
strOwnerKey = "84dcc64aefabcdefghebcf776275xx"
Set objCurlHttp = CreateObject("MSXML2.serverXMLHTTP")
With objCurlHttp
.Open "GET", strWebServiceUrl, False
.SetRequestHeader "cache-control", "no-cache"
.SetRequestHeader "Content-type", "application/json"
.SetRequestHeader "Content-type", "Accept"
.SetRequestHeader "Authorization", "Bearer " strOwnerKey
.Send
strResult = .ResponseText
Debug.Print strResult
End With
Set objCurlHttp = Nothing
End Function
這個結果是
? GetAuthorization() 未授權
提前非常感謝。
uj5u.com熱心網友回復：
您沒有透露檔案，但我嚴重懷疑它是否宣告了如圖所示的Accept標頭。所以試試：
.Open "GET", strWebServiceUrl, False
.SetRequestHeader "Content-type", "application/json"
.SetRequestHeader "Accept", "application/json"
.SetRequestHeader "Authorization", "Bearer " strOwnerKey
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/487650.html