broly

对于问题1：你在你的IE8浏览器设置以新标签打开新的窗口就可以了
对于问题2：获取网页的标题或者内容，然后判断是否登陆成功

broly

回复 3# 奇然无双


   你参照4楼给出的链接，那里的navigate方法的第三个参数。今天有点事，不能给你写个代码，见谅！

broly

回复 3# 奇然无双

下面代码是大概的思路，更具体的自己实现。
注意，要想多标签打开网站，要把IE8设置为3楼的图那样

Dim objIE,username,password

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True
objIE.Navigate "https://passport.baidu.com/?login"

While objIE.Busy Or objIE.ReadyState <> 4
	WScript.Sleep 300
Wend

username = "Username"
password = "Password"

objIE.Document.getElementById("username").value = username
objIE.Document.getElementById("normModPsp").value = password
objIE.Document.getElementById("normalF").submit

WScript.Sleep 300

While objIE.Busy Or objIE.ReadyState <> 4
	WScript.Sleep 300
Wend

If objIE.LocationURL = "http://passport.baidu.com/center" Then
	MsgBox "登录成功！"
End If

objIE.Navigate "http://www.sina.com.cn/",,"_blank"

Set objIE = Nothing
复制代码