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

天云上人

  根据IE浏览器的运行方式，有多种不同的方式可以获取文档指针。
' W4 B/ e; K5 N* T1 Q
  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
       取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
       取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
6 T3 M+ d0 j# n  H4 I  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
4 l2 O: t0 J7 R( |/ E3 G        那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：

1 w! J8 @) I" O1 K6 |CComPtr < IOleContainer > spContainer;
m_spClientSite->GetContainer( &spContainer );
3 F& s4 z! n2 b" M) G$ pCComQIPtr < IHTMLDocument2 > spDoc = spContainer;
if ( spDoc )
' M' s9 n  Z7 ?$ ?; T2 _( i{
# H: a( a9 W: j* z" J& @     // 已经得到了 IHTMLDocument2 的接口指针
, [: c/ G' ?. E# L' \. T}
' M. A. I& D: K# A
) f1 {% d+ |' Q  <4> 如果你的程序是用 MFC 写的 ActiveX 控件。
       那么需要调用 COleControl::GetClientSite() 得到 IOleContainer 接口，然后的操作和<3>是一致的了。
& a+ n$ K6 V# N) S) g. Y6 Q  <5> IE 浏览器作为独立的进程正在运行。
2 F7 {; u3 x7 S. \        每个运行的浏览器（IE 和 资源浏览器）都会在 ShellWindows 中进行登记，因此我们要通过 IShellWindows 取得实例（示例程序中使用的就是这个方法）。主要代码如下：
. \4 T2 ]$ Q1 v3 I% [
#include < atlbase.h >
( C) ]4 q% @; E#include < mshtml.h >

1 U! t! r  ?) Gvoid FindFromShell()
4 e, p2 ^' k- @. T5 i; w{
  CComPtr< IShellWindows > spShellWin;
  HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
- S7 k5 p: L+ U$ L) b9 V. S1 Q  n   if ( FAILED( hr ) )    return;
! A, w( x' x6 |3 R2 r4 E5 A
  long nCount=0;
  spShellWin->get_Count(&nCount);   // 取得浏览器实例个数

& r3 P2 }5 a* Z- @; L: x% s8 F5 I; f   for(long i=0; i<nCount; i++)
      {
, j! I  ~. {1 b; z8 |4 \- R& T+ W+ e                CComPtr< IDispatch > spDisp;
     hr=spShellWin->Item(CComVariant( i ), &spDisp );
     if ( FAILED( hr ) )   continue;

' R/ A7 o% }) t  S1 Y      CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
9 G& f/ u. `% o* s      if ( !spBrowser )     continue;

& Z% N0 t, ~& N% O      spDisp.Release();
; P- C! a; Q$ h+ c8 T" ?      hr = spBrowser->get_Document( &spDisp );
3 q1 R/ J% i6 W# k1 R* n# _# |$ Q9 k      if ( FAILED ( hr ) )  continue;

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

     // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
  }
+ X, @0 W' }: l% W& Y}

  <6> IE 浏览器控件被一个进程包装在一个子窗口中。那么你首先要得到那个进程的顶层窗口句柄（使用 FindWindow() 函数，或其它任何可行的方法），然后枚举所有子窗口，通过判断窗口类名是否是“Internet Explorer_Server”，从而得到浏览器的窗口句柄，再向窗口发消息取得文档的接口指针。主要代码如下：

7 o- }. i: f$ T. B5 G1 _
2 B1 t4 g2 A/ z+ W8 ^6 P* B3 C' u#include < atlbase.h >
#include < mshtml.h >
#include < oleacc.h >
. x' z9 g9 J" {0 m#pragma comment ( lib, "oleacc" )

4 w& ^/ G+ s; T$ T! ]: ]# U/ N$ qBOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
$ q6 ^8 ^! M3 l) ?, o9 \, M   TCHAR szClassName[100];

' y1 Q% O) K9 c( ]5 \   ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
; G2 N6 U; c) M7 L' j3 H6 |. @   if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
  {
& U- ~- i2 }8 q& a      *(HWND*)lParam = hwnd;
8 Z4 k* r3 n) r2 {2 y7 c# q      return FALSE;      // 找到第一个 IE 控件的子窗口就停止
  }
4 b9 i+ G2 a5 q4 p2 K3 @   else   return TRUE;      // 继续枚举子窗口
};

void FindFromHwnd(HWND hWnd)
{
  h/ K% B+ |5 y/ p   HWND hWndChild=NULL;
  ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
  if(NULL == hWndChild)   return;

  UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
  LRESULT lRes;
+ t% G1 X4 \8 u- x   ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );

  CComPtr < IHTMLDocument2 > spDoc;
8 e% E$ J2 T% a) w  i+ f; @   HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
* ~3 |# p7 N+ G# N* U" Z   if ( FAILED ( hr ) )   return;

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