使用CInternetSession和CHttpFile提取网页源码

程序界面：

为编辑框添加一个对应的变量：m_sUrl，再为Button1添加点击事件，主要代码如下：

void CGetHtmlCodeDlg::OnButton1() 

{

	CString sHtml;



	UpdateData();

	GetHtmlCode(m_sUrl, sHtml);

	WritetoFile(sHtml);

	MessageBox("提取网页源码完成");

}



void CGetHtmlCodeDlg::GetHtmlCode(const CString url, CString &html)

{

	CInternetSession session;

	CHttpFile * file = NULL;

	

	try

	{

		file = (CHttpFile *)session.OpenURL(url);

		if(file)

		{

			CString line;

			while(file->ReadString(line) != NULL)

			{

				html += line + "\n";

			}

			file->Close();

		}

	}

	catch (CInternetException* e)

	{

		e->Delete();

		html = "CInternet Exception";

	}

	file = NULL;

	session.Close();

}



BOOL CGetHtmlCodeDlg::WritetoFile(const CString& sValue)

{

	CString sFile = GetExePath() + "\\1.html";

	

	CStdioFile file;

	if(file.Open(sFile, CFile::modeCreate | CFile::modeWrite | CFile::modeNoTruncate))

	{

		file.SeekToEnd();				// 移动文件指针到末尾

		file.WriteString(sValue);

		file.Close();

	}

	return FALSE;

}



CString CGetHtmlCodeDlg::GetExePath()

{

	char sFileName[256] = {0};

	CString sPath = _T("");

	

	GetModuleFileName(AfxGetInstanceHandle(), sFileName, 255);

	sPath.Format("%s", sFileName);

	int pos = sPath.ReverseFind('\\');

	if(pos != -1)

		sPath = sPath.Left(pos);

	else

		sPath = _T("");

	

	return sPath;

}