Получение данных с сайта roszdravnadzor.gov.ru

Здравствуйте!
Задача стоит банальная: получать информацию по забракованным медицинским изделиям, но плюс к этому необходимо скачивать письма.
Использую следующий код
[code]
Local oHTTPS, cURL, cSend, lcResponse, lcStatus
cURL = "https://www.roszdravnadzor.gov.ru/services/unreg?q_no=298/22"
oHTTPS = CREATEOBJECT('MSXML2.XMLHttp.6.0')
oHTTPS.Open("GET",cURL,.t.)
oHTTPS.Send()
DO WHILE oHTTPS.readyState!=4
IF INKEY(0.1)=27
EXIT
ENDIF
DOEVENTS FORCE
ENDDO
lcResponse = oHTTPS.responseBody
rtyy=FCREATE('c:333.html')
=FWRITE(rtyy,lcResponse)
=FCLOSE(rtyy)
[/code]
В итоге выдает страницу без результатов запроса, т.е. поиск не осуществляется.
Если же просто в браузере открыть данную ссылку [url=https://www.roszdravnadzor.gov.ru/services/unreg?q_no=298/22]https://www.roszdravnadzor.gov.ru/services/unreg?q_no=298/22[/url], то все нормально
и я могу видеть, что письмо нужно качать по следующей ссылке
[url=https://www.roszdravnadzor.gov.ru/services/unreg?downloadletter=49678]https://www.roszdravnadzor.gov.ru/services/unreg?downloadletter=49678[/url]
Может кто подскажет, что еще нужно сделать?

0

Автор публикации

Пользователи не найдены
Оставить комментарий
Авторизация
*
*
Генерация пароля