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
复制代码