網頁內容的獵取

UpdateData(true);  //從控制項到成員變數CInternetSession session;m_html = _T("");CHttpFile *file = NULL; try{ file=(CHttpFile*)session.OpenURL(m_url);} catch(CInternetException*m_pException){ file = NULL;m_pException->m_dwError;m_pException->Delete();session.Close(); AfxMessageBox(_T("CInternetException"));} CString strLine; charsRecived[1024];if(file != NULL) {while(file->ReadString((LPTSTR)sRecived,1024)!=NULL) {m_html += sRecived; } }else{AfxMessageBox(_T("fail")); } session.Close();file->Close();delete file; file = NULL;UpdateData(false);