以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]网页自动登陆看不懂，求助自动登录一个网站！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92528)
--  作者：谢天钰
--  发布时间：2016/11/6 3:58:00
--  [求助]网页自动登陆看不懂，求助自动登录一个网站！
看不懂http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808&authorid=0&page=0&star=2里面的内容，我要自动登陆的网站好像不是php，网址发一下，求助版主帮助我！
要自动登陆的网址如下：
http://123.57.228.173:9088/ehr/login.jsp
--  作者：有点青
--  发布时间：2016/11/6 9:07:00
--  

参考代码

 

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")
--  作者：谢天钰
--  发布时间：2016/11/7 8:58:00
--  回复：（有点青）参考代码 Dim web As Syste...
十分感谢，测试很好，只是其中有几句代码不知道什么意思
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、password、Image2是怎么得来的？
--  作者：有点蓝
--  发布时间：2016/11/7 9:19:00
--  
打开这个网站，右键菜单选查看网页源代码，分析源代码得来的。网页的东西还是先学学基础的语法，以后做移动开发也有好处
--  作者：有点青
--  发布时间：2016/11/7 9:21:00
--  

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源码才能知道。