登陆报税网页报错

jackl123

因工作需要，想开发登陆税务申报网站，但填写用户名和密码，运行报错，请教大虾帮忙指正！

Sub 登陆()
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate "http://etax.zjtax.gov.cn/dzswj/user/login.html"
Do Until .Readystate = 4
DoEvents
Loop
.document.all("userName").Value = "aaaa"
.document.all("password").Value = "bbbbb"
  For Each dl In .document.getelementsbytagname("IMG")
            If InStr(dl.src, "images/dl1.jpg") <> 0 Then
                s = s + 1
                If s = 2 Then dl.Click
                Exit For
            End If
        Next
End With
End Sub

jackl123

请高手帮忙看一下

zhenghui13

有相同需求，留名，看看.

jackl123

用Loop
.document.all("userName").Value = "aaaa"
.document.all("password").Value = "bbbbb"找不到登陆框
用Loop
.Document.forms(0).all("userName").Value = "aaaa"
.Document.forms(0).all("password").Value = "bbbbb"也找不到，错在哪里请高手指点

熊之召唤术

我想问下，你这个自动登入如何跳过验证码

熊之召唤术

.document.all("username").Value = "aaaa"
.document.all("password")(1).Value = "bbbbb"

解析原因:
HTML中的标签NAME属性可以重复，因为目标网页有4种登入类型，进入源代码查看，name=password的标签有4个，因此需要带（1）
username大小写不同，这就不说啦
后续代码没有处理验证码，这个我也不知道咋跳过

719404338

username是的n是小写。有验证码，放弃吧，朋友。

jackl123

熊之召唤术 发表于 2018-7-27 17:38
.document.all("username").Value = "aaaa"
.document.all("password")(1).Value = "bbbbb"

谢谢你的指正，验证码就手工补下，这样效率也高多了。

605751967

liucqa

这么简单的验证码，找个在线ocr识别一下就行