鉴于有朋友问到如何登录有账号密码的网页,那么今天就介绍一下控制输入框和登录按钮。 代码百度很容易就找到,不少人应该是不知道怎么去找对应的网页代码和怎么修改才不会完全完成的。 以登录网易邮箱为例 http://email.163.com/#from=163nav_icon 先找到账号的代码,以傲游为例(不少浏览器带有开发工具,谷歌、IE11什么的都有的,略微不同而已),可以直接利用,对新手很友好。看图。
很容易就找到了对应的代码,记号ID或者name。这里我就记下ID usenameipt
同样的办法获取密码对应的ID pwdinput
获取登录按钮btnsubmit
Ok,接下来修改代码。我先copy了一段代码来,这个就是登陆用的。 Sub 登陆网易() On Error Resume Next With CreateObject('internetexplorer.application') ’建立IEAPP .Visible = True ’设置可见 .Navigate http://email.163.com/#from=163nav_icon ’设置打开URL Do Until .ReadyState = 4 DoEvents ’控制权交给系统防假死,其实你不去动他,一般的网页卡不死。 Loop .Document.All('userNameIpt').Value = '账号' ’把all里面的改为刚才得到的ID .Document.All('pwdInput').Value = '密码' ’同上 .Document.All('btnSubmit').Click ’同上,不过这里是点击操作 ’ALL可以用getelementbyid,顾名思义,通过ID获取元素,用这个比较好,IE11这两种方法都不支持,我也是日了狗,得用别的方法。 While .ReadyState <> 4 Or .Busy ’下面都是延迟等待相关的代码 DoEvents Wend ' t1 = Timer ' Do Until Timer > t1 + n '延迟n秒 ' DoEvents ' Loop End With End Sub
联系客服