vb跨域访问，获得特定的frame进行处理

'------------------------------------------------ ' 环境准备： ' 1.为运行本程序，应在“菜单->工程->部件”中添加“Microsoft Internet Controls” ' 2.并在“菜单->工程->引用”中添加“Microsoft HTML Object Library”和“Edanmo's OLE interfaces & functions v1.4” ' 3.请先建立文件"d:\1.html"，内容为：<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 = "谷歌" MsgBox 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 '可以在这里加条件判断得到指定的frame，基本可以根据url或者innerHTML中的某个关键字符 Set getFrames = pBrowser Exit Function End If End If Loop Set pEnumerator = Nothing End If End Function