秋名山的老司机教你如何登录有密码的网站

鉴于有朋友问到如何登录有账号密码的网页，那么今天就介绍一下控制输入框和登录按钮。

代码百度很容易就找到，不少人应该是不知道怎么去找对应的网页代码和怎么修改才不会完全完成的。

以登录网易邮箱为例 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

账号密码如果对的话，就能登录了。