主题：【网页自动登录】学习网站自动登录操作并进入学习中心

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