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

天云上人

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

7 A1 f, A+ ^/ I  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
/ X$ g( [! s; @# e8 }        取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
/ l1 x8 j6 y3 f& x" o; P        取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
  R8 H# q) a% U% M. w& w4 n( u8 M  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
       那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：

& I8 z$ s2 X# F0 T6 ^  q5 v3 RCComPtr < IOleContainer > spContainer;
' S4 a2 H9 ~2 q" r$ b: qm_spClientSite->GetContainer( &spContainer );
- n% t/ f( x+ x2 g& K, l' W+ C3 {CComQIPtr < IHTMLDocument2 > spDoc = spContainer;
if ( spDoc )
{
' d9 I* D& n6 w     // 已经得到了 IHTMLDocument2 的接口指针
# J8 W) [# S3 v1 q, A}
- i, u$ E( b, M, c
( l0 h  x7 E2 t/ ?& U, l. `  <4> 如果你的程序是用 MFC 写的 ActiveX 控件。
       那么需要调用 COleControl::GetClientSite() 得到 IOleContainer 接口，然后的操作和<3>是一致的了。
: g" @; u! c( p: X0 {  <5> IE 浏览器作为独立的进程正在运行。
       每个运行的浏览器（IE 和 资源浏览器）都会在 ShellWindows 中进行登记，因此我们要通过 IShellWindows 取得实例（示例程序中使用的就是这个方法）。主要代码如下：

: X& ^9 ~9 h+ F% z1 M) E& q#include < atlbase.h >
% m7 s" ?! P6 e( U/ l/ `8 k#include < mshtml.h >

  [9 f6 e/ b( l$ A3 k- ]void FindFromShell()
{
  CComPtr< IShellWindows > spShellWin;
  HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
  if ( FAILED( hr ) )    return;

" {, E1 ^1 B+ H. e" R/ y  {   long nCount=0;
  spShellWin->get_Count(&nCount);   // 取得浏览器实例个数
% ]/ I- ~2 q3 j, k# l
  for(long i=0; i<nCount; i++)
) ~% o. W- V- `" X       {
               CComPtr< IDispatch > spDisp;
     hr=spShellWin->Item(CComVariant( i ), &spDisp );
     if ( FAILED( hr ) )   continue;

     CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
     if ( !spBrowser )     continue;

" `6 j/ D4 x% ]0 [" M' y      spDisp.Release();
     hr = spBrowser->get_Document( &spDisp );
' }4 _2 J+ Z6 q, A      if ( FAILED ( hr ) )  continue;
% b8 _/ C+ Y  S# t* C
$ a1 V0 [- ]* M! A, e      CComQIPtr< IHTMLDocument2 > spDoc = spDisp;
     if ( !spDoc )         continue;
* j* k0 ?7 s& ^, A, N
     // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
2 y4 X0 R) b& S4 \7 e2 D   }
}

  K; e. p/ s4 }2 e, e9 X3 f' y  <6> IE 浏览器控件被一个进程包装在一个子窗口中。那么你首先要得到那个进程的顶层窗口句柄（使用 FindWindow() 函数，或其它任何可行的方法），然后枚举所有子窗口，通过判断窗口类名是否是“Internet Explorer_Server”，从而得到浏览器的窗口句柄，再向窗口发消息取得文档的接口指针。主要代码如下：
2 _; \* `6 n8 V) p, j0 X6 }6 ?( U
( z5 o' b* p- f; q& ?0 W# q
#include < atlbase.h >
#include < mshtml.h >
2 c& `5 h# I( I5 a- A# a& i/ K#include < oleacc.h >
#pragma comment ( lib, "oleacc" )

BOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
  m- K/ ~2 H" o; [+ O7 L   TCHAR szClassName[100];

  ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
( V; f& s# A; _9 E* G   if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
  {
( [0 G9 H6 e8 N! a7 x9 [      *(HWND*)lParam = hwnd;
     return FALSE;      // 找到第一个 IE 控件的子窗口就停止
  }
  else   return TRUE;      // 继续枚举子窗口
' W: z6 S- |% U1 ]* J};

5 a; z9 Q# [  Dvoid FindFromHwnd(HWND hWnd)
$ b  j( D& x, B9 O$ d{
  HWND hWndChild=NULL;
  ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
  if(NULL == hWndChild)   return;

  UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
  LRESULT lRes;
  ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );
" T5 @: v1 d" [; i+ ~6 T
  CComPtr < IHTMLDocument2 > spDoc;
9 T! h* c3 [9 V, R/ K2 p   HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
  if ( FAILED ( hr ) )   return;

  // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
2 J! o4 z0 e9 Z" S& g}