主题：[求助]自动登录网站

不可以。

 

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

 

回复3楼，调出浏览器的调试功能(快捷键f12)，然后查找对应元素，不同的网页分析是不同的。

 

回复4楼，看看AfterLoad事件写代码

 

Dim web As Windows.Forms.WebBrowser
web = e.Form.Controls("WebBrowser1").baseControl
web.ScriptErrorsSuppressed = True  '发生角本错误后继续运行

参考

 

http://www.foxtable.com/mobilehelp/scr/0244.htm

 

 

去登陆那里，鼠标右键，检查。然后看源码。

 

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol

Dim Inputs = web.Document.GetElementsByTagName("input")
For Each Input As object In Inputs
    If Input.id = "grp_id" Then
        Input.SetAttribute("value", "123")
    ElseIf input.id = "user_id"
        Input.SetAttribute("value", "456")
    End If
Next

直接用

 

Dim btn = web.Document.GetElementById("id名称")

Dim ie As Object = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate("https://s2b.standardchartered.com/ssoapp/login.jsp?langid=zh_CN&_rdurl=")
Application.DoEvents
Do While ie.busy Or ie.readystate <> 4
    Application.DoEvents
Loop

Dim Inputs = ie.Document.GetElementsByTagName("input")
For Each Input As object In Inputs
    If Input.id = "grp_id" Then
        Input.SetAttribute("value", 123)
    ElseIf input.id = "user_id"
        Input.SetAttribute("value", 456)
    End If
Next
Dim btn = ie.Document.GetElementById("formfield").GetElementsByTagName("a")(0)
btn.click

 

登陆的那个a标签没有id值。不是每一个元素都有id值的。

 

Dim btn = web.Document.GetElementById("formfield").GetElementsByTagName("a")(0)
btn.InvokeMember("click")

 

你没有理解什么是weui。

 

weui中无法获取。