如何使用VC进行HTTP连接

1. CString httpRequest(char* lpHostName, short sPort, char* lpUrl, char* lpMethod, char* lpPostDara, int nPostDataLen)
2. {
3.     HINTERNET hInternet, hConnect, hRequest;
4.     BOOL bRet;
5.     CString strResponse;
6. 
   
7.     hInternet = InternetOpen(TEXT("User-Agent:"), INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
8.     if (hInternet)
9.     {
10.         hConnect = InternetConnect(hInternet, lpHostName, sPort, NULL, TEXT("HTTP/1.1"), INTERNET_SERVICE_HTTP, 0, 0);
11.         if (hConnect)
12.         {
13.             hRequest = HttpOpenRequest(hConnect, lpMethod, lpUrl, TEXT("HTTP/1.1"), NULL, NULL, INTERNET_FLAG_RELOAD, 0);
14.             if (hRequest)
15.             {
16.                 bRet = HttpSendRequest(hRequest, NULL, 0, lpPostDara, nPostDataLen);
17. 
    
18.                 while (TRUE)
19.                 {
20.                     char cReadBuf[4096];
21.                     unsigned long  lNumOfByteRead;
22. 
    
23.                     bRet = InternetReadFile(hRequest, cReadBuf, sizeof(cReadBuf)-1, &lNumOfByteRead);
24.                     if(!bRet || !lNumOfByteRead)
25.                     {break;}
26.                     cReadBuf[lNumOfByteRead]=0;
27.                     strResponse = strResponse + cReadBuf;
28.                 }
29.             }
30.             InternetCloseHandle(hRequest);
31.         }
32.         InternetCloseHandle(hConnect);
33.     }
34.     InternetCloseHandle(hInternet);
35. 
    
36.     return strResponse;
37. }

测试的时候，使用如下代码调用：
CString strResponse = httpRequest("www.hao123.com",80,NULL,"POST",NULL,0);