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

天云上人

  根据IE浏览器的运行方式，有多种不同的方式可以获取文档指针。
7 e% x. }) N9 `1 w, j! L4 b; j8 ?
0 y3 I7 r/ X3 P5 h3 ~  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
       取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
3 A  U' l- X3 k2 J5 K/ u7 j0 \  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
8 w& _" [# S" ?- [3 N$ M        取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
+ S) a1 C; T" K" O3 @9 b( E# m        那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：

8 ^5 U; i2 f- GCComPtr < IOleContainer > spContainer;
6 N! a2 h5 R( {, e/ D. A5 _+ F: am_spClientSite->GetContainer( &spContainer );
+ t* c( Q1 E+ A  iCComQIPtr < IHTMLDocument2 > spDoc = spContainer;
if ( spDoc )
+ L+ H8 R/ H0 A- g+ T1 ~1 c{
: v1 I, A* s* Q8 F  X     // 已经得到了 IHTMLDocument2 的接口指针
& C1 Z  n* N: s' s! R}

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

# g/ D3 g9 {1 }" V3 J#include < atlbase.h >
#include < mshtml.h >

void FindFromShell()
: w$ S4 A) k* a" t$ A) Y. O{
; l3 l/ {) c+ |9 a( s  A   CComPtr< IShellWindows > spShellWin;
$ {% ?3 F, O8 g, m   HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
  if ( FAILED( hr ) )    return;

% [# d" _( m0 V' G  l4 a   long nCount=0;
0 l( l6 }! a, J; C0 O' d, C   spShellWin->get_Count(&nCount);   // 取得浏览器实例个数

  for(long i=0; i<nCount; i++)
      {
               CComPtr< IDispatch > spDisp;
7 G; h) z8 Y$ q2 C4 S; t7 _2 j      hr=spShellWin->Item(CComVariant( i ), &spDisp );
5 N6 O% Y5 {7 ]& {3 ^9 T      if ( FAILED( hr ) )   continue;

! {* H' o8 @+ U/ u      CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
     if ( !spBrowser )     continue;
3 _6 F! o! r8 M8 z  S
     spDisp.Release();
     hr = spBrowser->get_Document( &spDisp );
' u7 ^0 T: _8 O  w3 q0 z& n      if ( FAILED ( hr ) )  continue;

- o/ ^3 i- p9 T$ R" `      CComQIPtr< IHTMLDocument2 > spDoc = spDisp;
' o, u1 Q  d3 D' T3 X0 O- A      if ( !spDoc )         continue;

     // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
8 f) u+ {* ^0 c4 C; ?. g   }
) \1 S/ J1 U. ~, P5 p}
  y, b5 k+ [6 d5 d
+ M' x! }( U2 P& U& J4 u( d  <6> IE 浏览器控件被一个进程包装在一个子窗口中。那么你首先要得到那个进程的顶层窗口句柄（使用 FindWindow() 函数，或其它任何可行的方法），然后枚举所有子窗口，通过判断窗口类名是否是“Internet Explorer_Server”，从而得到浏览器的窗口句柄，再向窗口发消息取得文档的接口指针。主要代码如下：
2 C# U6 w. E% ?/ h; {7 `9 L

: P" k% o, X) y" k" f' Q. `#include < atlbase.h >
#include < mshtml.h >
& c" B6 Q1 F9 d#include < oleacc.h >
1 ?, \5 I4 Q/ V#pragma comment ( lib, "oleacc" )

1 m* j5 k! e( f% H  f+ d( gBOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
  TCHAR szClassName[100];
2 L' Q2 T8 h2 {, Y
  ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
3 ~/ E' q% H& d- f  F   if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
  {
$ x% d  S8 o: @" }      *(HWND*)lParam = hwnd;
; W: V9 g) h7 A* [' C      return FALSE;      // 找到第一个 IE 控件的子窗口就停止
  }
  else   return TRUE;      // 继续枚举子窗口
8 u$ A) @6 ^$ z9 b};
0 G( q% n5 B# Q2 [  C
; h9 g  a0 e! _, Jvoid FindFromHwnd(HWND hWnd)
) |/ t' Z% H$ `4 q{
  HWND hWndChild=NULL;
7 O2 }+ @% @# n6 d7 d" v2 T* C   ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
  if(NULL == hWndChild)   return;

  UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
  LRESULT lRes;
  i$ n8 y) a) z' B( ^: L   ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );

  CComPtr < IHTMLDocument2 > spDoc;
  }; {- z7 ?% s' T( g) E. a- A   HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
  if ( FAILED ( hr ) )   return;

  // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
  i7 Y4 k5 q+ a& M3 e) `}