首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

生贴:Edanmo 的olelib.lib组件 与webbrowser 配合得到IFAME源码!该如何处理

2012-03-11 
生贴:Edanmo 的olelib.lib组件 与webbrowser 配合得到IFAME源码!!!估计知道的人不多,我也授了半天,找不到

生贴:Edanmo 的olelib.lib组件 与webbrowser 配合得到IFAME源码!!!
估计知道的人不多,我也授了半天,找不到资料,
http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip 这是组件下载地址

有牛人是写出来过,这是实现的成果图,哎,我就是实现不行,不知道CSDN里有人能解不,不能回来也来顶,顶起也有分,一年不回,两年不回,我等三年~开玩笑


[解决办法]
用不着那么复杂

[code=VB]

Dim objDoc As MSHTML.HTMLDocument
Dim tmpDoc As MSHTML.HTMLDocument
Dim objFrame As MSHTML.HTMLFrameElement
'取浏览器的文档接口
Set tmpDoc = Webbrowser.document
'枚举所有框架
For Each objFrame In tmpDoc.frames
'获取该框架的文档
Set objDoc = objFrame.document
'获取该框架文档的HTML代码
Debug.Print objDoc.body.outerHTML

Set objDoc = Nothing
Next
Set tmpDoc = Nothing

[code]

热点排行