递归枚举IHTMLDocument2的所有元素

void  EnumHTMLDocument( MSHTML::IHTMLDocument2* pDoc )
{
    if( pDoc == NULL )return;

    //遍历搜索子框架,递归处理子框架的文档
    CComPtr<MSHTML::IHTMLFramesCollection2>  spFramesCollection;

    pDoc->get_frames( &spFramesCollection );

    long lCount = 0;
    HRESULT hr = spFramesCollection->get_length( &lCount );
    if( FAILED( hr ) )return;

    for ( long lIndex = 0; lIndex < lCount; lIndex++ )
    {
        CComVariant  vDispWin;
        vDispWin  = spFramesCollection->item( &CComVariant( lIndex ) );

        CComQIPtr<MSHTML::IHTMLWindow2>  spWin = vDispWin.pdispVal;
        if( spWin == NULL )continue;

        CComPtr<MSHTML::IHTMLDocument2> spSubDoc;
        spWin->get_document( &spSubDoc );

        EnumHTMLDocument( spSubDoc );
    }

    CComQIPtr<MSHTML::IHTMLElementCollection>  spElementCollection;
    hr  =  pDoc->get_forms( &spElementCollection );
    if( FAILED( hr ) )return;

    long lFormCount = 0;
    hr  = spElementCollection->get_length( &lFormCount );
    if( FAILED( hr ) )return;

    for ( long lIndex = 0; lIndex < lFormCount; lIndex++ )
    {
        CComQIPtr<MSHTML::IHTMLFormElement> spFormElement =    spElementCollection->item(  &CComVariant( lIndex ) );
        if( spFormElement == NULL )continue;

        long lElemCount = 0;
        hr  = spFormElement->get_length( &lElemCount );
        if( FAILED( hr ) )continue;

        for ( long lElemIndex = 0; lElemIndex < lElemCount; lElemIndex++ )
        {
            CComDispatchDriver  spInputElement;
            spInputElement  =  spFormElement->item( &CComVariant( lElemIndex ) );
            if( spInputElement == NULL )continue;

            CComVariant varName, varValue, varType;
            hr = spInputElement.GetPropertyByName( L"name", &varName );
            if( SUCCEEDED( hr ) )
            {
                LPCTSTR lpszName = varName.bstrVal ? COLE2CT( varName.bstrVal ) : _T("NULL");
                AtlMessageBox( NULL, lpszName );
            }

            hr = spInputElement.GetPropertyByName( L"value", &varValue );
            if( SUCCEEDED( hr ) )
            {
                LPCTSTR lpszValue = varValue.bstrVal ? COLE2CT( varValue.bstrVal ) : _T("NULL");
                AtlMessageBox( NULL, lpszValue );
            }

            hr = spInputElement.GetPropertyByName( L"type", &varType );
            if( SUCCEEDED( hr ) )
            {
                LPCTSTR lpszType = varType.bstrVal ? COLE2CT( varType.bstrVal ) : _T("NULL");
                AtlMessageBox( NULL, lpszType );
            }
        }
    }

}