[收藏]千方百计得到IHTMLDocument2的接口指针

天云上人

  根据IE浏览器的运行方式，有多种不同的方式可以获取文档指针。

  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
/ y# l' b2 R) {2 q5 B        取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
& Z8 F, Q" F" U& G  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
       取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
' b9 S0 b- _! e% i        那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：
; R3 [7 G" ~6 L
CComPtr < IOleContainer > spContainer;
m_spClientSite->GetContainer( &spContainer );
0 Y1 p7 t* L, ?1 M) n/ T8 CCComQIPtr < IHTMLDocument2 > spDoc = spContainer;
if ( spDoc )
{
/ {- c# D- j7 q/ u- u0 H9 Z     // 已经得到了 IHTMLDocument2 的接口指针
" Q( d2 `  ^, @4 p}

  F3 ~" n  j+ x  <4> 如果你的程序是用 MFC 写的 ActiveX 控件。
       那么需要调用 COleControl::GetClientSite() 得到 IOleContainer 接口，然后的操作和<3>是一致的了。
& m; B0 ~) N0 l  <5> IE 浏览器作为独立的进程正在运行。
0 t) C: Z  B3 S        每个运行的浏览器（IE 和 资源浏览器）都会在 ShellWindows 中进行登记，因此我们要通过 IShellWindows 取得实例（示例程序中使用的就是这个方法）。主要代码如下：

#include < atlbase.h >
#include < mshtml.h >

void FindFromShell()
{
  CComPtr< IShellWindows > spShellWin;
, U7 G; [9 I' S& p( P9 z* Y7 k   HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
3 S2 D9 M7 ?+ y" \9 r+ @2 j/ i   if ( FAILED( hr ) )    return;
0 O0 ^: f4 H4 a. u4 q' _
3 F: l( q. l6 I# R   long nCount=0;
  spShellWin->get_Count(&nCount);   // 取得浏览器实例个数

) |1 a2 a6 \" b* t   for(long i=0; i<nCount; i++)
      {
               CComPtr< IDispatch > spDisp;
. m. Q* ]4 }$ y1 F. @      hr=spShellWin->Item(CComVariant( i ), &spDisp );
0 L% g) L" r5 b" ?      if ( FAILED( hr ) )   continue;
1 S" C% i( ]. ?6 O; k
     CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
     if ( !spBrowser )     continue;
9 g% {2 U9 z5 Q# r' s4 d/ r1 c2 o
' U+ U  R0 f' Y4 ^& ]      spDisp.Release();
2 q5 O$ R6 G7 o( a5 X      hr = spBrowser->get_Document( &spDisp );
     if ( FAILED ( hr ) )  continue;
+ G# c5 ^. C$ Z% @" T9 @
     CComQIPtr< IHTMLDocument2 > spDoc = spDisp;
: ?% R) Q$ v+ x; J6 ?7 H$ x      if ( !spDoc )         continue;

( l1 z- M& m( U8 k% {7 f) _      // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
! ]. Q; e1 N7 X5 r   }
}

  <6> IE 浏览器控件被一个进程包装在一个子窗口中。那么你首先要得到那个进程的顶层窗口句柄（使用 FindWindow() 函数，或其它任何可行的方法），然后枚举所有子窗口，通过判断窗口类名是否是“Internet Explorer_Server”，从而得到浏览器的窗口句柄，再向窗口发消息取得文档的接口指针。主要代码如下：
- y9 S$ W9 H( S# z
! i  f4 V+ c$ x: ^
& k- O4 Y2 k' v#include < atlbase.h >
#include < mshtml.h >
$ E$ J& n; e( i* z$ y; ^" O2 K#include < oleacc.h >
#pragma comment ( lib, "oleacc" )

BOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
  TCHAR szClassName[100];
8 e' ~0 z. I$ y
  ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
3 Y- ?6 s% J, ]# R5 c   if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
  {
     *(HWND*)lParam = hwnd;
     return FALSE;      // 找到第一个 IE 控件的子窗口就停止
  }
  else   return TRUE;      // 继续枚举子窗口
};

. t: L5 V& ?2 r! ~void FindFromHwnd(HWND hWnd)
5 C! ^7 U) r0 f9 e+ k& Q  f{
4 W) R; Y4 T6 S' F6 g   HWND hWndChild=NULL;
  ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
  if(NULL == hWndChild)   return;
3 {/ j$ l/ ?- ^! d' W  w' D
  UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
! v6 W* G7 f/ N+ ^1 F   LRESULT lRes;
  ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );
6 \. T0 k# G1 Q3 Y
  CComPtr < IHTMLDocument2 > spDoc;
  HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
  if ( FAILED ( hr ) )   return;

  // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
}