vc實戰(zhàn)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()的作用域單位：線程

④、線程函數(shù)中用戶登陸、信息獲取的相關(guān)操作：

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