1 Тема от Slav

  • Slav
  • Разработчик
  • Неактивен

Тема: VBS: запрос на сайт не отвечает

Добрый день.

Формирую запрос на сайт таким скриптом:

'
' запрос в ЕГРЮЛ
'

  Const READYSTATE_COMPLETE = 4

  Set objIE = CreateObject("InternetExplorer.Application")
  objIE.Visible = True
  objIE.Navigate "http://egrul.nalog.ru/fns/index.php"

  Do 
    WScript.Sleep 100
  Loop Until Not objIE.Busy And objIE.ReadyState = READYSTATE_COMPLETE

  Set objForm = objIE.Document.forms("SB")

' наименование
    objForm.elements("name").value = "рога копыта"

' ИНН
'    objForm.elements("num").value  = "1234567890"

  objForm.submit()

  Do 
    WScript.Sleep 100
  Loop Until Not objIE.Busy And objIE.ReadyState = READYSTATE_COMPLETE

  Set objIE = Nothing

WScript.Quit 0

В ответ получаю окно IE с адресом: http://egrul.nalog.ru/fns/index.php.
Не в адресной строке - а в самом документе.

Если то же самое сделать вручную - указать наименование и нажать кнопку "Искать" - то в ответ появляется найденный список.

Что я делаю не так?

2 Ответ от Slav

  • Slav
  • Разработчик
  • Неактивен

Re: VBS: запрос на сайт не отвечает

Продолжим оживленное обсуждение вопроса...

Правильно ли я понимаю, что через MSXML2.XMLHTTP в принципе не получится сформировать запрос на этот конкретный сайт: http://egrul.nalog.ru/fns/index.php ?
Если я неправильно понимаю - то как передать параметры запроса в Send?

Я не настаиваю на скрипте из первого поста.
Подойдет любой работающий способ.

Спасибо.