打开网页后怎样输入用户名及密码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打开网页后怎样输入用户名及密码

共有3059人关注过本帖树形打印复制链接主题：打开网页后怎样输入用户名及密码

cxmxjwlmq

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：349 积分：4166 威望：0 精华：0 注册：2018/4/6 18:02:00

打开网页后怎样输入用户名及密码 发帖心情

Post By：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编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/15 20:41:00 [只看该作者]

上面这种用法没有办法。可以参考这种：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808

cxmxjwlmq

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：349 积分：4166 威望：0 精华：0 注册：2018/4/6 18:02:00

Post By：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