主题：[求助]网页自动登陆看不懂，求助自动登录一个网站！

参考代码

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").Basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("http://123.57.228.173:9088/ehr/login.jsp")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
For Each archor As object In web.Document.Forms
    archor.SetAttribute("target", "_self")
Next

Dim loginId = web.Document.GetElementById("loginId")
Dim password = web.Document.GetElementById("password")
Dim Image2 = web.Document.GetElementById("Image2")

loginId.setAttribute("value", "ABC")
password.setAttribute("value", "123")

msgbox("填入了用户名和密码")

image2.InvokeMember("click")

For Each archor As object In web.Document.Forms
    archor.SetAttribute("target", "_self")
Next

这段可以去掉。

Dim loginId = web.Document.GetElementById("loginId")
Dim password = web.Document.GetElementById("password")
Dim Image2 = web.Document.GetElementById("Image2")

这段，你要去查看人家的html源码才能知道。