#include "StdAfx.h"

#include <mshtml.h>

#include <atlcomcli.h>

#include <atlbase.h>

#include "ie.h"

void EnumForm( IHTMLDocument2 * pIHTMLDocument2 );

char g_szAddr[256];

char* g_strRet;

bool g_ret;

void EnumFrame( IHTMLDocument2 * pIHTMLDocument2 )

}

void EnumForm( IHTMLDocument2 * pIHTMLDocument2 )

}

BOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)

};

IHTMLDocument2* GetDocInterface(HWND hWnd)

{

CComPtr<IHTMLDocument2> spDoc=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

::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );

if ( hWndChild )

{

LRESULT lRes;

UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );

::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*)&lRes );

LPFNOBJECTFROMLRESULT pfObjectFromLresult = (LPFNOBJECTFROMLRESULT)::GetProcAddress( hInst, "ObjectFromLresult" );

if ( pfObjectFromLresult != NULL )

{

HRESULT hr;

hr = (*pfObjectFromLresult)( lRes, IID_IHTMLDocument, 0, (void**)&spDoc );

if ( SUCCEEDED(hr) )

{

CComPtr<IDispatch> spDisp;

CComQIPtr<IHTMLWindow2> spWin;

try

{

spDoc->get_Script( &spDisp );

}

catch(...)

{

return NULL;

}

try

{

spWin = spDisp;

if( spWin )

spWin->get_document( &spDoc.p );

else

return NULL;

// Change background color to red

// spDoc->put_bgColor( CComVariant("red") );

}

catch(...)

{

return NULL;

}

}

}

} // else document not ready

else

return NULL;

} // else Internet Explorer is not running

::FreeLibrary( hInst );

} // else Active Accessibility is not installed

//得到ARRD

return spDoc;

}

bool GetIeInfo(HWND hwnd, char* strRet, char* szAddr)

}