Foxtable(狐表)用户栏目专家坐堂 → 请教HtmlElement成员调用,子节点引用。


  共有1763人关注过本帖树形打印复制链接

主题:请教HtmlElement成员调用,子节点引用。

帅哥哟,离线,有人找我吗?
wfkbabro
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:269 积分:2425 威望:0 精华:0 注册:2011/10/21 17:07:00
请教HtmlElement成员调用,子节点引用。  发帖心情 Post By:2017/3/26 7:45:00 [显示全部帖子]


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

 回到顶部