Правильно ли я понимаю, что через MSXML2.XMLHTTP в принципе не получится сформировать запрос на этот конкретный сайт: http://egrul.nalog.ru/fns/index.php ?
Если я неправильно понимаю - то как передать параметры запроса в Send?
Я не настаиваю на скрипте из первого поста.
Подойдет любой работающий способ.
Спасибо.
]]>Формирую запрос на сайт таким скриптом:
'
' запрос в ЕГРЮЛ
'
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.
Не в адресной строке - а в самом документе.
Если то же самое сделать вручную - указать наименование и нажать кнопку "Искать" - то в ответ появляется найденный список.
Что я делаю не так?
]]>