vb 操作webBrowser的dom

来源：互联网发布：淘宝帐号出售编辑：程序博客网时间：2024/05/18 12:02

Private Sub Command5_Click()    WebBrowser1.Navigate App.Path & "\e.html"End SubPrivate Sub Command7_Click()    '////////////////////////////////////////////////////////////////////////////////////////////////    '////////////////////创建标签    Set e = WebBrowser1.Document.createElement("a")            Text1 = Text1 & vbCrLf & "创建标签：" & e.outerHTML        '////////////////////////////////////////////////////////////////////////////////////////////////    '////////////////////创建属性    Call e.setAttribute("href", "http://www.baidu.com") '//添加属性    Call e.setAttribute("target", "_blank") '//添加属性            Text1 = Text1 & vbCrLf & "创建属性：" & e.outerHTML        '////////////////////////////////////////////////////////////////////////////////////////////////    '////////////////////创建文本    Set newtext = WebBrowser1.Document.createTextNode("百度首页")    Call e.appendChild(newtext)  '//插入e中            Text1 = Text1 & vbCrLf & "创建文本：" & e.outerHTML        '////////////////////////////////////////////////////////////////////////////////////////////////    '////////////////////替换标签    '//取得要替换的标签    Set oSPAN = WebBrowser1.Document.getElementById("pic") '//取得首个span    Text1 = Text1 & vbCrLf & "有无节点：" & oSPAN.hasChildNodes()  '//判断一下里面是否有其它节点    Set e1 = oSPAN.getElementsByTagName("span")            Text1 = Text1 & vbCrLf & "换前:" & e1(0).outerHTML            Text1 = Text1 & vbCrLf & "换后：" & e.outerHTML    Call oSPAN.replaceChild(e, e1(0))  '//开始替换                Text1 = Text1 & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "换后：" & WebBrowser1.Document.documentelement.outerHTMLEnd Sub

'//取得id对象
Set oID = WebBrowser1.Document.getElementById("pfhlkd_bg_folder")

'//取得标签对象集
Set allSPAN = WebBrowser1.Document.getElementsByTagName("span")

'//取得节点内HTML
oID.innerHTML

'//取得节点本身及其子节点HTML
oID.outerHTML

'//取得节点属性值
oID.Attributes.getNamedItem("href").Value

'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

'//创建节点
Set e = WebBrowser1.Document.createElement("a")

'//创建属性
Call e.setAttribute("href", "http://www.baidu.com") '//添加属性

'//创建文本
Set newtext = WebBrowser1.Document.createTextNode("百度首页")
Call e.appendChild(newtext) '//插入e中

'//替换节点
Call oSPAN.replaceChild(e, e1(0)) '//开始替换e为新节点，e1(0)为旧节点

源码链接：http://url.cn/OeBLqF

操作和js差不多，参考如下：

http://blog.163.com/guixl_001/blog/static/4176410420099925048901/

http://www.2cto.com/kf/201308/237719.html

http://zhidao.baidu.com/link?url=etaUbH_AlxEoKfBYQRpqdEODVlWMtssmoV4AkVMeO9Y9huW0P0B9rPlWJBpKfsruFZ2lBptKl7Xe9OvxLFnQxa

0 0