求爱奇艺自动登录VBS代码

1004321

望大侠帮我做个自动登录爱奇艺的VBS脚本。谢谢了。
比如：
账号：55555  密码：55555

pcl_test

1. Set ie=WScript.CreateObject("InternetExplorer.Application")
   
2. ie.visible=true
   
3. ie.navigate "http://i.iqiyi.com"
   
4. 
   
5. Do
   
6. Wscript.Sleep 200
   
7. Loop Until ie.ReadyState=4
   
8. 
   
9. Set divTag = ie.document.getElementsByTagName("div")
   
10. For Each d In divTag
    
11.     If d.className = "acountBorder" Then
    
12.         Set inputTag = d.getElementsByTagName("input")
    
13.         For Each i In inputTag
    
14.             If i.type = "text" Then
    
15.                 i.value = "账号"
    
16.             ElseIf i.type = "password" Then
    
17.                 i.value = "密码"
    
18.             End If
    
19.        Next
    
20.    ElseIf d.className = "login_submitV3" Then
    
21.        d.getElementsByTagName("a")(0).Click
    
22.        Exit For
    
23.    End If
    
24. Next

复制代码

CrLf

这时候我应该跳出来愤怒声讨：
楼主！这帐号根本不能用！

erjnasrtnws

回复 3# CrLf


    哈哈哈