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

天云上人

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

  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
, v# Y) r) K4 ~) ~0 y  h        取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
9 ~( s% a  ]+ H, G! t. z  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
       取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
! U. ~* r9 h6 P1 z8 x# K3 q  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
       那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：
* o* g( \% r8 M! E) B! h
3 \* m6 i( `  tCComPtr < IOleContainer > spContainer;
3 w" f5 r0 r* r& I2 gm_spClientSite->GetContainer( &spContainer );
CComQIPtr < IHTMLDocument2 > spDoc = spContainer;
if ( spDoc )
{
% J# t5 c& F( d/ H1 |     // 已经得到了 IHTMLDocument2 的接口指针
% g7 \4 k9 ]$ A}

  <4> 如果你的程序是用 MFC 写的 ActiveX 控件。
0 L) g! v  b, D& f6 ]. }  W        那么需要调用 COleControl::GetClientSite() 得到 IOleContainer 接口，然后的操作和<3>是一致的了。
0 G- |$ y# A  G  <5> IE 浏览器作为独立的进程正在运行。
' H! R. |) v7 S4 x7 H, C- }        每个运行的浏览器（IE 和 资源浏览器）都会在 ShellWindows 中进行登记，因此我们要通过 IShellWindows 取得实例（示例程序中使用的就是这个方法）。主要代码如下：

#include < atlbase.h >
5 E- h: I' t+ X' a3 O. k#include < mshtml.h >
6 m8 m' P, b, V
' y: }$ E" B2 i9 {void FindFromShell()
{
  CComPtr< IShellWindows > spShellWin;
" q/ x8 x3 e6 \/ A/ z/ p   HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
. I" Z% ?# {, w+ M( @, g   if ( FAILED( hr ) )    return;
+ A/ G- w$ k. ~! L! v$ {% L# m
: g/ a: e: r. V( ?   long nCount=0;
' \/ d* E3 [5 {. L   spShellWin->get_Count(&nCount);   // 取得浏览器实例个数
# P  S' j  i1 m
  for(long i=0; i<nCount; i++)
+ ]8 {2 C" l; z- `" r' d       {
6 B( ?, ~, a5 W                CComPtr< IDispatch > spDisp;
     hr=spShellWin->Item(CComVariant( i ), &spDisp );
     if ( FAILED( hr ) )   continue;

     CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
     if ( !spBrowser )     continue;
: f$ A4 P' i& J% J+ k' ]: [
     spDisp.Release();
1 ?: F, F6 Q% r3 D) ~      hr = spBrowser->get_Document( &spDisp );
1 M  Z0 E) N( T" A2 d& M      if ( FAILED ( hr ) )  continue;

     CComQIPtr< IHTMLDocument2 > spDoc = spDisp;
     if ( !spDoc )         continue;

# U- F2 N1 U7 I$ J+ }      // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
( [. m, u' _" S1 L   }
/ k4 t/ L+ v$ g$ k" f5 u}
# m6 L& y1 M% c$ x
  <6> IE 浏览器控件被一个进程包装在一个子窗口中。那么你首先要得到那个进程的顶层窗口句柄（使用 FindWindow() 函数，或其它任何可行的方法），然后枚举所有子窗口，通过判断窗口类名是否是“Internet Explorer_Server”，从而得到浏览器的窗口句柄，再向窗口发消息取得文档的接口指针。主要代码如下：

8 X$ B- H+ T/ B
% g. J' ^: U0 j) }# Q1 i# o8 L8 G#include < atlbase.h >
#include < mshtml.h >
#include < oleacc.h >
#pragma comment ( lib, "oleacc" )
+ X+ W( ]# l$ r3 C7 E6 Y
# ]4 T* L( A% D% E! b# {, c% XBOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
& z" H3 A) q6 W* y& S{
  TCHAR szClassName[100];
5 X/ X" a8 C1 [7 I) E
9 Q0 W6 P7 T! B4 K, U   ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
  if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
& z2 u( d* C1 b4 u0 Q3 h* A   {
     *(HWND*)lParam = hwnd;
     return FALSE;      // 找到第一个 IE 控件的子窗口就停止
  }
  else   return TRUE;      // 继续枚举子窗口
7 f2 n0 `5 J3 h0 Z$ \; e( @8 ]* N};
* S9 \$ O$ `" y1 G& X
void FindFromHwnd(HWND hWnd)
7 k- F, A9 C- P8 F" ~3 Z" J{
  HWND hWndChild=NULL;
  ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
  if(NULL == hWndChild)   return;
: u8 Q( G& K+ ^* f4 A1 l
  UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
  LRESULT lRes;
8 ]  T" a  e7 L) V3 u$ T# n# \   ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );

  CComPtr < IHTMLDocument2 > spDoc;
  HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
  if ( FAILED ( hr ) )   return;

# I( s0 N  K1 t9 b   // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
}