自动填写网页表单

#include "stdafx.h"
//#include "EnumFormVal.h"

#include <atlbase.h>

CComModule _Module;  // 由于要使用 CComDispatchDriver ATL的智能指针，
// 所以声明它是必须的

#include <mshtml.h>  // 所有 IHTMLxxxx 的接口声明
#include <atlcom.h>

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/
// The one and only application object

#include<iostream>
#include <Exdisp.h>

using namespace std;

void EnumIE( void );        //枚举浏览器函数
void EnumFrame( IHTMLDocument2 * pIHTMLDocument2 ); //枚举子框架函数
void EnumForm ( IHTMLDocument2 * pIHTMLDocument2 ); //枚举表单函数

int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
{
	::CoInitialize(NULL); //初始化 COM 公寓

	EnumIE();    //枚举浏览器

	::CoUninitialize();  //释放 COM 公寓

	wcout << ("======完成======") << endl;
	getchar();    //等待回车

	return 0;
}

void EnumIE( void )
{
	wcout << ("开始扫描系统中正在运行的浏览器实例") << endl;

	CComPtr< IShellWindows > spShellWin;
	HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
	if ( FAILED ( hr ) )
	{
		wcout <<   ("获取 IShellWindows 接口错误") << endl;
		return;
	}

	long nCount = 0;  // 取得浏览器实例个数(Explorer 和 IExplorer)
	spShellWin->get_Count( &nCount );
	if( 0 == nCount )
	{
		wcout << ("没有在运行着的浏览器") << endl;
		return;
	}

	wcout << ("运行着的浏览器(Explorer 和 IExplorer) 个数： ") << nCount << endl;

	for(int i=0; i<nCount; i++)
	{
		CComPtr< IDispatch > spDispIE;
		hr=spShellWin->Item(CComVariant( (long)i ), &spDispIE );
		if ( FAILED ( hr ) ) continue;

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

		CComPtr < IDispatch > spDispDoc;
		hr = spBrowser->get_Document( &spDispDoc );
		if ( FAILED ( hr ) ) continue;

		CComQIPtr< IHTMLDocument2 > spDocument2 = spDispDoc;
		if ( !spDocument2 )  continue;

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

		// 删除下行语句的注释，把浏览器的背景改变看看
		// spDocument2->put_bgColor( CComVariant( "green" ) );

		EnumForm( spDocument2 );  //枚举所有的表单
	}
}

void EnumFrame( IHTMLDocument2 * pIHTMLDocument2 )
{
	if ( !pIHTMLDocument2 ) return;

	HRESULT hr;

	CComPtr< IHTMLFramesCollection2 > spFramesCollection2;
	pIHTMLDocument2->get_frames( &spFramesCollection2 ); //取得框架frame的集合

	long nFrameCount=0;    //取得子框架个数
	hr = spFramesCollection2->get_length( &nFrameCount );
	if ( FAILED ( hr ) || 0 == nFrameCount ) return;

	for(long i=0; i<nFrameCount; i++)
	{
		CComVariant vDispWin2;  //取得子框架的自动化接口
		hr = spFramesCollection2->item( &CComVariant(i), &vDispWin2 );
		if ( FAILED ( hr ) ) continue;

		CComQIPtr< IHTMLWindow2 > spWin2 = vDispWin2.pdispVal;
		if( !spWin2 ) continue; //取得子框架的 IHTMLWindow2 接口

		CComPtr < IHTMLDocument2 > spDoc2;
		spWin2->get_document( &spDoc2 ); //取得字框架的 IHTMLDocument2 接口

		EnumForm( spDoc2 );   //递归枚举当前子框架 IHTMLDocument2 上的表单form
	}
}

void EnumForm( IHTMLDocument2 * pIHTMLDocument2 )
{
	if( !pIHTMLDocument2 ) return;

	EnumFrame( pIHTMLDocument2 ); //递归枚举当前 IHTMLDocument2 上的子框架fram

	HRESULT hr;
	CComBSTR bstrTitle;
	pIHTMLDocument2->get_title( &bstrTitle ); //取得文档标题

	USES_CONVERSION;
	wcout <<   ("====================") << endl;
	wcout <<   ("开始枚举“") << OLE2CT( bstrTitle ) << ("”的表单") << endl;
	wcout <<   ("====================") << endl;

	CComQIPtr< IHTMLElementCollection > spElementCollection;
	hr = pIHTMLDocument2->get_forms( &spElementCollection ); //取得表单集合
	if ( FAILED( hr ) )
	{
		wcout <<   ("获取表单的集合 IHTMLElementCollection 错误") << endl;
		return;
	}

	long nFormCount=0;    //取得表单数目
	hr = spElementCollection->get_length( &nFormCount );
	if ( FAILED( hr ) )
	{
		wcout <<   ("获取表单数目错误") << endl;
		return;
	}

	wcout <<   ("获取表单数目 = ") << nFormCount << endl;

	for(long i=0; i<nFormCount; i++)
	{
		IDispatch *pDisp = NULL; //取得第 i 项表单
		hr = spElementCollection->item( CComVariant( i ), CComVariant(), &pDisp );
		if ( FAILED( hr ) )  continue;

		CComQIPtr< IHTMLFormElement > spFormElement = pDisp;
		pDisp->Release();

		long nElemCount=0;   //取得表单中 域 的数目
		hr = spFormElement->get_length( &nElemCount );
		if ( FAILED( hr ) )  continue;

		for(long j=0; j<nElemCount; j++)
		{
			CComDispatchDriver spInputElement; //取得第 j 项表单域
			hr = spFormElement->item( CComVariant( j ), CComVariant(), &spInputElement );
			if ( FAILED( hr ) ) continue;

			CComVariant vName,vVal,vType;  //取得表单域的 名，值，类型
			hr = spInputElement.GetPropertyByName( L"name", &vName );
			if( FAILED( hr ) ) continue;
			hr = spInputElement.GetPropertyByName( L"value", &vVal );
			if( FAILED( hr ) ) continue;
			hr = spInputElement.GetPropertyByName( L"type", &vType );
			if( FAILED( hr ) ) continue;

			LPCTSTR lpName = vName.bstrVal?
				OLE2CT( vName.bstrVal ) :   TEXT("NULL"); //未知域名
			LPCTSTR lpVal  = vVal.bstrVal?
				OLE2CT( vVal.bstrVal  ) :   TEXT("NULL"); //空值，未输入
			LPCTSTR lpType = vType.bstrVal?
				OLE2CT( vType.bstrVal ) :   TEXT("NULL"); //未知类型

			wcout <<   ("[") << lpType <<   ("] ");
			wcout << lpName <<   (" = ") << lpVal << endl;
		}
		//想提交这个表单吗？删除下面语句的注释吧
		//pForm->submit();
	}
}