如何使用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

对于问题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楼的图那样

1. Dim objIE,username,password
   
2. 
   
3. Set objIE = CreateObject("InternetExplorer.Application")
   
4. 
   
5. objIE.Visible = True
   
6. objIE.Navigate "https://passport.baidu.com/?login"
   
7. 
   
8. While objIE.Busy Or objIE.ReadyState <> 4
   
9.         WScript.Sleep 300
   
10. Wend
    
11. 
    
12. username = "Username"
    
13. password = "Password"
    
14. 
    
15. objIE.Document.getElementById("username").value = username
    
16. objIE.Document.getElementById("normModPsp").value = password
    
17. objIE.Document.getElementById("normalF").submit
    
18. 
    
19. WScript.Sleep 300
    
20. 
    
21. While objIE.Busy Or objIE.ReadyState <> 4
    
22.         WScript.Sleep 300
    
23. Wend
    
24. 
    
25. If objIE.LocationURL = "http://passport.baidu.com/center" Then
    
26.         MsgBox "登录成功！"
    
27. End If
    
28. 
    
29. objIE.Navigate "http://www.sina.com.cn/",,"_blank"
    
30. 
    
31. Set objIE = Nothing
    

复制代码

奇然无双

回复  奇然无双

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

    谢谢你，我先试一下看。