VC++ 模拟表单提交

来源：互联网发布：炫踪网络上市消息编辑：程序博客网时间：2024/05/21 12:40

http://blog.csdn.net/wangningyu/article/details/4526357

http://www.33vc.com/index.php/archives/3687

首先用Httplook 来查看表单提交的内容。

以下函数能够模拟表单提交

bool CCHttpSockDlg::PostContent(CString strUrl, const CString &strPara, CString &strContent, CString &strDescript)
{
try{

        strDescript = "提交成功完成！";
        bool bRet = false;
        CString strServer, strObject, strHeader, strRet;
        unsigned short nPort;
        DWORD dwServiceType;
        if(!AfxParseURL(strUrl, dwServiceType, strServer, strObject, nPort))
        {
            strDescript = strUrl + "不是有效有网络地址！";
            return false;
        }
        CInternetSession sess;//Create session

        CHttpFile* pFile;
        //////////////////////////////////////////////
        CHttpConnection *pServer = sess.GetHttpConnection(strServer, nPort);
        if(pServer == NULL)
        {
            strDescript = "对不起，连接服务器失败！";
            return false;
        }
        pFile = pServer->OpenRequest(CHttpConnection::HTTP_VERB_POST,strObject,NULL,1,NULL,NULL,INTERNET_FLAG_EXISTING_CONNECT);
        if(pFile == NULL)
        {
            strDescript = "找不到网络地址" + strUrl;
            return false;
        }

//        pFile -> AddRequestHeaders("Content-Type: text/xml; charset=utf-8");
        pFile -> AddRequestHeaders("Content-Type: application/x-www-form-urlencoded");
        pFile -> AddRequestHeaders("Accept: */*");
        pFile -> SendRequest(NULL, 0, (LPTSTR)(LPCTSTR)strPara, strPara.GetLength());

        CString strSentence;
        DWORD dwStatus;
        DWORD dwBuffLen = sizeof(dwStatus);
        BOOL bSuccess = pFile->QueryInfo(
            HTTP_QUERY_STATUS_CODE|HTTP_QUERY_FLAG_NUMBER,
            &dwStatus, &dwBuffLen);

        if( bSuccess && dwStatus>= 200 && dwStatus<300)
        {
            char buffer[2049];
            memset(buffer, 0, 2049);
            int nReadCount = 0;
            while((nReadCount = pFile->Read(buffer, 2048)) > 0)
            {
                strContent += buffer;
                memset(buffer, 0, 2049);
            }
            bRet = true;
        }
        else
        {
            strDescript = "网站服务器错误" + strUrl;
            bRet = false;
        }
        ////////////////////////////////////////
        pFile->Close();
        sess.Close();
        return bRet;
    }
    catch(...)
    {
        int nCode = GetLastError();
        strDescript.Format("向服务器post失败！错误号：%d", nCode);
        return false;
    }
}

调用方法（这是自动在www.whctwl.com提交留言的方法）

CString strContent,strDescrip;
PostContent(_T("http://www.whctwl.com/message.asp"),_T("Title=asdfasd&OwnerName=werwer&Phone=232323&Email=232@qq.com&Homepage=&Content=asdfasdf&Version=cn&IsChecked=False&acction=add&sub=%B7%A2%B1%ED"),strContent,strDescrip);