hWndを元にInternetExplorerオブジェクトを生成できますか？ (ID:102200)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

> この"IFrame"や"TabWindowClass"のhWndからInternetExplorerオブジェクトを取得したいと考えています。

『Internet Explorer_Server』のハンドルからで良ければ、
以下のようにして取得できます。

Public Function GetWebBrowser2(ByVal hWnd As Long) As SHDocVw.IWebBrowser2
    Dim document As HTMLDocument
    Dim pUnk As olelib.IUnknown

Dim IID_IServiceProvider As UUID
    CLSIDFromString "{6D5140C1-7436-11CE-8034-00AA006009FA}", IID_IServiceProvider
    Dim IID_IWebBrowser2 As UUID
    CLSIDFromString "{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}", IID_IWebBrowser2
    Dim SID_SWebBrowserApp As UUID
    CLSIDFromString SIDSTR_SWebBrowserApp, SID_SWebBrowserApp

Dim dom As MSHTML.IHTMLDocument
    Set dom = WindowDOM(hWnd)
    Set pUnk = dom.parentWindow
    Dim pService As IServiceProvider
    pUnk.QueryInterface IID_IServiceProvider, pService
    pService.QueryService SID_SWebBrowserApp, IID_IWebBrowser2, GetWebBrowser2
End Function

上記の WindowDOM 関数は、下記のサンプルにある物を利用しています。
http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200904/09040020.txt

また、参照設定として、
  Microsoft Internet Controls (SHDOCVW.DLL)
  Microsoft HTML Object Library (MSHTML.TLB)
  Edanmo's OLE interfaces & functions v1.81 (OLELIB.TLB)
を加えています。OLELIB.TLB は、下記のライブラリです。
http://www.mvps.org/emorcillo/en/code/vb6/index.shtml

←解決時は質問者本人がここをチェックしてください。

戻る