Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Парсинг полученного ответа / 10 сообщений из 10, страница 1 из 1
07.04.2016, 16:52
    #39210403
kos20
kos20
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг полученного ответа
Все привет!
Решил по работе отпарсить сайтик один, все бы ничего, но ответ получаю не html, как подправить код, чтобы получить данные именно в html?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
Sub Main()
Dim xpl, xmlHTTP, adr, auth, rez, PostData

CompanyName = shd.Range("B1").value ' Сюда заносим название компании

    'Set xpl = Report.GetXPL()
    Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
    adr = "http://kad.arbitr.ru/Kad/SearchInstances"  ' ÐÀÍÜØÅ: adr = "http://kad.arbitr.ru/Kad/SearchInstances"
     
    PostData = "{""Page"":1,""Count"":25,""Courts"":[],""DateFrom"":null,""DateTo"":null,""Sides"":[{""Name"":""" & CompanyName & """,""Type"":-1,""ExactMatch"":false}],""Judges"":[],""CaseNumbers"":[],""WithVKSInstances"":false}"
        
    xmlHTTP.Open "POST", "http://kad.arbitr.ru/SearchInstances", "false"
    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; WOW64; Trident/7.0; rv:11.0) like Gecko"
    xmlHTTP.setRequestHeader "Host", "kad.arbitr.ru"
    xmlHTTP.setRequestHeader "Content-Length", CStr(Len(PostData))
    xmlHTTP.setRequestHeader "DNT", "1"
    xmlHTTP.setRequestHeader "Connection", "Keep-Alive"
    xmlHTTP.setRequestHeader "Cache-Control", "no-cache"
        
    xmlHTTP.send CStr(PostData)
    
    Do While xmlHTTP.readystate <> 4: WScript.Sleep 200: Loop
 
    rez = xmlHTTP.responseText
        Debug.Print rez
    MsgBox Len(rez) & " - " & rez
shd.Range("A10") = rez
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2016, 17:10
    #39210417
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг полученного ответа
если сервер возвращает json, то ты никак не получишь от сервера html - он просто не умеет этого делать.

форматирование в html происходит, как я понимаю, на клиенте. Так что либо сам форматируй json в html так, как тебе больше нравится. Либо выбрось весь этот код, используй для обращения к серверу компонент WebBrowser, заставь его получить нужный результат, дождись, когда он его отформатирует в html и потом считывай готовый html из браузера.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2016, 17:15
    #39210421
kos20
kos20
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг полученного ответа
Shocker.Pro,

пример есть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2016, 17:19
    #39210426
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг полученного ответа
http://www.sql.ru/forum/actualsearch.aspx?search=InternetExplorer.Application&sin=0&bid=22&a=&ma=0&dt=-1&s=1&so=1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2016, 22:20
    #39210604
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг полученного ответа
попробуй
Код: vbnet
1.
xmlHTTP.setRequestHeader "Accept", "text/html"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2016, 22:21
    #39210605
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг полученного ответа
плюс
Код: vbnet
1.
xmlHTTP.setRequestHeader "Content-Type", "text/html"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2016, 22:21
    #39210606
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг полученного ответа
или text/xml, если на html не отреагирует
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2016, 14:19
    #39211087
kos20
kos20
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг полученного ответа
Antonariy,

неа не пашет...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2016, 14:44
    #39211126
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг полученного ответа
kos20Antonariy,

неа не пашет...значит разбирать тот ответ, что есть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
26.04.2018, 15:22
    #39636814
energy75
energy75
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг полученного ответа
Прошу прощения за некропостинг.


Сегодня (апрель 18-го года), скрипт возвращает HTML.


Но через некоторое время закрывается капчей. Никто такую задачку не решал? Или у такой задачи нет решения?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Парсинг полученного ответа / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 156ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155078]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 11ms
total:  156ms
x
x
Закрыть


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