【100分求教】Webbrowser赋值3层框架出错，两层通过，求达人分析代码,该怎么处理

【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

HTML code

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

HTML code

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

VB code

Private IframeIE() As SHDocVw.WebBrowserPrivate Sub Command1_Click()    EnumFrames Webbrowser1    MsgBox IframeIE(0).Document.body.innerHTML    IframeIE(0).Document.getElementById("kw").Value = "xxxxxx "End SubPrivate Sub Form_Load()    Webbrowser1.Navigate "D:\测试2.html"End SubPublic 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 = NothingEnd 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 IfEnd Sub

VB code

Dim collweb As Collection  '专门用来保存上框架的各个WebBrowser对象Private Sub Command1_Click()    getEleById("kw").Value = "xxxxxx "  '即可设置百度查找框的值End SubPrivate Sub Form_Load()    Webbrowser1.Navigate "D:\测试2.html"End SubPrivate 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 NextDim i As Long, k As Long'以下程序保存框架对象If pDisp Is Webbrowser1.object Then  Set collweb = New Collection  collweb.Add pDispElse  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 pDispEnd IfDebug.Print "共有框架数："; collweb.CountEnd Subfunction getEleById(id) As IHTMLElement '根据id获得元素On Error Resume NextDim i As Integer, ele As IHTMLElementFor 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  NextNextEnd Sub
[解决办法]
探讨

引用:

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

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

Priv……