以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打开网页后怎样输入用户名及密码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158302)

--  作者:cxmxjwlmq
--  发布时间:2020/11/15 11:12:00
--  打开网页后怎样输入用户名及密码

各位老师:

    帮助中可以打开网页,网页界面有输入用户名及密码,怎样在下面帮助中增加代码能自动输入,并登陆

 

Dim Proc As New Process \'定义一个新的Process
Proc.File =
"http://bbs.foxtable.com" \'指定要打开的网页地址

Proc.Start()

 

谢谢!

[此贴子已经被作者于2020/11/15 11:13:01编辑过]

--  作者:有点蓝
--  发布时间:2020/11/15 20:41:00
--  
上面这种用法没有办法。可以参考这种:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808
--  作者:cxmxjwlmq
--  发布时间:2020/11/16 17:33:00
--  

蓝老师:

   我在论坛上找到了这个代码:

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").Basecontrol
web.Navigate("网址")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

web.Document.GetElementById("UserName").SetAttribute("Value", "caoxm")
web.Document.GetElementById("Password").SetAttribute("Value", "caoxm")
\'web.Document.GetElementById("check_num").SetAttribute("Value", "123456")
\'web.Document.GetElementById("cmdLongi").InvokeMember("click")

可以写入用户名及密码,如下图:

 


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20201116172934.png
图片点击可在新窗口打开查看

 

但无法直接登陆,请看是不是代码那个地方还地更改?

谢谢!


--  作者:有点蓝
--  发布时间:2020/11/16 20:07:00
--  
应该是有验证码的吧。这种就比较麻烦了
--  作者:cxmxjwlmq
--  发布时间:2020/11/16 22:10:00
--  

没有验证码,平常登陆时,输入用户名及密码后直接点击登陆就进去了

 


--  作者:有点蓝
--  发布时间:2020/11/16 22:14:00
--  
这句代码不需要注释:

web.Document.GetElementById("cmdLongi").InvokeMember("click")

--  作者:cxmxjwlmq
--  发布时间:2020/11/16 22:55:00
--  

加上这句后,出现如下提示:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20201116225523.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/11/16 22:58:00
--  
那就是控件的名称不正确,自行分析一下网页

web.Document.GetElementById("cmdLongi").InvokeMember("click")