{"Result":{"PagesCount":1,"Page":1,"PageSize":25,"TotalCount":1,"Items":[{"CaseId":"0b5f8c11-74c1-4c29-ae51-ac515424dcd0","CaseNumber":"А34-1796/2015","CaseType":"Г","CourtName":"АС Курганской области","Date":"2015-01-01T00:00:00","Plaintiffs":{"Count":1,"Participants":[{"Name":"Комитет по управлению муниципальным имуществом Администрации города Шадринска","Inn":"4502000330","Address":"641870, Россия, г Шадринск, Курганская обл, ул Свердлова, 59","OrganizationForm":null,"SubjectCategories":["f3dc4121-9ded-4ac4-b329-80bb06eef1c9"]}]},"Respondents":{"Count":1,"Participants":[{"Name":"ООО \"УК Энергострой\"","Inn":"4502026539","Address":"641878, Россия, г Шадринск, Курганская обл, ул. Октябрьская, 110","OrganizationForm":"5f468142-1394-4b88-88ac-8d79c4ba9600","SubjectCategories":["f3dc4121-9ded-4ac4-b329-80bb06eef1c9"]}]},"IsSimpleJustice":false,"Judge":"Асямолов В. В."}]},"Message":"","Success":true,"ServerDate":"2015-08-19T17:16:34","Timings":null}

Sub getinfo()
 Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
    xmlhttp.Open "POST", "http://kad.arbitr.ru/", "false"
    'xmlhttp.SetRequestHeader "Çàïðîñ", "POST /Kad/SearchInstances HTTP/1.1"
    xmlhttp.SetRequestHeader "x-date-format", "iso"
    xmlhttp.SetRequestHeader "Content-Type", "application/json"
    xmlhttp.SetRequestHeader "X-Requested-With", "XMLHttpRequest"
    xmlhttp.SetRequestHeader "Accept", "application/json, text/javascript, */*"
    xmlhttp.SetRequestHeader "Referer", "http://kad.arbitr.ru/"
    xmlhttp.SetRequestHeader "Accept-Language", "ru-RU"
    xmlhttp.SetRequestHeader "Accept-Encoding", "gzip, deflate"
    xmlhttp.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Trident/7.0; rv:11.0) like Gecko"
    xmlhttp.SetRequestHeader "Host", "kad.arbitr.ru"
    xmlhttp.SetRequestHeader "Content-Length", "162"
    xmlhttp.SetRequestHeader "DNT", "1"
    xmlhttp.SetRequestHeader "Connection", "Keep-Alive"
    xmlhttp.SetRequestHeader "Cache-Control", "no-cache"
    xmlhttp.SetRequestHeader "Cookie", "CUID=784f82f6-8a37-448a-833c-55c98b58b8a1:A8FzsrIpNSTAihM7ovXR9g==; __utma=228081543.708609631.1437807256.1439492003.1439851232.6; __utmz=228081543.1437807256.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); ASP.NET_SessionId=bseikmsxrvr1yadga3s5dgal; __utmb=228081543.2.10.1439851232; __utmc=228081543; __utmt=1"
    
    Dim POST() As Byte, PostData As String
    PostData = "Page=1&Count=25&Courts=[]&DateFrom=2015-01-01T00:00:00&DateTo=2015-01-01T23:59:59&Sides=[]&Judges=[]&CaseNumbers=[]&WithVKSInstances=false"
    'PostData = "DateFrom=2015-08-01T00:00:00&DateTo=2015-08-01T23:59:59"
    POST = StrConv(PostData, vbFromUnicode)
    
    xmlhttp.Send (POST)
    'xmlhttp.Send (PostData)
    Do While xmlhttp.readystate <> 4
    DoEvents
    Loop
    'If Val(xmlhttp.Status) <> 200 Then Exit Sub
    'If xmlhttp.Status = 200 Then
    MsgBox xmlhttp.ResponseText
    'End If
    Set xmlhttp = Nothing
    
              
End Sub

xmlhttp.SetRequestHeader "Content-Type", "application/json"

PostData = "Page=1&Count=25&Courts=[]&DateFrom=2015-01-01T00:00:00&DateTo=2015-01-01T23:59:59&Sides=[]&Judges=[]&CaseNumbers=[]&WithVKSInstances=false"

{"Page":1,"Count":25,"Courts":[],"DateFrom":"2015-01-01T00:00:00","DateTo":"2015-01-01T23:59:59","Sides":[],"Judges":[],"CaseNumbers":[],"WithVKSInstances":false}

PostData = "Page=1&Count=25&Courts=[]&DateFrom=2015-01-01T00:00:00&DateTo=2015-01-01T23:59:59&Sides=[]&Judges=[]&CaseNumbers=[]&WithVKSInstances=false"

PostData = ""

{"Result":"","Message":"","Success":true,"ServerDate":"2015-08-21T14:45:48","Timings":null}

PostData = "{"Page":1,"Count":25,"Courts":[],"DateFrom":"2015-01-01T00:00:00","DateTo":"2015-01-01T23:59:59","Sides":[],"Judges":[],"CaseNumbers":[],"WithVKSInstances":false}"