如何打开一个使用框架集登录vba的微信页面

Question

我正试图打开一个网页登录网页，但在IE中我得到了无法显示的页面(我不知道是不是404错误(

我想我有合适的框架链接，其中包括用户名和密码，因为它在谷歌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

站点进行重定向，使用/index可能会导致太多间接操作，最终导致失败。转到登录，然后允许浏览器处理首次重定向登录。然后，是的，有一个框架需要处理。

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]") = "[e-mail]"
.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