Добрый день. Третий день мучаю проблему и никак не могу разобраться.
Излазил много форумов, ответ найти не смог. Задача получить ответ с сайта ras arbitr ru.
Излазил много форумов, ответ найти не смог. Задача получить ответ с сайта ras arbitr ru.
Вот тот код, который написан:
| Код |
|---|
Sub arbitr()
Dim httpObject As Object
Dim
sGetResult As Variant
'Set
httpObject = CreateObject("MSXML2.XMLHTTP")
Set
httpObject = CreateObject("Msxml2.ServerXMLHTTP.6.0")
'Set
httpObject = CreateObject("WinHttp.WinHttpRequest.5.1")
httpObject.Open
"POST", "http://ras.arbitr.ru/Ras/Search", False
httpObject.setRequestHeader
"Host", "ras.arbitr.ru"
httpObject.setRequestHeader
"Connection", "keep-alive"
httpObject.setRequestHeader
"Content-Length", "201"
httpObject.setRequestHeader
"Accept", "application/json, text/javascript, */*"
httpObject.setRequestHeader
"X-Requested-With", "XMLHttpRequest"
httpObject.setRequestHeader
"User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64)
AppleWebKit/537.36 (KHTML, like Gecko) Chrome/85.0.4183.102 Safari/537.36"
httpObject.setRequestHeader
"Content-Type", "application/json" '; charset=utf-8"
httpObject.setRequestHeader
"Origin", "https://ras.arbitr.ru"
httpObject.setRequestHeader
"Sec-Fetch-Site", "same-Origin"
httpObject.setRequestHeader
"Sec-Fetch-Mode", "cors"
httpObject.setRequestHeader
"Sec-Fetch-Dest", "empty"
httpObject.setRequestHeader
"Referer", "https://ras.arbitr.ru/"
'httpObject.setRequestHeader
"Accept-Encoding", "gzip , deflate, br"
httpObject.setRequestHeader
"Accept-Language", "ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7"
httpObject.setRequestHeader
"Cookie", _
"ASP.NET_SessionId=lfd20vhxrqz1y01towgyovgz;
CUID=c1d8de6b-b120-4c38-80c5-b00314807c75:pYVAtsY2lnncvav/Ih/t5w==; __utmz=14300007.1642747586.1.1.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=(not%20provided);
__utmc=14300007; _ga=GA1.2.855320026.1642747586; tmr_lvidTS=1642747788613;
tmr_lvid=38f17b338dbe5024194dc13ad97f1368; _ym_uid=1642747789708820668;
_ym_d=1642747789;
pr_fp=e96f3347f23da682373ee1c149eda3ce025ec93c053a947e4fec828b166330d3;
is_agree_privacy_policy=true;
.ASPXAUTH=48089F490BB8A2ADF54199E1042EC1EB883678393734D8693A96228A0BBF176B5A39E8B407FA2E2F444B93CD3C2DB2FA1FE0F54E362A35A783E4789F221799A3936B92980E96D06D668526AA05362ADF1D2F83A3C32FB6745242F302BC63B4B0BBCE45B5;
_gid=GA1.2.517942562.1643617454;
__utma=14300007.855320026.1642747586.1643093404.1643635736.4;
KadLVCards=%d0%9041-58578%2f2021; _fbp=fb.1.1643636579482.1085817934;
_ym_isad=2; tmr_detect=0%7C1643693617619;
rcid=839229d1-138c-4f49-8920-cbe70a95b100;
wasm=d1ed79c6d1cdb40f83ada9318c1cd9b0; tmr_reqNum=65; _gat=1"
payload1 =
"{""GroupByCase"":false,""Count"":25,""Page"":1,""Courts"":[""ASMO""],""DateFrom"":""2000-01-01T00:00:00"",""DateTo"":""2030-01-01T23:59:59"",""Sides"":[],""Judges"":[],""Cases"":[],""Text"":""""}"
Dim
payload() As Byte
payload =
StrConv(payload1, vbFromUnicode)
httpObject.Send
(payload)
sGetResult =
httpObject.responseText
Debug.Print
sGetResult
Set
httpObject = Nothing
End Sub
|
В ответ на запрос через браузер получаю JSON с 25 записями о делах. В ответ на запрос из Excel получаю не связанную с payload информацию.
