以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【网页自动登录】学习网站自动登录操作并进入学习中心  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104519)
--  作者：李孝春
--  发布时间：2017/7/31 11:36:00
--  【网页自动登录】学习网站自动登录操作并进入学习中心
【网页自动登录】学习网站自动登录操作

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
怎么实现自动登录并转入学习中心呢？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:学习中心.table
--  作者：有点甜
--  发布时间：2017/7/31 12:17:00
--  

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.gzgbonline.cn/elms/web/re_login.jsp?errorNum=5&loginId=&timeLimt=null")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim btns = web.Document.GetElementsByTagName("input")
For Each btn As object In btns
    If btn.getattribute("name") = "loginId" Then
        btn.setattribute("value", "522627197601120015")
    ElseIf btn.getattribute("name") = "password" Then
        btn.setattribute("value", "8888")
    End If
Next

btns = web.Document.GetElementsByTagName("a")
For Each btn As object In btns
    If btn.getattribute("href") = "javascript:login_onsubmit(0);" Then
        btn.InvokeMember("click")
    End If
Next