vb枚举IE页面框架以及获得跨域框架的控制权/访问框架页
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
公示下是为了让大家都学习下，另外贴个我找到的资料，跟楼主的很像，是从这个改过来的吧？呵呵
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
以上这段代码的神奇之处在于可以跨域操作框架。 |
发表于 2013-6-5 11:41 | 
