'------------------------------------------------ ' 环境准备： ' 1.为运行本程序，应在“<a href="https://www.jb51.cc/tag/caidan/" target="_blank" class="keywords">菜单</a>->工程->部件”中<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>“Microsoft Internet Controls” ' 2.并在“<a href="https://www.jb51.cc/tag/caidan/" target="_blank" class="keywords">菜单</a>->工程->引用”中<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>“Microsoft HTML Object Library”和“Edanmo's OLE interfaces & functions v1.4” ' 3.请先建立<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>"d:/1.html"，<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>为：<iframe application="yes" width=700 height=600 src="http://www.baidu.com" mce_src="http://www.baidu.com"></iframe> ' 4.Edanmo 's OLE interfaces & functions v1.4在有些机器可能没有，可以到这里下载：http://download.csdn.net/source/2652292 ' ' Author : sysdzw ' E-mail : sysdzw@163.com ' Bolg : http://hi.baidu.com/sysdzw ' QQ : 171977759 ' Date : 2010-4-6 '------------------------------------------------ Private Sub Form_Load() wb1.Navigate2 "d:/1.html" End Sub Private Sub wb1_DocumentComplete(ByVal pDisp As Object,URL As Variant) Debug.Print URL If URL = "http://www.baidu.com/" Then getFrames(wb1).Document.All("kw").Value = "谷歌" Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> getFrames(wb1).Document.All("kw").Value End If End Sub 'WB为要处理的webbrowser Private Function getFrames(ByVal WB As WebBrowser) As Object Dim pContainer As olelib.IOleContainer Dim pEnumerator As olelib.IEnumUnknown Dim pUnk As olelib.IUnknown Dim pBrowser As SHDocVwCtl.WebBrowser_V1 Set pContainer = WB.Object.Document If pContainer.EnumObjects(OLECONTF_EMBEDDINGS,pEnumerator) = 0 Then Set pContainer = Nothing Do While pEnumerator.Next(1,pUnk) = 0 Set pBrowser = pUnk If Err.Number = 0 Then Print "Frame: " & pBrowser.LocationURL If pBrowser.LocationURL = "http://www.baidu.com/" Then '可以在这里加<a href="https://www.jb51.cc/tag/tiaojianpanduan/" target="_blank" class="keywords">条件判断</a>得到指定的frame，基本可以根据url或者innerHTML中的某个关键字符 Set getFrames = pBrowser Exit Function End If End If Loop Set pEnumerator = Nothing End If End Function
