以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  vba网页登陆：如何点击网页的登陆按钮？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71110)
--  作者：ruoru376
--  发布时间：2015/7/5 14:14:00
--  vba网页登陆：如何点击网页的登陆按钮？
本帖最后由 ruoru376 于 2015-7-5 10:54 编辑

账号密码都都输入成功了，但是不知道怎么点击登陆，如下按钮，如何登陆? 或者用其他什么方法能够登陆！ 实在找不出ID 。 [size=17.1428565979004px]希望各位大神帮帮忙！[size=17.1428565979004px]非常感谢！登陆按钮如下:
<button class="btn btn-large btn-block btn-primary" type="submit">登录</button>

Sub 网站后台登陆()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://qd.haomeiti.net/index.php"
        
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .Document.All("user_name").Value = "密码"
        .Document.All("password").Value = "账号"
        .Document.All("submit>").Click    \' 登陆按钮的ID实在，找不出。不知道怎么登陆
      
--  作者：大红袍
--  发布时间：2015/7/5 14:30:00
--  

 

[此贴子已经被作者于2015/7/5 14:32:51编辑过]
--  作者：ruoru376
--  发布时间：2015/7/5 14:37:00
--  
大家们！帮帮我吧
--  作者：大红袍
--  发布时间：2015/7/5 14:47:00
--  
With CreateObject("internetexplorer.application")
    .Visible = True
    .Navigate("http://qd.haomeiti.net/index.php")
   
    Do Until .ReadyState = 4
        Application.DoEvents
    Loop
    .Document.All("user_name").Value = "密码"
    .Document.All("password").Value = "账号"
    .Document.getElementsByTagName("button")(0).click
End With
--  作者：大红袍
--  发布时间：2015/7/5 14:48:00
--  

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=32808&skin=0

 
--  作者：ruoru376
--  发布时间：2015/7/5 15:01:00
--  
非常感谢！总算登陆成功了！
--  作者：ruoru376
--  发布时间：2015/7/5 15:18:00
--  
大侠!怎么改成ie浏览器登陆啊。并且是隐藏登陆的！
--  作者：大红袍
--  发布时间：2015/7/5 15:30:00
--  
 看5楼。
--  作者：大红袍
--  发布时间：2015/7/5 15:31:00
--  
With CreateObject("internetexplorer.application")
    .Visible = False
    .Navigate("http://qd.haomeiti.net/index.php")
   
    Do Until .ReadyState = 4
        Application.DoEvents
    Loop
    .Document.All("user_name").Value = "密码"
    .Document.All("password").Value = "账号"
    .Document.getElementsByTagName("button")(0).click
End With
--  作者：ruoru376
--  发布时间：2015/7/5 15:41:00
--  
这个代码和上面的一模一样的啊！！是不是弄错了