Форум программистов [Powered by Invision Power Board]

Код

CComPtr<IShellWindows> spShWin;
        if (FAILED(spShWin.CoCreateInstance( __uuidof( ShellWindows))))
            throw AfxMessageBox("Couldn't create object SHDocVW::ShellWindows",MB_ICONINFORMATION|MB_OK|MB_SYSTEMMODAL);
                              

        
        LONG nCount;
        spShWin->get_Count( &nCount);
        m_list.AddString("Shell windows list:");
        for (int i=0; i<nCount; i++)
        {
        
            CComPtr<IDispatch> pDisp;
            spShWin->Item( CComVariant(i), &pDisp);
            CComQIPtr<IWebBrowser2> pIE( pDisp);
            if (pIE == NULL)
                throw AfxMessageBox("Unable to query Internet Explorer object",MB_ICONINFORMATION|MB_OK|MB_SYSTEMMODAL);
            
            
          
            USES_CONVERSION;
            CComBSTR bsUrl;
            BSTR bsText;
            pIE->get_LocationURL( &bsUrl);               
            LPTSTR lpstrUrl = W2T(bsUrl);

           
            CComPtr<IDispatch> pDispDoc;
            pIE->get_Document( &pDispDoc);
            CComQIPtr<IHTMLDocument2> pHtmlDoc( pDispDoc);

            CComPtr<IHTMLElement> pIElement;

            
    if (pHtmlDoc)
            {
                
                m_list.AddString(LPCTSTR(lpstrUrl));
                pHtmlDoc->get_body(&pIElement);
                pIElement->get_outerText(&bsText); 
                
                _bstr_t tmp(bsText, FALSE);
                CString cs(static_cast<const char*>(tmp));  
                
                                    CFile OutFile("dataie.txt",CFile::modeWrite);
                OutFile.Write(LPCTSTR(cs),20);
                
                OutFile.Close();
            } 
            
        }