Добрый день. Пытаюсь загрузить картинку на vk.com с помощью VBA. описание контакта : 1. С помощью метода photos.getUploadServer приложение узнает http-адрес для загрузки фотографий в зависимости от альбома, в который их необходимо загрузить. 2. Приложение формирует POST-запрос на полученный адрес. Запрос должен содержать поля file1-file5, которые содержат файлы с изображениями (JPG, PNG, BMP или GIF).
В ответ приложение получает следующие данные в формате JSON:{"server": '1', "photos_list": '2,3,4', "album_id": '5', "hash": '12345abcde'}
Обратите внимание, что ответ сервера всегда приходит в формате JSON, а поля server, photos_list, album_id и hash в нем содержат строки, внутренний формат которых может изменяться со временем. В частности, строка photos_list может содержать другой json-объект, который не следует декодировать, разбирать на части или иным образом модифицировать. 3. С помощью метода photos.save приложение передает серверу полученные данные (server, photos_list, album_id и hash) и получает данные о загруженных изображениях.
И на втором пункте я туплю. картинку беру с сайта, в бинарном виде
Код
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP";)'
oXMLHTTP.Open "GET", "[URL=http://shop.april-group.ru/filesext/photo/foto1c/000021098.jpg]http://shop.april-group.ru/filesext/photo/foto1c/000021098.jpg[/URL]", 0 '
oXMLHTTP.send
Set oADOStream = CreateObject("ADODB.Stream";)
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
GetFilere = oXMLHTTP.responseBody
'потом пытаюсь ее отправить ,Upload_URL_post ,беру из ответа первого этапа
'Post the file data
Set XMLHTTP = CreateObject("Msxml2.XMLHTTP.4.0";)
XMLHTTP.Open "Put", Upload_URL_post, False
' xmlhttp.setRequestHeader "Content-Length", adoStream.Size
XMLHTTP.setRequestHeader "Content-Type", "content=multipart/form-data"
XMLHTTP.send "[B]file1="[/B]oXMLHTTP.responseBody
запрос проходит без ошибки , но картинка не загружается, в ответ получаю {"server":621920,"photos_list":"[]","aid":214749192,"hash":"b90adbd3726bd4bec243ff0db9aa3fca","gid":92833340}. Уже нет светлых идей что делать, прошу вашей помощь.