- 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)
-- 发布时间：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
-- 发布时间：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
--
应该是有验证码的吧。这种就比较麻烦了
-- 发布时间：2020/11/16 22:10:00
--
没有验证码，平常登陆时，输入用户名及密码后直接点击登陆就进去了
-- 发布时间：2020/11/16 22:14:00
--
这句代码不需要注释：
web.Document.GetElementById("cmdLongi").InvokeMember("click")
-- 发布时间：2020/11/16 22:55:00
--
加上这句后，出现如下提示：
此主题相关图片如下：微信图片_20201116225523.png
-- 发布时间：2020/11/16 22:58:00
--
那就是控件的名称不正确，自行分析一下网页
web.Document.GetElementById("cmdLongi").InvokeMember("click")