以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教HtmlElement成员调用，子节点引用。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98204)
--  作者：wfkbabro
--  发布时间：2017/3/26 7:45:00
--  请教HtmlElement成员调用，子节点引用。

比如http://www.baidu.com 主页
"百度一下"按钮HTML源码为：<input type="submit" id="su" value="百度一下" class="bg s_btn">

Dim web As Windows.Forms.WebBrowser
web = Forms("窗口1").Controls("WebBrowser1").BaseControl

‘能正常使用的代码，论坛里学来的，有用的朋友可以拿去：
\'执行脚本：
web.Document.InvokeScript("eval", new String() {"alert(\'123\');alert(\'456\');" })
’按钮单击
web.Document.GetElementById("su").InvokeMember("click")
\'显示父节点的HTML
msgbox(web.Document.GetElementById("su").parent.outerHTML)
‘显示子节点HTML 用 ChildNodes(0)会报错。
msgbox(web.Document.GetElementById("s_tab").ChildNodes(0)请改错谢谢.outerHTML)
msgbox(web.Document.GetElementById("s_tab").Children(0).outerHTML)   \'已经解决
msgbox(web.Document.GetElementById("s_tab").firstChild请改错谢谢.outerHTML)  
msgbox(web.Document.GetElementById("s_tab").lastChild请改错谢谢.outerHTML)  
msgbox(web.Document.GetElementById("s_tab").nextSibling（下一个兄弟节点）请改错谢谢.outerHTML)  

\'显示DOM信息
msgbox(web.Document.GetElementById("su").id)
msgbox(web.Document.GetElementById("su").value)        \'显示.id不报错，显示.value却报错，求解。
\'显示其它DOM信息用什么代码呢，谢谢
msgbox(web.Document.GetElementById("su").attr("value") 请改错谢谢)   ’已解决
msgbox(web.Document.GetElementById("su").GetAttribute("value"))
上面红色的还没解决。

[此贴子已经被作者于2017/3/26 9:09:24编辑过]
--  作者：有点色
--  发布时间：2017/3/26 10:08:00
--  

参考

 

https://msdn.microsoft.com/zh-cn/library/system.windows.forms.htmlelement_members(v=vs.80).aspx