VB 自动输入用户名和密码登陆网页

jlch007

kwin_zh 发表于 2017-8-2 14:27
代码中，网址直接换成登陆网址了，最后一句有变化。

我有这个网址：https://hangzhou.safetree.com.cn/JiaTing/JtMyHomeWork.html
有7个用户名和密码
我想实现自动登录，怎么编程啊？谢谢！
我在论坛看到有人编写了这个程序，但是我用起来就不行，求高手指点！！谢谢

Sub 登录()
    On Error Resume Next
    Set IE = CreateObject("InternetExplorer.application")
    IE.Navigate "https://hangzhou.xueanquan.com/Login.html"
    IE.Visible = True
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
    With IE.Document
        .getElementById("name").Value = "用户名"
        .getElementById("pwd").Value = "密码"
        .all("login").Click
    End With
End Sub

mogwaii

各位大神好，我对变成和VBA一窍不通，我只是想自动输入，然后百度到这个帖子并且实现了能自动输入。可是我想自动输入几百个存在EXCEL中的用户名和信息，需要怎么修改呢？？   比如说先输入EXCEL中第一行的信息，然我我自己手动登录，查询之后按一个钮自动输入第二行的信息即可.   
因为之前我都是一个一个复制粘贴输入的 实在是太麻烦了    如果有哪位大神有空的话愿意指点一下小弟感激不尽  

mogwaii

mogwaii 发表于 2018-7-29 17:13
各位大神好，我对变成和VBA一窍不通，我只是想自动输入，然后百度到这个帖子并且实现了能自动输入。可是我 ...

Sub 登录()
    On Error Resume Next
    Set ie = CreateObject("InternetExplorer.application")
    ie.Navigate "http://"
    ie.Visible = True
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
    With ie.Document
        .getElementById("xm").Value = Range("A121").Value
        .getElementById("login_form_ksh").Value = Range("c121").Value
        .getElementById("login_form_sfzh").Value = Range("d121").Value
    End With
End Sub

目前我自己修改成这样了   可以自动输入第121行的信息，请问能自己定义要输入的行数吗  谢谢了