本帖最后由 pcl_test 于 2015-12-30 23:50 编辑
- 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
复制代码
|