[问题求助] 如何使用VBS在同一个IE窗口内的多个标签页自动登陆网站？

奇然无双

SET IE=CREATEOBJECT("INTERNETEXPLORER.APPLICATION")
ie.navigate("https://passport.baidu.com/?login")
While ie.busy Or ie.readystate <> 4
Wend
ie.Left=0
ie.Top=0
ie.visible=1
ie.document.getElementById("username").value="12345"
ie.document.getElementById("normModPsp").value="******"
复制代码

以上代码可以自动填写百度用户名和密码，我也可以加一个焦点再SENDKEY回车登陆

问题：
1、如何在IE8浏览器中，不新开窗口，只开新标签页的情况下登陆多个网站？(有如网易，新浪等等)

2、点击登陆按钮后，如何获取登陆状态？(是否登陆成功)如果失败则循环登陆。

谢谢达人先。

broly

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

奇然无双

对于问题1：你在你的IE8浏览器设置以新标签打开新的窗口就可以了
对于问题2：获取网页的标题或者内容，然后 ...
broly 发表于 2011-8-4 19:31

我的设定是这样的，应该是新标签打开窗口才是吧

不知为何没有效果，能否提供一下代码？

谢谢先

Demon

http://msdn.microsoft.com/en-us/library/aa752093(v=vs.85).aspx

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
复制代码

奇然无双

回复  奇然无双

下面代码是大概的思路，更具体的自己实现。
注意，要想多标签打开网站，要把IE8设置为 ...
broly 发表于 2011-8-8 21:04

    谢谢你，我先试一下看。