求vc写的直接从一个网站上下载exe程序得源代码!
首先包含头文件:#include"afxinet。h"用这个函数就可以了。BOOLGetFromWeb(LPSTRpURL,LPSTRSaveAsFilePath)//URL路径,保存路径。{CInternetSessionsession;//会话期对象)CHttpConnection*pServer=NULL;//指向服务器地址(URL)CHttpFile*pHttpFile=NULL;//HTTP文件指针CStringstrServerName;//服务器名CStringstrObject;//查询对象名(http文件)INTERNET_PORTnPort;//端口DWORDdwSer...全部
首先包含头文件:#include"afxinet。h"用这个函数就可以了。BOOLGetFromWeb(LPSTRpURL,LPSTRSaveAsFilePath)//URL路径,保存路径。{CInternetSessionsession;//会话期对象)CHttpConnection*pServer=NULL;//指向服务器地址(URL)CHttpFile*pHttpFile=NULL;//HTTP文件指针CStringstrServerName;//服务器名CStringstrObject;//查询对象名(http文件)INTERNET_PORTnPort;//端口DWORDdwServiceType;//服务类型DWORDdwHttpRequestFlags=//请求标志//INTERNET_FLAG_EXISTING_CONNECTINTERNET_FLAG_NO_AUTO_REDIRECT;constTCHARszHeaders[]=_T(" *\r\nUser- \r\n");BOOLOK=AfxParseURL(//词法分析pURL,//被分析URL串dwServiceType,//服务类型,ftp,http等strServerName,//服务器名strObject,//URL中被查询对象nPort);//URL指定的端口,可能为空OK=OK&&//本例只考虑http协议(dwServiceType==INTERNET_SERVICE_HTTP);if(!OK){AfxMessageBox("URL出错");//报错returnfalse;}pServer=session。
GetHttpConnection(strServerName,nPort);//获得服务器名pHttpFile=pServer->OpenRequest(CHttpConnection::HTTP_VERB_GET,strObject,NULL,1,NULL,NULL,dwHttpRequestFlags);//向服务器发送请求,建立http连接,//建立本机上的http文件指针pHttpFile->AddRequestHeaders(szHeaders);pHttpFile->SendRequest();//发送请求CStdioFilef;//输出文件对象if(!f。
Open(//打开输出文件SaveAsFilePath,CFile::modeCreate¦CFile::modeWrite¦CFile::typeText)){MessageBox("Unabletoopenfile";returnfalse;}//下面将检索结果保存到文件上TCHARszBuf[1024];//缓存while(pHttpFile->ReadString(szBuf,1023))f。
WriteString(szBuf);f。Close();//善后工作pHttpFile->Close();pServer->Close();if(pHttpFile!=NULL)deletepHttpFile;if(pServer!=NULL)deletepServer;session。
Close();returntrue;}。收起