获得网页源码

CString GetSource(IHTMLDocument2* pDoc2)
{
 USES_CONVERSION;
 CString strReturn("");
 CComPtr<IHTMLElementCollection> pElemColl;
 HRESULT hr=pDoc2->get_all((IHTMLElementCollection**)&pElemColl);
 if(hr==S_OK)
 {
  CComVariant varIndex=0;
  IDispatch *pDisp=NULL;
  hr=pElemColl->item(varIndex,varIndex,&pDisp);
  if(hr==S_OK)
  {
   CComPtr<IHTMLElement> pElem;
   hr=pDisp->QueryInterface(IID_IHTMLElement,(void**)&pElem);
   if(hr==S_OK)
   {
    CComBSTR strHTML;
    hr = pElem->get_outerHTML(&strHTML);
    if(hr==S_OK)
    {
     strReturn=OLE2T(strHTML);
    }
   }
  }
  pDisp->Release();
 }
 return strReturn;
}