vc实战http之post教程第13课多线程登陆

①、成果作品展示，截图如下：

②、用户账号密码文件的解析及多线程的开启：

voidCHttpTestDlg::OnBnClickedLogin()

{

CStringstrPath;GetDlgItemText(IDC_PATH,strPath);if(strPath.IsEmpty())

{

MessageBox(_T("用户配置文件为空！"),_T("提示"),MB_OK);return;

}

CStdioFilemFile;

BOOLbRet=mFile.Open(strPath,CFile::modeRead);if(!bRet)

{

MessageBox(_T("用户配置文件打开失败！"),_T("提示"),MB_OK);return;

}

CStringstrLine;

while(mFile.ReadString(strLine))

{

intpos=strLine.Find('|');if(pos!=-1)

{

CUserInfo*pUserInfo=newCUserInfo();pUserInfo->m_strUser=strLine.Left(pos);

pUserInfo->m_strPass=strLine.Right(strLine.GetLength()-pos-1);pUserInfo->pWndThis=this;

AfxBeginThread(GetUserInfoProc,pUserInfo);

}

}

mFile.Close();

}

③、COM组件初始化CoInitialize()的作用域单位：线程

④、线程函数中用户登陆、信息获取的相关操作：

UINTCHttpTestDlg::GetUserInfoProc(LPVOIDpParam)

{

CUserInfo*pUserInfo=(CUserInfo*)pParam;

CListCtrl*pListCtrl=&pUserInfo->pWndThis->m_List;pListCtrl->DeleteAllItems();

CoInitialize(NULL);//COM组件的初始化

IWinHttpRequestPtrpHttpReq=NULL;

HRESULThr=pHttpReq.CreateInstance(uuidof(WinHttpRequest));if(FAILED(hr))returnFALSE;

hr=pHttpReq->Open(_T("POST"),_T

("http://www.idc33

89

.com/user/userlogin.asp

"));if(FAILED(hr))returnFALSE;

pHttpReq->SetRequestHeader(_T("Content-Type"),

_T("application/x-www-form-urlencoded"));CStringstrBody;

strBody.Format(_T("username=%s&password=%s&screenwidth=&screenheight=&Submit.x=18&Submit.y=6"),pUserInfo->m_strUser,pUserInfo->m_strPass);

COleVariantvarBody;varBody=strBody;

hr=pHttpReq->Send(varBody);if(FAILED(hr))returnFALSE;

CStringstrCntBuffer;Get_WinHttp_RspString(pHttpReq,strCntBuffer);

CStringstrSucKey(_T("欢迎您："));

if(strCntBuffer.Find(strSucKey)==-1)returnFALSE;

hr=pHttpReq->Open(_T("GET"),_T

("http://www.idc33

89

.com/user/modify.asp

"));if(FAILED(hr))returnFALSE;

hr=pHttpReq->Send();

if(FAILED(hr))returnFALSE;Get_WinHttp_RspString(pHttpReq,strCntBuffer);pUserInfo->pWndThis->m_cSection.Lock();

intnCount=pListCtrl->GetItemCount();pListCtrl->InsertItem(nCount,_T(""));

pListCtrl->SetItemText(nCount,0,pUserInfo->m_strUser);

CStringstrEmail=GetMidStrByLAndR(strCntBuffer,_T("id=\"email\"value=\""),

_T("\""));

pListCtrl->SetItemText(nCount,1,strEmail);

CStringstrName=GetMidStrByLAndR(strCntBuffer,_T("id=\"truename\"value=\""),

_T("\""));

pListCtrl->SetItemText(nCount,2,strName);

CStringstrAddr=GetMidStrByLAndR(strCntBuffer,_T("id=\"address\"value=\""),

_T("\""));

pListCtrl->SetItemText(nCount,3,strAddr);

CStringstrPhone=GetMidStrByLAndR(strCntBuffer,_T("id=\"tel\"value=\""),

_T("\""));

pListCtrl->SetItemText(nCount,4,strPho