递归枚举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 ); } } } }