求助：将指定字符串写入百度搜索框并提交

vegebirdfly 2010-07-28 10:01:47

MFC的单文档应用程序，视图类继承CHtml类，从网上找了很多资料拼凑了这个putStr(CString cs)函数，可错误百出，请大家帮帮忙，只要实现“将指定字符串写入百度首页搜索框并提交”这个功能即可
万分感谢

#include <atlcom.h>

#include <atlbase.h>

#include <mshtml.h>

#include "stdafx.h"

#include "web_UTU.h"

#include "web_UTUDoc.h"

#include "web_UTUView.h"

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__;

#endif



CComModule _Module;		





bool CWeb_UTUView::putStr(CString cs)

{

	IHTMLDocument2 *pIHTMLDocument2 =(IHTMLDocument2*)GetHtmlDocument();

	if( pIHTMLDocument2)

	{

			HRESULT hr;

			CComQIPtr< IHTMLElementCollection > spElementCollection;

			hr = pIHTMLDocument2->get_forms( &spElementCollection );	//取得表单集合

			long nFormCount=0;				//取得表单数目

			hr = spElementCollection->get_length( &nFormCount );

		if ( FAILED( hr ) )

		{

			return false;

		}



		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;		//取得表单域的名

				hr = spInputElement.GetPropertyByName( L"name", &vName );

				if( FAILED( hr ) )	continue;

				if(vName=="wd")

				{

					spInputElement.PutPropertyByName(str,vName);//写入str

				}



			}

		//提交这个表单

		pForm->submit();

		}



	}

  pIHTMLDocument2->Release(); 

 }

 else return FALSE;

}