[求助]网页模拟点击和登录求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]网页模拟点击和登录求助

共有2882人关注过本帖树形打印复制链接主题：[求助]网页模拟点击和登录求助

fanllys668

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

等级：幼狐帖子：199 积分：2555 威望：0 精华：0 注册：2012/8/12 23:46:00

[求助]网页模拟点击和登录求助 发帖心情

Post By：2019/3/26 10:05:00 [显示全部帖子]

示例网址http://www.1xxcp.com

Dim web As System.Windows.Forms.WebBrowser = e.form.controls("webbrowser1").Basecontrol

Dim elems As object = web.Document.GetElementsByTagName("data-reactroot")

elems = web.Document.GetElementById("login_body___QdPPt").GetElementsByTagName("button")

msgbox(elems.count)

这DIV CLASS的,在论坛上看到有很多这样的例子,只是有部门代码不是很明白,现在想在有一个窗口一添加了WebBrowser1控件,想打开示例网址后,能模拟点击登录,并输入用户名和密码

请大师帮我看看,刚接触WebBrowser ,看了几个上这个代码,查是在帮助里看不到这些知识,像GetElementById Document.GetElementsByTagName 这些要去哪里查或学

注: 非玩家,只是学习网页知识

[此贴子已经被作者于2019/3/26 10:07:42编辑过]

fanllys668

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

等级：幼狐帖子：199 积分：2555 威望：0 精华：0 注册：2012/8/12 23:46:00

Post By：2019/3/26 10:13:00 [显示全部帖子]

Dim web As System.Windows.Forms.WebBrowser = e.form.controls("webbrowser1").Basecontrol

Do Until web.ReadyState = 4

Application.DoEvents

Loop

Dim elems As object = web.Document.GetElementsByTagName("div")

For Each elem As object In elems

If elem.getattribute("classname") = "login_body___QdPPt" Then

msgbox(elem.innerText)

End If

这样好像可以获取点三个按钮的标题,如果要模拟点击不知道怎么改

fanllys668

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

等级：幼狐帖子：199 积分：2555 威望：0 精华：0 注册：2012/8/12 23:46:00

Post By：2019/3/29 10:04:00 [显示全部帖子]

感觉甜老师,可以了,谢谢

主题：[求助]网页模拟点击和登录求助