vb 操作webBrowser的dom

Private Sub Command5_Click()
    WebBrowser1.Navigate App.Path & "\e.html"
End Sub

Private 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.outerHTML
End 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