Board logo

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

作者: 奇然无双    时间: 2011-8-4 16:57     标题: 如何使用VBS在同一个IE窗口内的多个标签页自动登陆网站?

  1. SET IE=CREATEOBJECT("INTERNETEXPLORER.APPLICATION")
  2. ie.navigate("https://passport.baidu.com/?login")
  3. While ie.busy Or ie.readystate <> 4
  4. Wend
  5. ie.Left=0
  6. ie.Top=0
  7. ie.visible=1
  8. ie.document.getElementById("username").value="12345"
  9. 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楼的图那样
  1. Dim objIE,username,password
  2. Set objIE = CreateObject("InternetExplorer.Application")
  3. objIE.Visible = True
  4. objIE.Navigate "https://passport.baidu.com/?login"
  5. While objIE.Busy Or objIE.ReadyState <> 4
  6. WScript.Sleep 300
  7. Wend
  8. username = "Username"
  9. password = "Password"
  10. objIE.Document.getElementById("username").value = username
  11. objIE.Document.getElementById("normModPsp").value = password
  12. objIE.Document.getElementById("normalF").submit
  13. WScript.Sleep 300
  14. While objIE.Busy Or objIE.ReadyState <> 4
  15. WScript.Sleep 300
  16. Wend
  17. If objIE.LocationURL = "http://passport.baidu.com/center" Then
  18. MsgBox "登录成功!"
  19. End If
  20. objIE.Navigate "http://www.sina.com.cn/",,"_blank"
  21. Set objIE = Nothing
复制代码

作者: 奇然无双    时间: 2011-8-9 15:00

回复  奇然无双

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



    谢谢你,我先试一下看。




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2