VC读取网页信息原代码

VC读取网页信息原代码

void CMyDlg::OnOK() 
{
BOOL m_bDownloadFailed;
CString str;
   for(qh=2007051;qh<=2007051;qh++) {
if(qh==2007008) continue;
str.Format("%d",qh);
m_bDownloadFailed=GetSourceHtml      ("d://zc_fenzu//"+str+"hmcg.txt",1,1);//下载提示文件的默认网址             
m_bDownloadFailed=GetSourceHtml （"d://zc_fenzu//"+str+"hmlc.txt",2,2);//下载提示文件的默认网址
m_bDownloadFailed=GetSourceHtml("d://zc_fenzu//"+str+"hmdg.txt",3,3);//下载提示文件的默认网址
m_bDownloadFailed=GetSourceHtml("d://zc_fenzu//"+str+"2048.txt",4,4);//下载提示文件的默认网址
m_bDownloadFailed=GetSourceHtml("d://zc_fenzu//"+str+"128.txt",5,5);//下载提示文件的默认网址
m_bDownloadFailed=GetSourceHtml("d://zc_fenzu//"+str+"dan.txt",6,6);//下载提示文件的默认网址
m_bDownloadFailed=GetSourceHtml（"d://zc_fenzu//"+str+"mtfx.txt",7,7);//下载提示文件的默认网址
}

this->MessageBox("当局开放快速dfkl");

 bool CMyDlg::GetSourceHtml(CString Filename,int s,int e)
{
CString str;
CInternetSession session;
CInternetFile* file = NULL;
CStdioFile dataStore;

CString somecode; //也可采用LPTSTR类型，将不会删除文本中的/n回车符
BOOL bIsOk = dataStore.Open(Filename,
CFile::modeCreate | CFile::modeWrite | CFile::shareDenyWrite | CFile::typeBinary );

for(int k=s-1;k<e;k++)
{
try
{
str.Format("%d",qh);
str=str.Right(5);
// 试着连接到指定URL 
if(k<6) //"http://north.500wan.com/n_opencode/media/sfc_06001_media_5.txt
file = (CInternetFile*) session.OpenURL(str1+str+a_str[k]); 
else 
file = (CInternetFile*) session.OpenURL(str2+str+a_str[k]); 
}
catch (CInternetException* m_pException)
{
// 如果有错误的话，置文件为空
file = NULL; 
m_pException->Delete();
return FALSE;
}
// 用dataStore来保存读取的网页文件

if(file)
{
while (file->ReadString(somecode) != NULL) //如果采用LPTSTR类型，读取最大个数nMax置0，使它遇空字符时结束
{
dataStore.WriteString(somecode);
dataStore.WriteString("/n"); //如果somecode采用LPTSTR类型,可不用此句
}
file->Close();
delete file;
}
}

dataStore.Close();

return TRUE;
}