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

nsqrlj

Sub 登录()
    On Error Resume Next
    Set IE = CreateObject("InternetExplorer.application")
    IE.navigate "http://vip.stock.finance.sina.com.cn/portfolio/login.php"
    IE.Visible = True
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
    With IE.Document
        .getElementById("name").Value = "用户名"
        .getElementById("password").Value = "密码"
    End With
End Sub
以上VBA代码实现了自动输入用户名和密码登陆网页，如何修改成VB代码，我调试过，只能实现打开网页，但用户名和密码都没有自动输入，请教各位大侠指点。

kwin_zh

密码的id是PWD  你写错了~
登陆按钮的点击也帮你写好了~

1. Sub 登录()
   
2.     On Error Resume Next
   
3.     Set IE = CreateObject("InternetExplorer.application")
   
4.     IE.Navigate "http://vip.stock.finance.sina.com.cn/portfolio/login.php"
   
5.     IE.Visible = True
   
6.     Do Until IE.ReadyState = 4
   
7.         DoEvents
   
8.     Loop
   
9.     With IE.Document
   
10.         .getElementById("name").Value = "用户名"
    
11.         .getElementById("pwd").Value = "密码"
    
12.         .all("login").Click
    
13.     End With
    
14. End Sub
    

复制代码

nsqrlj

kwin_zh 发表于 2017-8-2 11:39
密码的id是PWD  你写错了~
登陆按钮的点击也帮你写好了~

谢谢，学习了。还有一个小问题：我更换了一个网址
Sub 登录()
    On Error Resume Next
    Set IE = CreateObject("InternetExplorer.application")
    IE.navigate "http://www.hebgb.gov.cn/portal/index!index.action"
    IE.Visible = True
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
    With IE.Document
        .getElementById("name").Value = "用户名"
        .getElementById("password").Value = "密码"
        .all("login").Click
    End With
End Sub
只能实现自动填写用户名和密码，但实现不了自动登陆。
刚学习网页自动登陆知识，还搞不定，请指教。

kwin_zh

代码中，网址直接换成登陆网址了，最后一句有变化。

1. 
   
2. Sub 登录()
   
3.     On Error Resume Next
   
4.     Set IE = CreateObject("InternetExplorer.application")
   
5.     IE.navigate "http://www.hebgb.gov.cn/login.jsp"
   
6.     IE.Visible = True
   
7.     Do Until IE.ReadyState = 4
   
8.         DoEvents
   
9.     Loop
   
10.     With IE.Document
    
11.         .getElementById("name").Value = "用户名"
    
12.         .getElementById("password").Value = "密码"
    
13.         .forms(0).submit
    
14.     End With
    
15. End Sub
    

复制代码

nsqrlj

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

你好，还要麻烦你，我在调试163网址时失败。麻烦给看看
Sub 登录163()
    On Error Resume Next
    Set IE = CreateObject("InternetExplorer.application")
    IE.Navigate "http://mail.163.com"
    IE.Visible = True
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
    With IE.Document
        .forms(0).all("username").Value = "用户名"
        .forms(0).all("password").Value = "密码"
        .forms(0).all("登录邮箱").Click
    End With
End Sub

02761752696

学习一下    谢谢

nsqrlj

各位路过的大侠，163网址时失败。麻烦给看看
Sub 登录163()
    On Error Resume Next
    Set IE = CreateObject("InternetExplorer.application")
    IE.Navigate "http://mail.163.com"
    IE.Visible = True
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
    With IE.Document
        .forms(0).all("username").Value = "用户名"
        .forms(0).all("password").Value = "密码"
        .forms(0).all("登录邮箱").Click
    End With
End Sub

vivianleung

同问，如何自动登陆163邮箱？

vivianleung

高手呢？？高手请指点指点啊

jlch007

https://hangzhou.xueanquan.com/Login.html

这个网站如何实现自动登录呢？谢谢