枚举IE页面框架以及获得跨域框架的控制权/访问框架页

举个例子，比如下面的网址http://www.symental.com/other/w.htm，我想给左边的百度的文本框赋值，可是怎么也赋不了，提示拒绝访问，该如何操作？

上面网页的页面代码为：

HTML code

<FRAMESET border=0 frameSpacing=0 COLS="50%,*" frameBorder=0> <FRAME name=topFrame src="http://www.baidu.com"> <FRAME name=topFrame src="http://www.google.com"> FRAMESET>

上面的用WebBrowser1.Document.frames(0)就表示左边百度的框架页，百度的那个搜索框有个属性 name="wd"，这样我们用下面的vb代码操作给它赋值：

VB code

Private Sub Command1_Click() ' MsgBox WebBrowser1.Document.frames.length'这行会显示2，表示有两个frame框架 ' MsgBox WebBrowser1.Document.frames(0).Document.body.innerhtml'这行代码提示拒绝访问 WebBrowser1.Document.frames(0).Document.getElementsByName("wd")(0).Value = "测试"'赋值失败，提示拒绝访问 End Sub

你参考下这个

VB code

' 为运行本程序，应在“菜单->工程->部件”中添加“Microsoft Internet Controls” ' 并在“菜单->工程->引用”中添加“Microsoft HTML Object Library” Sub EnumFrames(ByVal wb As WebBrowser) Dim pContainer As olelib.IOleContainer Dim pEnumerator As olelib.IEnumUnknown Dim pUnk As olelib.IUnknown 'Dim pBrowser As SHDocVw.IWebBrowser2 Dim pBrowser As SHDocVwCtl.WebBrowser_V1 Set pContainer = wb.Object.Document ' Get an enumerator for the frames If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then Set pContainer = Nothing ' Enumerate and refresh all the frames Do While pEnumerator.Next(1, pUnk) = 0 On Error Resume Next ' Clear errors Err.Clear ' Get the IWebBrowser2 interface Set pBrowser = pUnk If Err.Number = 0 Then For i = 0 To pBrowser.Document.All.length - 1 If UCase(pBrowser.Document.All(i).tagName) = "A" Then 'List1.AddItem pBrowser.All(i).href Debug.Print Now & pBrowser.Document.All(i).href Debug.Print Now & pBrowser.Document.All(i).innterHTML pBrowser.Document.All(i).Click 'Exit For End If Next Debug.Print "Frame: " & pBrowser.LocationURL End If Loop Set pEnumerator = Nothing End If End Sub

谢谢楼上，搞定了，贴上完整代码：

VB code

' 为运行本程序，应在“菜单->工程->部件”中添加“Microsoft Internet Controls” ' 并在“菜单->工程->引用”中添加“Microsoft HTML Object Library”，添加“Edanmo's OLE interfaces & functions v1.4” Private Sub Command1_Click() Dim pContainer As olelib.IOleContainer Dim pEnumerator As olelib.IEnumUnknown Dim pUnk As olelib.IUnknown Dim pBrowser As SHDocVwCtl.WebBrowser_V1 Set pContainer = WebBrowser1.Object.Document If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then Set pContainer = Nothing Do While pEnumerator.Next(1, pUnk) = 0 On Error Resume Next Err.Clear Set pBrowser = pUnk If Err.Number = 0 Then If pBrowser.LocationURL = "http://www.baidu.com/" Then pBrowser.Document.getElementsByName( "wd")(0).Value = "测试" Exit Sub End If End If Loop Set pEnumerator = Nothing End If End Sub

公示下是为了让大家都学习下，另外贴个我找到的资料，跟楼主的很像，是从这个改过来的吧？呵呵

http://hi.baidu.com/cnoldjohn/blog/item/ff220ae7c1ac9d2bb8382036.html

vb枚举IE页面框架以及获得跨域框架的控制权

为什么写这个？

1.操作跨域框架。这个资料很难得，我在网上苦苦找了一个星期。以前研究BHO的时候，也是找了好久的。留此存照。在vb吧提问如何取得跨域框架的控制权，仅有一个人对此关注，并且说很简单，直接分析源代码，或者用DOM等...恩，现在的vb吧确实很少有深刻的内容了。

2.了解IE编程知识。本以为通过一次BHO编程，已经了解一些IE编程技巧了，结果这次写这个程序，又辛苦找了十来天的资料。现在看来，自己果然无知。懂得越多，越觉得自己无知。

下面是代码

 

'需要引用Microsoft Html Object Library，Edanmo's Ole interfaces 1.81 ，Microsoft Internet Controls
'其中，Edanmo's Ole interfaces 1.81是Edanmo写的OLELIB.TLB，请自己在网上搜索下载

'声明一个全局变量数组IframeIE，用来保存网页框架的操作对象；至少我是这么操作的，当然有更好的办法请指教cnoldjohn嬷嬷茶

Private IframeIE() As SHDocVw.WebBrowser

'下面代码的核心是修改自MVP Edanmo的大作
'枚举框架，参数WB是一个webbrowser控件的名称，其中承载着我们要分析的页面
Sub EnumFrames(ByVal WB As WebBrowser)
    Dim j As Integer
    Dim pContainer As olelib.IOleContainer
    Dim pEnumerator As olelib.IEnumUnknown
    Dim pUnk As olelib.IUnknown
'获得页面的Document接口，然后我们就可以对其为所欲为了
    Set pContainer = WB.Object.Document
'很奇怪，有时候上面这段对象赋值出错，用下面这句就没有问题了
'Set pContainer = WB.Document
    If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then
        Set pContainer = Nothing
        Do While pEnumerator.Next(1, pUnk) = 0
            On Error Resume Next           
            If Err.Number = 0 Then
     '将框架页面依次赋值到IframeIE数组中
                ReDim Preserve IframeIE(0 To j)
                Set IframeIE(j) = pUnk              
                j = j + 1
            End If
        Loop
        Set pEnumerator = Nothing
    End If
End Sub

以上这段代码的神奇之处在于可以跨域操作框架。
实际用处主要就是刷广告，2008年6月份据此写出的自动点击工具，通杀所有广告联盟代码