FoxClub Forums > Visual Foxpro, Foxpro for DOS > :) и снова поиск на focus.kontur.ru ::

• Войти

:) и снова поиск на focus.kontur.ru
Равиль Автор Сообщений: 6554 Откуда: Уфа Дата регистрации: 01.08.2003	Равиль 15.06.18 10:06:58 Всем привет ! Перестал работать запрос - "Страница устарела ... " - без вашей помощи мне не справиться )) Set Safety Off tcParam = "https://focus.kontur.ru/search?country=RU&query=7724261610" && например Почта России loXMLHTTP = Createobject("MSXML2.XMLHTTP.6.0") With loXMLHTTP .Open("GET", m.tcParam) .setRequestHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,/;q=0.8") .setRequestHeader("Content-Type", "application/x-www-form-urlencoded") .setRequestHeader("Accept-Language", "ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3") .setRequestHeader("Accept-Encoding", "gzip, deflate") .setRequestHeader("Connection", "keep-alive") .Send() Wait Window " .. Ждите .. " Noclear Timeout 0.2 Do While .readyState <> 4 Wait Window " .. Ждите .. " Noclear Timeout 0.2 DoEvents Enddo If .statustext = "OK" lcBody = loXMLHTTP.responseText Strtofile(m.lcBody, "test.htm") Modify File test.htm Endif Endwith ------------------ Тяжело согнать курсором муху с монитора ...

Равиль
Автор

Сообщений: 6554
Откуда: Уфа
Дата регистрации: 01.08.2003

Равиль

15.06.18 10:06:58

Всем привет !
Перестал работать запрос - "Страница устарела ... " - без вашей помощи мне не справиться ))


Set Safety Off

tcParam = "https://focus.kontur.ru/search?country=RU&query=7724261610" && например Почта России

loXMLHTTP = Createobject("MSXML2.XMLHTTP.6.0")

With loXMLHTTP

    .Open("GET", m.tcParam)
    .setRequestHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8")
    .setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    .setRequestHeader("Accept-Language", "ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3")
    .setRequestHeader("Accept-Encoding", "gzip, deflate")
    .setRequestHeader("Connection", "keep-alive")

    .Send()

    Wait Window " .. Ждите .. " Noclear Timeout 0.2

    Do While .readyState <> 4
        Wait Window " .. Ждите .. " Noclear Timeout 0.2
        DoEvents
    Enddo

    If .statustext = "OK"

        lcBody = loXMLHTTP.responseText

        Strtofile(m.lcBody, "test.htm")
        Modify File test.htm

    Endif

Endwith

------------------
Тяжело согнать курсором муху с монитора ...

Re: :) и снова поиск на focus.kontur.ru
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 16.06.18 13:20:35 Добавь заголовок, что мол ты - браузер, и будет возвращать HTML-текст. .setRequestHeader("User-Agent", "Mozilla/5.0") ПС. Да, картинка стала совсем другая, может не парсить ее, а прямо показать юзеру в браузере... Доб.А, еще оказалось, что она по ИНН уже не ищет, а твой запрос вернет нечто, с кодом 500, но с ОГРН, и вот вторичный запрос с ОГРН уже вернет страничку с данными. По прежнему, куки не обязательны, вполне доброжелательный "сервис" Часть текста скрыта Закрыть Исправлено 3 раз(а). Последнее : of63, 16.06.18 14:15

Re: :) и снова поиск на focus.kontur.ru

of63

Сообщений: 25256
Откуда: Н.Новгород
Дата регистрации: 13.02.2008

of63

16.06.18 13:20:35

Добавь заголовок, что мол ты - браузер, и будет возвращать HTML-текст.
.setRequestHeader("User-Agent", "Mozilla/5.0")

ПС. Да, картинка стала совсем другая, может не парсить ее, а прямо показать юзеру в браузере...

Доб.А, еще оказалось, что она по ИНН уже не ищет, а твой запрос вернет нечто, с кодом 500, но с ОГРН, и вот вторичный запрос с ОГРН уже вернет страничку с данными. По прежнему, куки не обязательны, вполне доброжелательный "сервис"

Часть текста скрыта

Исправлено 3 раз(а). Последнее : of63, 16.06.18 14:15

Re: :) и снова поиск на focus.kontur.ru
Равиль Автор Сообщений: 6554 Откуда: Уфа Дата регистрации: 01.08.2003	Равиль 18.06.18 01:44:05 Олег, приветствую ! Спасибо за ответ ! of63 Добавь заголовок, что мол ты - браузер, и будет возвращать HTML-текст. .setRequestHeader("User-Agent", "Mozilla/5.0") Добавил, но увы - тот же ответ - рубят где-то еще - у тебя точно из фокса запрос отработал ? of63 ПС. Да, картинка стала совсем другая, может не парсить ее, а прямо показать юзеру в браузере... Это как вариант - есть у меня, но подходит не для всех случаев - например на серваке терминалов юзерам браузер нельзя of63 Доб.А, еще оказалось, что она по ИНН уже не ищет, а твой запрос вернет нечто, с кодом 500, но с ОГРН, и вот вторичный запрос с ОГРН уже вернет страничку с данными. По прежнему, куки не обязательны, вполне доброжелательный "сервис" Эх, похоже что халява заканчивается, тем более - они свой api продвигают - недешевый kontur.ru Ну ладно завтра еще погоняю на работе )) ------------------ Тяжело согнать курсором муху с монитора ...

Re: :) и снова поиск на focus.kontur.ru

Равиль
Автор

Сообщений: 6554
Откуда: Уфа
Дата регистрации: 01.08.2003

Равиль

18.06.18 01:44:05

Олег, приветствую ! Спасибо за ответ !

of63
Добавь заголовок, что мол ты - браузер, и будет возвращать HTML-текст.
.setRequestHeader("User-Agent", "Mozilla/5.0")

Добавил, но увы - тот же ответ - рубят где-то еще - у тебя точно из фокса запрос отработал ?

of63
ПС. Да, картинка стала совсем другая, может не парсить ее, а прямо показать юзеру в браузере...

Это как вариант - есть у меня, но подходит не для всех случаев - например на серваке терминалов юзерам браузер нельзя

of63
Доб.А, еще оказалось, что она по ИНН уже не ищет, а твой запрос вернет нечто, с кодом 500, но с ОГРН, и вот вторичный запрос с ОГРН уже вернет страничку с данными. По прежнему, куки не обязательны, вполне доброжелательный "сервис"

Эх, похоже что халява заканчивается, тем более - они свой api продвигают - недешевый

kontur.ru

Ну ладно завтра еще погоняю на работе ))

------------------
Тяжело согнать курсором муху с монитора ...

Re: :) и снова поиск на focus.kontur.ru
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 18.06.18 08:53:41 GET /entity?query=1037724007276 По ОГРН работает В два этапа теперь надо: 1) search?country=RU&query=7724261610 - получаем в ответ ОГРН 1037724007276 2) entity?query=1037724007276 Я еще не приделал в нашу прогу, но у нас еще через egrul.nalog.ru есть кнопка, но там с набором капчи, сложнее.

Re: :) и снова поиск на focus.kontur.ru

of63

Сообщений: 25256
Откуда: Н.Новгород
Дата регистрации: 13.02.2008

of63

18.06.18 08:53:41

GET /entity?query=1037724007276
По ОГРН работает
В два этапа теперь надо:
1) search?country=RU&query=7724261610 - получаем в ответ ОГРН 1037724007276
2) entity?query=1037724007276
Я еще не приделал в нашу прогу, но у нас еще через egrul.nalog.ru есть кнопка, но там с набором капчи, сложнее.

Re: :) и снова поиск на focus.kontur.ru
Евгений Банщиков Сообщений: 218 Откуда: Kurgan Дата регистрации: 09.04.2004	Евгений Банщиков 19.06.18 07:06:09 Равиль Всем привет ! Перестал работать запрос - "Страница устарела ... " - без вашей помощи мне не справиться )) Немного не по теме , но может будет полезно. Мне надоело постоянно переделывать программу после очередных ремэйков на focus.kontur.ru . Сейчас использую dadata.ru .Там есть нормальное api и сервис бесплатен до 10000 запросов в день

Re: :) и снова поиск на focus.kontur.ru

Евгений Банщиков

Сообщений: 218
Откуда: Kurgan
Дата регистрации: 09.04.2004

Евгений Банщиков

19.06.18 07:06:09

Равиль
Всем привет !
Перестал работать запрос - "Страница устарела ... " - без вашей помощи мне не справиться ))

Немного не по теме , но может будет полезно. Мне надоело постоянно переделывать программу после очередных ремэйков на focus.kontur.ru . Сейчас использую dadata.ru .Там есть нормальное api и сервис бесплатен до 10000 запросов в день

Re: :) и снова поиск на focus.kontur.ru
Равиль Автор Сообщений: 6554 Откуда: Уфа Дата регистрации: 01.08.2003	Равиль 19.06.18 07:43:27 Евгений Банщиков Равиль Всем привет ! Перестал работать запрос - "Страница устарела ... " - без вашей помощи мне не справиться )) Немного не по теме , но может будет полезно. Мне надоело постоянно переделывать программу после очередных ремэйков на focus.kontur.ru . Сейчас использую dadata.ru .Там есть нормальное api и сервис бесплатен до 10000 запросов в день Евгений, спасибо ! 10 тыс запросов в день - это выше крыши )) ------------------ Тяжело согнать курсором муху с монитора ...

Re: :) и снова поиск на focus.kontur.ru

Равиль
Автор

Сообщений: 6554
Откуда: Уфа
Дата регистрации: 01.08.2003

Равиль

19.06.18 07:43:27

Евгений Банщиков
Равиль
Всем привет !
Перестал работать запрос - "Страница устарела ... " - без вашей помощи мне не справиться ))
Немного не по теме , но может будет полезно. Мне надоело постоянно переделывать программу после очередных ремэйков на focus.kontur.ru . Сейчас использую dadata.ru .Там есть нормальное api и сервис бесплатен до 10000 запросов в день

Евгений, спасибо ! 10 тыс запросов в день - это выше крыши ))

------------------
Тяжело согнать курсором муху с монитора ...

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 21 (Гостей: 21)