ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA: MSXML2.XMLHTTP: экспорт данных на сайт
4 сообщений из 4, страница 1 из 1
VBA: MSXML2.XMLHTTP: экспорт данных на сайт
    #38877174
MartyMcFly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MartyMcFly
Гость
Здравствуйте, уважаемые. Пытаюсь написать макрос в 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, 16:01
| Ответить | Цитировать | Написать  
VBA: MSXML2.XMLHTTP: экспорт данных на сайт
    #38877271
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
это точно не нужно:

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

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


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