[技术讨论] 求爱奇艺自动登录VBS代码

1004321

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

pcl_test

Set ie=WScript.CreateObject("InternetExplorer.Application") 
ie.visible=true 
ie.navigate "http://i.iqiyi.com" 

Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4 

Set divTag = ie.document.getElementsByTagName("div")
For Each d In divTag
    If d.className = "acountBorder" Then
        Set inputTag = d.getElementsByTagName("input")
        For Each i In inputTag
            If i.type = "text" Then
                i.value = "账号"
            ElseIf i.type = "password" Then
                i.value = "密码"
            End If
       Next
   ElseIf d.className = "login_submitV3" Then
       d.getElementsByTagName("a")(0).Click
       Exit For
   End If
Next
复制代码

CrLf

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

erjnasrtnws

回复 3# CrLf


    哈哈哈