Developing.ru

В Екселе делаются веб-запросы для загрузки данных, но перед загрузкой нужно каждый раз залогиниваться на сайте.

Так как там metod post используется то передвать данные строкой не получается.

Соотвественно в VB-ке нужно загрузить страницу, присвоить переменным логин, пароль и т.д. и выполнить Вход (SubmitLogin).

Нашёл пример как сделать через запуск IE :
------------------
Sub sadowajaimperija_AutoLogin()
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.navigate ("http://www.sadowajaimperija.ru/login.php")
Do
If ie.readyState = 4 Then
ie.Visible = True
Exit Do
Else
DoEvents
End If
Loop

l = ie.Document.forms.Length
'USE VIEW SOURCE TO GET FORM ELEMENT IDS
ie.Document.forms(1).all("server").Value = "server3"
ie.Document.forms(1).all("login_user").Value = "name"
ie.Document.forms(1).all("login_pass").Value = "password"
ie.Document.forms(1).submit
ie.Document.forms

End Sub
-----------------
Но это с запуском експлорера и т.д., а нужно в скрытом режиме.

А если попробовать зайти по такому адресу:
[url]http://[/url]name:password@http://www.sadowajaimperija.ru/login.php


Ну или так: Зачем вообще надо было отображать браузер строкой ie.Visible = True?

1. Не работает. К тому же в открытом виде пароль не передаётся ... если заглянуть в текст страницы то он там шифруется скриптами и тогда передаётся методом POST с помошью дополнительного поля.

Поле ввода пароля:
<input type="password" name="dummy" class="text loginput" style="width:100%;" id="login_pass" maxlength="100" size="15" tabindex="3" onchange="resetClick();">

Невидимое поле с шифровкой:
<input type="hidden" name="pass" value="" id="b64_pass">

2. В данном примере авторизация в IE конкретно происходит и на Excel не распостраняется, а мне нужно делать Веб-запросы именно в екселе.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
что нету решения ?