你的问题不好回答,前面的几行代码是解决方法。但网页的登录界面中可能有分页框,那几行代码肯定不能直接使用,所以你可以还需用VB的编辑器对网页进行跟踪调试,找出对应关系后才能实现自动登录。
用Brower对象打开登录网页,然后获到用户名密码框,赋值后提交:
WebBrowser1.Navigate "http。。。。。。。"
Set vdoc = WebBrowser1.Document
vdoc.body.All("account").Value = Text2.Text
vdoc.body.All("password").Value = Text3.Text
vdoc.body.All("L_SubmitBtn").Click
用键盘精灵试试