在VC中操纵网页可以提交获取某个input中的值

 首先写一个函数

BOOL CPost::FindSpecifiedElement(CString &csFormName, //元素所在表单名称

CString &csElementTag,  //元素标记名称

CString &csElementName  //元素名称

)

{

 if(csFormName.IsEmpty()||csElementTag.IsEmpty()||

       csElementName.IsEmpty())

    return false;

 bool retVal=false;

 IDispatch* pDisp=NULL;

 IHTMLDocument2* pHTMLDocument2=NULL;

    HRESULT hr=-1;

 pDisp = m_browser.GetDocument();

 

 if (pDisp == NULL )

 {

  TRACE("can not fetch document interface\n");

  return retVal;

 }

  

 hr = pDisp->QueryInterface( IID_IHTMLDocument2, (void**)&pHTMLDocument2 );

 if (pHTMLDocument2==NULL)  // fetch IHTMLDocument2 infterface failed

 {

   TRACE("can not fetch document interface\n");

   pDisp->Release();

   return retVal;

 }

 EnumForm(  pHTMLDocument2 );

    return retVal;

}

 

void CPost::EnumForm( IHTMLDocument2 * pIHTMLDocument2 )

{

 CString StrInfo;

 StrInfo = "";

 if( !pIHTMLDocument2 ) return;

 HRESULT hr;

 CComBSTR bstrTitle;

 pIHTMLDocument2->get_title( &bstrTitle );

 if (bstrTitle=="Ask361")

 {

  //StrInfo += (CString)bstrTitle;

  //StrInfo +="\r\n";

  USES_CONVERSION;

  CComQIPtr< IHTMLElementCollection > spElementCollection;

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

  if ( FAILED( hr ) )

  {

   return;

  }

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

  hr = spElementCollection->get_length( &nFormCount );

  if ( FAILED( hr ) )

  {

   return;

  }

  

  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 ) : _T("NULL"); //未知域名

    LPCTSTR lpVal  = vVal.bstrVal?

      OLE2CT( vVal.bstrVal  ) : _T("NULL"); //空值，未输入

    LPCTSTR lpType = vType.bstrVal?

      OLE2CT( vType.bstrVal ) : _T("NULL"); //未知类型

    //cout << _T("[") << lpType << _T("] ");

    //cout << lpName << _T(" = ") << lpVal << endl;

    //AfxMessageBox((CString)lpType);

    //AfxMessageBox((CString)lpVal);

    //StrInfo += (CString)lpType;

    //StrInfo +="\r\n";

    //StrInfo += (CString)lpVal;

    //StrInfo +="\r\n";

   }

   //想提交这个表单吗？删除下面语句的注释吧

   //pForm->submit();

  }

  //AfxMessageBox(StrInfo);

 }

}

 

void CPost::EnumIE()

{

    //cout << _T("开始扫描系统中正在运行的浏览器实例") << endl;

 CComPtr< IShellWindows > spShellWin;

 HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );

 if ( FAILED ( hr ) )

 {

  //cout << _T("获取 IShellWindows 接口错误") << endl;

  return;

 }

 long nCount = 0;  // 取得浏览器实例个数(Explorer 和 IExplorer)

 spShellWin->get_Count( &nCount );

 if( 0 == nCount )

 {

  //cout << _T("没有在运行着的浏览器") << endl;

  return;

 }

 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 );  //枚举所有的表单

 }

}

 

然后这样调用：

 CString FormName,ElementTarget,ElementName;

 FormName= "form1";

 ElementTarget = "input";

 ElementName = "TitleTest";

 if(!FindSpecifiedElement(FormName,ElementTarget,ElementName))

 AfxMessageBox("在当前页面无法找到指定元素");