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

天云上人

  根据IE浏览器的运行方式，有多种不同的方式可以获取文档指针。
4 @& b+ W" @+ `9 G1 g: w7 H( i
1 [% ^& z, D/ B/ r! R  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
/ D& o# S" `) v- z5 p7 T! c- {        取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
: D0 X* F  C" l! m  M" I. C  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
       取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
- T# X+ u) g$ B5 F+ i: m        那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：

CComPtr < IOleContainer > spContainer;
8 N! k5 f7 Y( G" J! `  g, j1 wm_spClientSite->GetContainer( &spContainer );
# E8 u3 K, {* \+ u% JCComQIPtr < IHTMLDocument2 > spDoc = spContainer;
6 V# o+ r: X6 Z+ _6 l1 yif ( spDoc )
{
( W; U3 ^# n. `! _% O     // 已经得到了 IHTMLDocument2 的接口指针
# F; s( N- O, L, `}

5 U+ X/ O: o( r6 [. i  <4> 如果你的程序是用 MFC 写的 ActiveX 控件。
       那么需要调用 COleControl::GetClientSite() 得到 IOleContainer 接口，然后的操作和<3>是一致的了。
: F) W; C+ ?; j' E7 p" K  <5> IE 浏览器作为独立的进程正在运行。
; ^9 ?1 Z5 l  n: K        每个运行的浏览器（IE 和 资源浏览器）都会在 ShellWindows 中进行登记，因此我们要通过 IShellWindows 取得实例（示例程序中使用的就是这个方法）。主要代码如下：
5 c& Y8 x9 E1 P
0 `" x/ ~1 B1 k! z  K#include < atlbase.h >
#include < mshtml.h >

void FindFromShell()
1 ^/ o# e7 F# `5 Y/ a{
% \- T4 [. ]( _) M6 `, [   CComPtr< IShellWindows > spShellWin;
  HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
  if ( FAILED( hr ) )    return;

  long nCount=0;
  Y) S  E) \( D! z" u* z   spShellWin->get_Count(&nCount);   // 取得浏览器实例个数
/ S+ q( l3 |( w# c5 P& f* e1 M
  for(long i=0; i<nCount; i++)
) E. B% C' d+ i* P' [$ k$ P' a       {
+ f. p5 X: o5 w                CComPtr< IDispatch > spDisp;
     hr=spShellWin->Item(CComVariant( i ), &spDisp );
+ z+ l- e) E' f  R7 i      if ( FAILED( hr ) )   continue;
$ s/ g0 x$ f4 R! M
     CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
     if ( !spBrowser )     continue;

& d  ]1 U; R+ {* Y# _6 A, V      spDisp.Release();
     hr = spBrowser->get_Document( &spDisp );
     if ( FAILED ( hr ) )  continue;
6 a! j1 E# p" G- t. t" t- ]+ K
3 Q/ r# _& b3 A5 j6 O8 v      CComQIPtr< IHTMLDocument2 > spDoc = spDisp;
9 S" }% |9 b2 w: C5 }4 d) Z6 `      if ( !spDoc )         continue;

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

1 R' j+ q9 o! z( e; {9 o' p. v  s  A
#include < atlbase.h >
* s$ `3 z3 {1 _4 z* A#include < mshtml.h >
#include < oleacc.h >
#pragma comment ( lib, "oleacc" )

' c  [6 s" G- {; A1 P8 K! ~4 Q3 C2 iBOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
  TCHAR szClassName[100];
+ k! Y+ ?( U& Z" }7 w0 O
  ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
# B2 q- b/ |8 A   if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
  {
     *(HWND*)lParam = hwnd;
     return FALSE;      // 找到第一个 IE 控件的子窗口就停止
  }
  else   return TRUE;      // 继续枚举子窗口
};
, I' i$ C0 \9 m
! ]+ q: ?( G  p7 E. o7 a% ^void FindFromHwnd(HWND hWnd)
{
8 W7 Q" v( I* b# l: N   HWND hWndChild=NULL;
' I" P6 w4 O) R) |& t. D% A& _0 e; i* d   ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
  if(NULL == hWndChild)   return;
6 F/ t+ i% y- V" \; \( ?1 Z0 y
0 k8 b* Y$ a% L7 e* r# \% {   UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
4 i1 K, m% k5 l  V" i& \  B  K   LRESULT lRes;
  ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );

& j, W' e9 d( K, i" r6 Z& D1 [   CComPtr < IHTMLDocument2 > spDoc;
: O- q. ]& R4 w  ]% N: q; ~   HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
  if ( FAILED ( hr ) )   return;

6 j# H$ r8 E4 E( _! H* |1 t5 ?   // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
}