Я пытаюсь отправить Json на удаленный сервер, чтобы получить ответ Json (в основном я отправляю им данные, они выполняют расчеты на основе моих данных и отправляют обратно разные данные). Однако вместо получения данных сервер сообщает мне, что запрос не прошел проверку подлинности.
Аутентификация включает в себя отправку строки в кодировке base64, имени пользователя и пароля вместе. Эти значения могут меняться, поэтому я использую переменные для передачи информации. Это не работает, однако, если я введу полностью закодированное значение в виде строки, оно работает.
Function GetAPdataPost(sSendHTML, sURL)
dim apHTTP
dim sHTTPResponse
dim API_KEY
dim API_PWD
dim auth
API_KEY = "fred"
API_PWD = "barney"
auth = Base64Encode(API_KEY