比如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编辑过]