ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Парсинг полученного ответа
10 сообщений из 10, страница 1 из 1
Парсинг полученного ответа
    #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, 16:52
| Ответить | Цитировать | Написать  
Парсинг полученного ответа
    #39210417
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
если сервер возвращает json, то ты никак не получишь от сервера html - он просто не умеет этого делать.

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

пример есть?
...
Рейтинг: 0 / 0
07.04.2016, 17:15
| Ответить | Цитировать | Написать  
Парсинг полученного ответа
    #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, 17:19
| Ответить | Цитировать | Написать  
Парсинг полученного ответа
    #39210604
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
попробуй
Код: vbnet
1.
xmlHTTP.setRequestHeader "Accept", "text/html"
...
Рейтинг: 0 / 0
07.04.2016, 22:20
| Ответить | Цитировать | Написать  
Парсинг полученного ответа
    #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
07.04.2016, 22:21
| Ответить | Цитировать | Написать  
Парсинг полученного ответа
    #39211087
kos20
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kos20
Участник
Antonariy,

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

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


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


Но через некоторое время закрывается капчей. Никто такую задачку не решал? Или у такой задачи нет решения?
...
Рейтинг: 0 / 0
26.04.2018, 15:22
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Парсинг полученного ответа
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39210403&tid=2155078]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 154ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 314ms
total:  549ms
созд. / загр.: 549ms
x
x
Закрыть


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