社区
网络编程
帖子详情
高分求pop3收邮件的程序源代码,要求能收附件
sor
2003-07-06 03:37:24
求pop3收邮件的程序源代码,要求能收附件
jgszz@163.com
...全文
38
1
打赏
收藏
高分求pop3收邮件的程序源代码,要求能收附件
求pop3收邮件的程序源代码,要求能收附件 jgszz@163.com
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
howtotell
2003-07-06
打赏
举报
回复
CSocket mailsock;
CString m_MailMsg;
HWND hwnd;
CString OnMailConnect(DWORD m_dwSize)
{
char* buf;
CString strbuf;
DWORD dwRead=0;
while(dwRead<m_dwSize)
{
buf=new char[2048];
memset(buf,0,2048);
UINT rec=mailsock.Receive(buf,2048,0);
dwRead+=rec;
strbuf+=buf;
delete buf;
}
return strbuf;
}
UINT mailThread(LPVOID pParam)
{
CString handMsg;
CString sendMsg;
mailsock.Create();
mailsock.Connect("pop.163.net",110);
m_MailMsg+=OnMailConnect(1);
::SetWindowText(hwnd,m_MailMsg);
sendMsg="user *****\r\n";//*****这里填入你的帐户
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
m_MailMsg+=sendMsg;
m_MailMsg+=OnMailConnect(1);
::SetWindowText(hwnd,m_MailMsg);
sendMsg="pass *****\r\n";//****这里填入你的密码
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
m_MailMsg+=sendMsg;
m_MailMsg+=OnMailConnect(1);
::SetWindowText(hwnd,m_MailMsg);
sendMsg="stat\r\n";
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
CString statMsg=OnMailConnect(1);
m_MailMsg+=sendMsg;
m_MailMsg+=statMsg;
::SetWindowText(hwnd,m_MailMsg);
statMsg.Delete(0,4);
int dashpos=statMsg.Find(" ");
statMsg.Delete(dashpos,statMsg.GetLength()-dashpos);
statMsg.Replace("\r\n","");
int mailCount=atoi(statMsg);
for(int i=1;i<mailCount+1;i++)
{
sendMsg.Format("list %d\r\n",i);
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
CString recMsg=OnMailConnect(1);
m_MailMsg+=sendMsg;
m_MailMsg+=recMsg;
::SetWindowText(hwnd,m_MailMsg);
recMsg.Delete(0,4);
int recCounter=recMsg.Find(" ");
recMsg.Delete(0,recCounter);
recMsg.Replace("\r\n","");
DWORD mailsize=atoi(recMsg);
sendMsg.Format("retr %d\r\n",i);
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
CString mailContent=OnMailConnect(mailsize);
m_MailMsg+=sendMsg;
m_MailMsg+=recMsg;
::SetWindowText(hwnd,m_MailMsg);
CString sub=mailContent;
int subPos=sub.Find("Subject:");
sub.Delete(0,subPos);
subPos=sub.Find("\r\n");
CString strSubject=sub.Left(subPos);
strSubject.Replace("Subject:","");
strSubject.Replace("\\",".");
strSubject.Replace("/",".");
strSubject.Replace(":",".");
strSubject.Replace("*",".");
strSubject.Replace("?",".");
strSubject.Replace("\"",".");
strSubject.Replace("<",".");
strSubject.Replace(">",".");
strSubject.Replace("|",".");
CString fname;
fname.Format("c:\\%s(%d).eml",strSubject,i);
CFile fp;
fp.Open(fname,CFile::modeCreate|CFile::modeWrite);
fp.Write(mailContent,mailContent.GetLength());
fp.Close();
sendMsg.Format("dele %d\r\n",i);
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
recMsg=OnMailConnect(1);
m_MailMsg+=sendMsg;
m_MailMsg+=recMsg;
::SetWindowText(hwnd,m_MailMsg);
}
sendMsg="quit\r\n";
mailsock.Send(sendMsg,sendMsg.GetLength(),0);
CString recMsg=OnMailConnect(1);
m_MailMsg+=sendMsg;
m_MailMsg+=recMsg;
::SetWindowText(hwnd,m_MailMsg);
mailsock.Close();
return 0;
}
void CMailDlg::OnRec()
{
hwnd=GetDlgItem(IDC_EDIT_MAIL)->GetSafeHwnd();
AfxBeginThread(mailThread,NULL,THREAD_PRIORITY_IDLE);
}
软考高项论文50分秘籍——心法篇
讲师以52分和53分通过论文,2次
高分
通过,方法论经得起考验
100个Java项目解析,带
源代码
和学习文档!
你是否正在寻找带有
源代码
的Java项目的免费集合?你的搜索到这里结束,我为你提供了近100多个Java项目。 想要成为一个优秀的
程序
员写项目是绕不开的,毕竟工程学的最终目标都是要创造东西,所以,代码给我敲起来! ...
效率极高的分类算法
在设计软件下载这样的
程序
时,要涉及到软件的分类;如此等等。可以说,分类是一个很普遍的问题。 我常常面试一些
程序
员,而且我几乎毫无例外地要问他们一些关于分类算法的问题。下面的举几个我常常询问的问题。你...
基础
高分
请教如何限制
程序
运行的方法?
求
助:通过编程DirectX抓屏------>masterz:再麻烦你一下,谢谢熟悉RichEdit的朋友过来看一下,RichEdit的几个问题.如何对 I/O 端口进行操作?有了该问题就有了思考(100分 献礼!)...
统考计算机
数据结构答案:B3、计算机中,完成
程序
指令指定的基于二进制数的算术运算或逻辑运算的部分是______。A.内存储器B.输入输出设备C.外存储器D.运算器答案:D4、计算机内部用于处理数据和指令的编码是______。A.十进制码...
网络编程
18,356
社区成员
64,214
社区内容
发帖
与我相关
我的任务
网络编程
VC/MFC 网络编程
复制链接
扫一扫
分享
社区描述
VC/MFC 网络编程
c++
c语言
开发语言
技术论坛(原bbs)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章