【100分求教】Webbrowser赋值3层框架出错，两层通过，求达人分析代码
测试软件:VB 6.0
测试环境：win7
把测试1.html、测试2.html放在D盘，执行VB脚本的时候如果Webbrowser1.Navigate "D:\测试1.html"，就能赋值，Webbrowser1.Navigate "D:\测试2.html"就赋值不了了。请大侠们赐教！


测试1.html

<iframe application="yes" width=600 height=600 name = "qwe" id="wori" src="http://www.baidu.com/"></iframe>

测试2.html

<iframe border=0 name=lantk src="D:\测试1.html" width=500 height=400 allowTransparency scrollbars=yes frameBorder="0"> 
</iframe> 

vb脚本

Private IframeIE() As SHDocVw.WebBrowser

Private Sub Command1_Click()
    EnumFrames Webbrowser1
    MsgBox IframeIE(0).Document.body.innerHTML
    IframeIE(0).Document.getElementById("kw").Value = "xxxxxx "

End Sub

Private Sub Form_Load()
    Webbrowser1.Navigate "D:\测试2.html"
End Sub

Public Function getObjByAtt(doc, tagName, Att, selfAtt) As Object
   Dim doc_1 As Object, i As Object
   Set doc_1 = doc.getElementsByTagName(tagName)
   For Each i In doc_1
        If i.getAttribute(Att) = selfAtt Then
         Set getObjByAtt = i
         Exit Function
         Exit For
      End If
   Next
   Set getObjByAtt = Nothing
End Function

'下面代码的核心是修改自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
'            Debug.Print IframeIE(j).Document.body.innerhtml
            j = j + 1
        End If
    Loop
    Set pEnumerator = Nothing
    End If 
 
End Sub

[解决办法]
可以用另一种方法来实现

Dim collweb As Collection  '专门用来保存上框架的各个WebBrowser对象

Private Sub Command1_Click()
    getEleById("kw").Value = "xxxxxx "  '即可设置百度查找框的值
End Sub

Private Sub Form_Load()
    Webbrowser1.Navigate "D:\测试2.html"
End Sub

Private Sub Webbrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
On Error Resume Next
Dim i As Long, k As Long
'以下程序保存框架对象
If pDisp Is Webbrowser1.object Then
  Set collweb = New Collection
  collweb.Add pDisp
Else
  k = 0
  For i = 1 To collweb.Count
    If pDisp Is collweb(i) Then
      k = i
      Exit For
    End If
  Next
  If k > 0 Then collweb.Remove k
  collweb.Add pDisp
End If
Debug.Print "共有框架数："; collweb.Count
End Sub

function getEleById(id) As IHTMLElement '根据id获得元素
On Error Resume Next
Dim i As Integer, ele As IHTMLElement
For i = 1 To collweb.Count
  For Each ele In collweb(i).Document.body.All
    If InStr(ele.Id, id) Then
      getEleById=ele
      exit function 
    End If
  Next
Next
End Sub

[解决办法]

引用:

引用:

可以用另一种方法来实现
VB code
Dim collweb As Collection '专门用来保存上框架的各个WebBrowser对象

Private Sub Command1_Click()
getEleById("kw").Value = "xxxxxx " '即可设置百度查找框的值
End Sub

Priv……

function getEleById(id) As IHTMLElement '根据id获得元素
On Error Resume Next
Dim i As Integer, ele As IHTMLElement
For i = 1 To collweb.Count
For Each ele In collweb(i).Document.body.All
If InStr(ele.Id, id) Then
getEleById=ele '应当是 set getEleById=ele
exit function
End If
Next
Next
End Sub
另外，要引用，Microsoft HTML Object