Я пытаюсь настроить заголовок аутентификации с VBA в Excel в соответствии со следующей документацией API веб-сайтов:
https://api.cardmarket.com/ws/documentation/API: Auth_OAuthHeader # OAuth_Header_and_Generating_a_Signature
Sub VBA_API()
Dim xml_obj As MSXML2.XMLHTTP60
Set xml_obj = New MSXML2.XMLHTTP60
xml_obj.Open "GET", "https://api.cardmarket.com/ws/v2.0/stock", False
xml_obj.setRequestHeader "oauth_consumer_key", "XXXXXXXXXXXXXXXX"
xml_obj.setRequestHeader "oauth_nonce", "53eb1f44909d6"
xml_obj.setRequestHeader "oauth_signature_method", "HMAC-SHA1"
xml_obj.setRequestHeader "oauth_timestamp", "1407917892"
xml_obj.setRequestHeader "oauth_token", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
xml_obj.setRequestHeader "oauth_version", "1.0"
xml_obj.send
Debug.Print xml_obj.Status
Debug.Print xml_obj.statusText
End Sub
Я получаю код статуса 403 Запрещено, но в соответствии с документацией на веб-сайтах используемый ресурс должен быть доступен для меня. У вас есть идеи, что может быть проблема с моим Auth_Header?
Спасибо за вашу помощь заранее.