vc访问url的代码

CString  m_str; 
CInternetSession  m_session; 
CHttpFile   *   m_pHttpFile   =  NULL; 
try 
{ 
m_pHttpFile=(CHttpFile   *)m_session.OpenURL( "http://www.baidu.com/ "); 

if  (m_pHttpFile) 
{ 
char  m_buf[512]; 
int   len=m_pHttpFile-> Read(m_buf,511); 
while  (len!=0) 
{ 
m_buf[len]= '\0 '; 
m_str+=m_buf; 
len=m_pHttpFile-> Read(m_buf,511); 
} 

 

AfxMessageBox(m_str); 

} 
} 

catch(...) 
{ 
m_pHttpFile-> Close(); 
m_session.Close(); 
return; 
}