一、摘要　　在我们编写的程序中，如果想要实现对浏览器打开的网页进行监视、模拟操纵、动态提取用户输入、动态修改......等功能，那么请你抽出宝贵的时间，继续往下阅读。本文介绍的知识和示例程序都是围绕如何遍历 HTML 中的表单(form)并枚举出表单域的属性为目标的，对于网页中的其它元素，比如图象、连接、脚本等等，应用同样的方法都可以轻松实现。

二、网页的文档层次结构　　IE 浏览器，采用 DOM（文档对象模型）来管理网页的数据。它通过一个容器（IWebBrowser2/IHTMLWindow2）来装载网页文档（IHTMLDocument2），而一个文档，又可以由 0 或多个贞(frame)组成，管理这些贞的接口叫“框架集合（IHTMLFramesCollection2）”,而每个贞的容器又是IHTMLWindow2，和IWebBrowser2一样，它也装载着各自的文档（IHTMLDocument2）。因此，我们的第一个任务，就是想方设法能够得到IHTMLDocument2的接口。因为文档可能包含贞，而贞又包含着子文档，子文档可能再包含贞......，如此要得到所有的文档，这里有一个递归遍历的处理过程。　　得到文档（IHTMLDocument2）后，下一步任务就是要设法取得表单了（IHTMLFormElement）。因为在一个文档中可以包含 0 或多个表单(form)，而管理这些表单的又是一个表单集合（IHTMLElementCollection），所以必须先得到集合，然后再枚举出所有的表单条目了。　　得到表单（IHTMLFormElement）后，接下来的事情就简单了，逐个提取表单中的元素（也叫表单域 IHTMLInputElement）就可以读写这些域的属性了。　　说了半天，我估计初次接触的朋友一定没有听懂:( 呵呵，还是用图的方式表示一下吧，这样比较清晰一些。 

三、程序实现

取得 IHTMLDocument2 的接口指针。根据IE浏览器的运行方式，有多种不同的方式可以获取文档指针。  如果你在程序中使用MFC的 CHtmlView 视来浏览网页。        取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。  如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。        取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。  如果你的程序是用 ATL 写的 ActiveX 控件。        那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：

void FindFromShell() { CComPtr spShellWin; HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows ); if ( FAILED( hr ) ) return;

long nCount=0; spShellWin->get_Count(&nCount); // 取得浏览器实例个数

for(long i=0; i { CComPtr { CComPtr { CComPtr spDisp; hr=spShellWin->Item(CComVariant( i ), &spDisp ); if ( FAILED( hr ) ) continue;

CComQIPtr spBrowser = spDisp; if ( !spBrowser ) continue;

spDisp.Release(); hr = spBrowser->get_Document( &spDisp ); if ( FAILED ( hr ) ) continue;

CComQIPtr spDoc = spDisp; if ( !spDoc ) continue;

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

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

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

::GetClassName( hwnd, &szClassName, sizeof(szClassName) ); if ( _tcscmp( szClassName, _T("Internet Explorer_Server") ) == 0 ) { *(HWND*)lParam = hwnd; return FALSE; // 找到第一个 IE 控件的子窗口就停止 } else return TRUE; // 继续枚举子窗口};

void FindFromHwnd(HWND hWnd) { 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 );

CComPtr spDoc; HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc ); if ( FAILED ( hr ) ) return;

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

for(long j=0; j{ CComDispatchDriver spInputElement; // IDispatch 的智能指针 spFormElement->item( CComVariant( j ), CComVariant(), &spInputElement );

CComVariant vName,vVal,vType; // 域名称，域值，域类型 spInputElement.GetPropertyByName( L"name", &vName ); spInputElement.GetPropertyByName( L"value",&vVal ); spInputElement.GetPropertyByName( L"type", &vType ); // 使用 IDispatch 的智能指针的好处就是：象上面这样读取、设置属性很简单 // 另外调用 Invoke 函数也异常方便，Invoke0(),Invoke1(),Invoke2().... ......}

　　示例程序在 VC6 下编译执行通过。运行方法：随便启动几个 IE 浏览网页，最好是有表单输入的网页。然后执行示例的 EXE 程序即可。到这里，就到这里了......祝大家学习快乐 ^-^

下载源代码

http://www.vckbase.com/document/viewdoc/?id=1446