| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]网页模拟点击和登录求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132624) |
| -- 作者：fanllys668 -- 发布时间：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 -- 发布时间：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 Next 这样好像可以获取点三个按钮的标题,如果要模拟点击不知道怎么改
|
| -- 作者：有点甜 -- 发布时间：2019/3/26 12:29:00 -- 参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=132577&skin=0
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=132416&skin=0
|
| -- 作者：fanllys668 -- 发布时间：2019/3/29 10:04:00 -- 感觉甜老师,可以了,谢谢 |