#include  < stdio.h >
#include  < tchar.h >
#include < iostream >
#include < exdisp.h >
#include  < atlbase.h >   
#include  < atlcom.h >
#include < mshtml.h >

using   namespace  std;

void  EnumIE(  void  );
void  EnumFrame( IHTMLDocument2  *  pIHTMLDocument2 ); 
void  EnumForm ( IHTMLDocument2  *  pIHTMLDocument2 ); 



int  _tmain( int  argc, _TCHAR *  argv[])
{
    wcout.imbue(locale( " chs " )); 

    ::CoInitialize(NULL);    // 初始化COM 
   
    EnumIE();                // 枚举浏览器    
   
    ::CoUninitialize();      // 释放COM
   
    wcout << _T( " ======完成====== " ) << endl;   
    getchar();               // 等待回车    
   
     return   0 ;  

}

void  EnumIE(  void  )   
{   
    wcout << _T( " 开始扫描系统中正在运行的浏览器实例 " ) << endl;   
   
    CComPtr < IShellWindows >  spShellWin;   
    HRESULT hr  =  spShellWin.CoCreateInstance( CLSID_ShellWindows );   
     if  ( FAILED ( hr ) )   
     {   
        wcout  << _T( " 获取 IShellWindows 接口错误 " ) << endl;   
         return ;   
    }    
   
     long  nCount  =   0 ;         //  取得浏览器实例个数(Explorer 和 IExplorer)    
    spShellWin -> get_Count(  & nCount );   
     if (  0   ==  nCount )   
     {   
        wcout << _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 );         // 枚举所有的表单    
    }    
}    
   
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 ); // 取得子框架的自动化接口" vDispWin2; CComVariant   
         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  <<  _T( " ==================== " )  <<  endl;   
    wcout  <<  _T( " 开始枚举“ " )  <<  OLE2CT( bstrTitle )  <<  _T( " ”的表单 " )  <<  endl;   
    wcout  <<  _T( " ==================== " )  <<  endl;   
   
    CComQIPtr <  IHTMLElementCollection  >  spElementCollection;   
    hr  =  pIHTMLDocument2 -> get_forms(  & spElementCollection );  // 取得表单集合    
     if  ( FAILED( hr ) )   
     {   
        wcout  <<  _T( " 获取表单的集合 IHTMLElementCollection 错误 " )  <<  endl;   
         return ;   
    }    
   
     long  nFormCount = 0 ;               // 取得表单数目    
    hr  =  spElementCollection -> get_length(  & nFormCount );   
     if  ( FAILED( hr ) )   
     {   
        wcout  <<  _T( " 获取表单数目错误 " )  <<  endl;   
         return ;   
    }    
       
     for ( long  i = 0 ; i < nFormCount;  i ++ ) // "" 项表单 i 取得第 ;
     {
    
        IDispatch   * pDisp = NULL;
         hr =  spElementCollection -> item( CComVariant( i ), CComVariant(i),  & 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 " );    // 未知类型    
   
            wcout  <<  _T( " [ " )  <<  lpType  <<  _T( " ]  " );   
            wcout  <<  lpName  <<  _T( "  =  " )  <<  lpVal  <<  endl;   
        }    
         // 想提交这个表单吗？删除下面语句的注释吧    
         // pForm->submit();    
    }    
}