Getting the IWebBrowser2 interface for each HTML frame

最新推荐文章于 2025-12-16 21:51:40 发布

转载最新推荐文章于 2025-12-16 21:51:40 发布 · 1.3k 阅读

文章标签：

#interface #html #each #webbrowser #microsoft

技术文章专栏收录该内容

18 篇文章

订阅专栏

博客介绍了获取HTML页面中每个框架的IWebBrowser2接口的代码。该代码会枚举WebBrowser控件中加载的HTML页面的框架，以获取IWebBrowser2接口。此技巧基于微软KB文章196340，且需要OLELIB.TLB类型库。

http://www.mvps.org/emorcillo/en/code/vb6/wbframe.shtml

Getting the IWebBrowser2 interface for each HTML frame

This code enumerates the frames of a HTML page loaded in the WebBrowser control to get they IWebBrowser2 interface.
Note: This tip is based on the Microsoft KB article 196340 and requieres the OLELIB.TLB type library.

EnumFrames
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

   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
            Debug.Print "Frame: " & pBrowser.LocationURL
         End If

      Loop

      Set pEnumerator = Nothing

   End If

End Sub