根據Internet Explorer_Server視窗得到IHtmlDocument2介面 (轉)

根據Internet Explorer_Server視窗得到IHtmlDocument2介面 (轉)[@more@]

程式碼很少，自己看

#include
#include
#include

BOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
 TCHAR buf[100];

 ::GetClassName( hwnd, (LPTSTR)&buf, 100 );
 if ( _tcscmp( buf, _T("Inte Explorer_Server") ) == 0 ) 

{
 *(HWND*)lParam = hwnd;
 return FALSE;
 }
 else
 return TRUE;
};

//You can store the interface pointer in a member variable
//for easier access
void CDlg::OnGetDocInterface(HWND hWnd)
{
 CoInitialize( NULL );

 // Explicitly load MSAA so we know if it's installed
 HINSTANCE hInst = ::LoadLibrary( _T("OLEACC.DLL") );
 if ( hInst != NULL )
 {
 if ( hWnd != NULL )
 {
 HWND hWndChild=NULL;
 // Get 1st document window
 ::EnumChild( hWnd, EnumChildProc, (LPARAM)&hWndChild );
 if ( hWndChild )
 {
 CComPtr spDoc;
 LRESULT lRes;
 
 UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GET") );
 ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (D*)&lRes );

 LPFNOBJECTFROMLRESULT pfObjectFromLresult = (LPFNOBJECTFROMLRESULT)::GetProcAddress( hInst, _T("ObjectFromLresult") );
 if ( pfObjectFromLresult != NULL )
 {
 HRESULT hr;
 hr = (*pfObjectFromLresult)( lRes, IID_IHTMLDocument, 0, (void**)&spDoc );
 if ( SUCCEEDED(hr) )
 {
 CComPtr spDisp;
 CComQIPtr spWin;
 spDoc->get_Script( &spDisp );
 spWin = spDisp;
 spWin->get_document( &spDoc.p );
 // Change background color to red
 spDoc->put_bgColor( CComVariant("red") );
 }
 }
 } // else document not ready
 } // else Internet Explorer is not running
 ::FreeLibrary( hInst );
 } // else Active Accessibility is not installed
 CoUninitialize();
}