Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA: MSXML2.XMLHTTP: экспорт данных на сайт / 4 сообщений из 4, страница 1 из 1
11.02.2015, 16:01
    #38877174
MartyMcFly
MartyMcFly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: MSXML2.XMLHTTP: экспорт данных на сайт
Здравствуйте, уважаемые. Пытаюсь написать макрос в Excel, который отправляет данные на страницу сайта методом POST:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub zapros()
Dim XMLHTTP As MSXML2.XMLHTTP
Set XMLHTTP = New MSXML2.XMLHTTP
    XMLHTTP.Open "POST", "https://crm.sotmarket.ru/modules/wms/router.php", True
    XMLHTTP.SetRequestHeader "Host", "crm.sotmarket.ru"
    XMLHTTP.SetRequestHeader "method", "POST"
    XMLHTTP.SetRequestHeader "path", "/modules/wms/router.php"
    XMLHTTP.SetRequestHeader "scheme", "https"
    XMLHTTP.SetRequestHeader "version", "HTTP/1.1"
    XMLHTTP.SetRequestHeader "accept", "*/*"
    XMLHTTP.SetRequestHeader "accept-encoding", "gzip, deflate"
    XMLHTTP.SetRequestHeader "accept-language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
    XMLHTTP.SetRequestHeader "content-length", "121"
    XMLHTTP.SetRequestHeader "content-type", "application/x-www-form-urlencoded; charset=UTF-8"
    XMLHTTP.SetRequestHeader "cookie", "rSid= ; cart_cid= ; mag_cook_client= ; customer_sid= ; sClientId_real= ; gtm_ucn=true; _ga=GA1.2.269322573.1422956517; __utma=28913251.269322573.1422956517.1422956518.1422967375.2; __utmc=28913251; __utmz=28913251.1422956518.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); organic=2; p_o=49208256; d_traf=11; tr=o; last_prod= ; l= ; cart=empty; stm_stat_page_views=8; stm_stat_page_time=2402; __utmt=1; __utma=80654149.725495024.1422951443.1423650898.1423657333.40; __utmb=80654149.2.10.1423657333; __utmc=80654149; __utmz=80654149.1422951443.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); last_login=; PHPSESSID="
    XMLHTTP.SetRequestHeader "origin", "https://crm.sotmarket.ru"
    XMLHTTP.SetRequestHeader "referer", "https://crm.sotmarket.ru/"
    XMLHTTP.SetRequestHeader "user-agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36"
    XMLHTTP.SetRequestHeader "x-requested-with", "XMLHttpRequest"
    
    XMLHTTP.Send "doc_id=30025&sklad_id=3&action=wms/productbarcodes/WmsProductsChangeOptionsXProduct.add_product&barcode=1985010702108"

End Sub


Нужно, баркод = 13цифр добавить в документ с номером 30025, в crm
Прилагаю скрин примера работы post запроса из chrome, часть cookie я стёр
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2015, 17:22
    #38877271
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: MSXML2.XMLHTTP: экспорт данных на сайт
это точно не нужно:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
    XMLHTTP.SetRequestHeader "Host", "crm.sotmarket.ru"
    XMLHTTP.SetRequestHeader "method", "POST"
    XMLHTTP.SetRequestHeader "path", "/modules/wms/router.php"
    XMLHTTP.SetRequestHeader "scheme", "https"
    XMLHTTP.SetRequestHeader "version", "HTTP/1.1"
    XMLHTTP.SetRequestHeader "accept", "*/*"
    XMLHTTP.SetRequestHeader "accept-encoding", "gzip, deflate"
    XMLHTTP.SetRequestHeader "accept-language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
    XMLHTTP.SetRequestHeader "content-length", "121"

а проблема, собственно, в чем?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2015, 11:03
    #38877724
MartyMcFly
MartyMcFly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: MSXML2.XMLHTTP: экспорт данных на сайт
Скрипт выполняется, но в документ ничего не добавляется. Может как то можно отследить ход его выполнения?
Извиняюсь за такие вопросы, я в vba новичок.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2015, 11:27
    #38877769
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: MSXML2.XMLHTTP: экспорт данных на сайт
MartyMcFly,

Посмотри, что возвращает XMLHTTP.responseText. Посмотри код возврата HTTP, соответствует ли всё тому, что возвращается в Chrome Developer Console. Может Куки не те передаёшь, или мало ли чего забыл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA: MSXML2.XMLHTTP: экспорт данных на сайт / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 429ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156035]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 299ms
total:  429ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]