Как открыть веб-страницу, которая использует frameset для входа с помощью VBA

Question

Я пытаюсь открыть веб-страницу для входа на веб-страницу, но в IE я получаю страницу невозможно отобразить (я не знаю, ошибка 404 или нет)

Я думаю, что у меня естьправильная ссылка на фрейм, который включает имя пользователя и пароль, потому что он открывается в Google Chrome

Я только что создал переменную со ссылкой и сделал

.visible = true 
.Navigate url

Как открыть ее с помощью IE, чтобыпередать имя пользователя и пароль?

спасибо

На главной странице есть

<FRAMESET rows="38,30,*"  border="0" frameborder="0"  framespacing="0">
<FRAME src="header.asp" name="header" id="header"  noresize  scrolling="no" border="0">
<FRAME src="empty.asp" name="menubar" id="menubar"   noresize  scrolling="no" border="0">
<FRAMESET cols="185, *" border="0" frameborder="0" framespacing="0">
  <FRAME src="left_column.asp" name="menu" id="menu" >
  <FRAME src="index.asp"  name="main" id="main" >
</FRAMESET>

Answer 1

Сайт выполняет перенаправление и использование индекса / может привести к слишком большому количеству косвенных ссылок и, в конечном итоге, к отказу.Перейдите на лестничную площадку, а затем разрешите браузеру обрабатывать начальное перенаправление для входа.Тогда да, есть рамка для обработки.

Option Explicit
Public Sub LoginInfo()
    Dim ie As New InternetExplorer
    With ie
        .Visible = True
        .navigate2 "http://shop.braintrust.gr/shop/store"

        While .Busy Or .readyState < 4: DoEvents: Wend

        With .document.getElementById("main").contentDocument

            .querySelector("[name=UserID]") = "joe.bloggs@internet.address"
            .querySelector("[name=password]") = "password"
            .querySelector("#checkbox1").Click '< if checkbox needs checking
            .querySelector("[type=submit]").Click

        End With

        While .Busy Or .readyState < 4: DoEvents: Wend
        Stop
        '.Quit
    End With
End Sub