标题: [问题求助] 如何使用VBS在同一个IE窗口内的多个标签页自动登陆网站? [打印本页]
作者: 奇然无双 时间: 2011-8-4 16:57 标题: 如何使用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 时间: 2011-8-4 19:31
对于问题1:你在你的IE8浏览器设置以新标签打开新的窗口就可以了
对于问题2:获取网页的标题或者内容,然后判断是否登陆成功
作者: 奇然无双 时间: 2011-8-5 09:01
对于问题1:你在你的IE8浏览器设置以新标签打开新的窗口就可以了
对于问题2:获取网页的标题或者内容,然后 ...
broly 发表于 2011-8-4 19:31
我的设定是这样的,应该是新标签打开窗口才是吧
不知为何没有效果,能否提供一下代码?
谢谢先
作者: Demon 时间: 2011-8-5 12:28
http://msdn.microsoft.com/en-us/library/aa752093(v=vs.85).aspx
作者: broly 时间: 2011-8-5 22:11
回复 3# 奇然无双
你参照4楼给出的链接,那里的navigate方法的第三个参数。今天有点事,不能给你写个代码,见谅!
作者: broly 时间: 2011-8-8 21:04
回复 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
复制代码
作者: 奇然无双 时间: 2011-8-9 15:00
回复 奇然无双
下面代码是大概的思路,更具体的自己实现。
注意,要想多标签打开网站,要把IE8设置为 ...
broly 发表于 2011-8-8 21:04
谢谢你,我先试一下看。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |