超奇怪登陆网页，手工输入正常，用Vba写入就不成功。。。

jackl123

浙江地税网登陆页面上用手工只要输入3个要素，但在网页内会生成32位的内密码，现在问题是4个登陆要素都知道，用一下VBA写入密码和内密码、用户名和电话号码，输入框显示淡黄色。登录时，始终不认可已经输入用户名和密码，让你重新输。分析网页

在用户名的ID上有loginForm是否造成输入不成功要重新输入。

Sub 登陆()

Dim ie
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate "http://etax.zjds.gov.cn/wsbs/dzswj/login"
Do Until .Readystate = 4
DoEvents
Loop
.Document.all("username").Value = "aaaaa"
.Document.all("password0").Value = "b0000"
.Document.all("password").Value = "c"
.Document.all("mobile").Value = "d"
.Document.all("ptyhDL").Click
End With
End Sub

jacklee

看来版主是做财务的，有相同需求，请大虾看看.期待中。。。。

zopey

和网页设计者的斗智斗勇。

jackl123

都是看客吗？就没有那位大侠、能者帮下忙吗？再这里先谢谢了，excelhome不会变得越来越冷漠了吧

huang1314wei

用　　.Document.Forms(0).submit　提交试一下，另外，由于该网页有JS函数，所以一定要等到JS函数运行完毕再输入账号，密码，手机后四位，否则会报错的
用
Do Until .Readystate = 4
DoEvents
Loop
恐怕是不够的，因为有的时候JS没有运行完的话　.Readystate 可能就已经等于４了，最好的办法是再加入延时３-４秒的等待

jackl123

huang1314wei 发表于 2018-8-5 20:03
用　　.Document.Forms(0).submit　提交试一下，另外，由于该网页有JS函数，所以一定要等到JS函数运行完毕 ...

谢谢huang1314wei版主的热情回复，按照您的方法，我在vba设置断点暂停，然后等页面全部打开完毕，再运行.Readystate 及输入密码，还是不行。在这里还是要感谢你的回复！

huang1314wei

jackl123 发表于 2018-8-6 11:28
谢谢huang1314wei版主的热情回复，按照您的方法，我在vba设置断点暂停，然后等页面全部打开完毕，再运行. ...

我这里测试是可以在框当中输入指定的用户名和密码的，至于能不能登陆，没有办法测试，因为没有正确的账号和密码

jackl123

huang1314wei 发表于 2018-8-6 12:28
我这里测试是可以在框当中输入指定的用户名和密码的，至于能不能登陆，没有办法测试，因为没有正确的账号 ...

太谢谢了，我把账号等发您消息了，请查收。谢谢！

mythqiu

根据我做网站的经验，如果网站后台判断了提交来源，你自己做的自动提交永远不会成功。这是为了防止黑客攻击。

mythqiu

你可能需要发送浏览器信息或者cookies信息，但是不知道vba是否有这功能？反正我做网站是绝不允许别人在我预设登录界面之外来登录的。