邮件群发

关于生成随机QQ邮箱不精确的问题，在之后版本打算另写一个采集器插件进行帐号采集，所以，这个软件只用来进行内容发送，邮箱进行随机生成
如果你已经有采集来的QQ号，请复制到SendList.txt 替换内容即可
可以直接复制HTML代码到邮件内容，保存即可。目前邮件内容最大设置为10000字节，如果有增大的必要，欢迎提交留言。
源码出处，可以直接打包下载工程

这是我学习后VC编程中涉及到多线程,socket,及一些WINDOWS API的宗合应用

使用说明：

一、SMTP设置

1、SMTP设置中，收件箱地址：填写邮箱地址为帐号测试邮箱，可以填写你自己的邮箱作为接收测试。打星号为必填。邮箱帐号及密码，是即将用于群发的帐号和密码

2、群发发送时间间隔，默认为零，可以选择填写发送间隔时间，单位为秒，防止多次快速发送相同内容被停用。

3、勾选邮件标题后插入系统时间，可以在标题上加上系统时间

4、导入群发列表，勾选后，可以点击群发，暂停，继续。（群发列表为程序目录中SendList.txt)如果你有邮箱采集软件，可以把彩集的邮箱地址按照格式，一行一个，放入其中），没有的话，可以点击“收件箱”页面生成随机QQ邮箱

二、邮件内容

1、填写邮件标题，邮件内容可以为纯文本，也可以是HTML代码，附件目前只支持TXT文本。

2、群发前，请测试邮件内容，是否完整。附件是否正常接收。

三、收件箱

1、收件箱中顺序生成QQ邮箱，请不要超过6位数QQ号，位数过大，生成时间过长，容易造成假死。

2、群发前，先生成QQ邮箱列表。如果你有采集邮箱帐号，可以按格式放入SendList.txt 中

版本更新说明：
3.1版本 2012-8-28

1、可增加多个附件。
2、修复标题插入日期造成程序崩溃的BUG。
3、增加发送间隔时间选项。
4、支持HTML代码
5、增加干预码

标签： <无>

源码与演示：源码出处演示出处

```java #include "stdafx.h" #include #include #include "Resource.h" #include "TabDlg1.h" #include "winsock2.h"

define MAXSTRING 10000

static int flag=0; //标记是否群发
TCHAR* pTitle = NULL; //指向标题文件内容的指针
HANDLE hThread=NULL; //线程返回句柄
long i=0; //列表控件“行”计数
static long sendNum=1; //发送邮件数量

pragma comment(lib,"WSOCK32.LIB")

extern TCHAR tcRunPath[MAX_PATH]; //程序当前路径目录
extern TCHAR shortPath[MAX_PATH]; //文件路径，TAB2中的全局变量
extern TCHAR titlePath[256]; //邮件标题文件路径
extern TCHAR mtPath[256]; //邮件内容文件路径
extern TCHAR sendListPath[MAX_PATH]; //发送列表文件路径
extern BOOL attach; //是否添加了附件
extern TCHAR file[MAXSTRING]; //附件部份代码
BOOL WINAPI TAB1_Proc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
switch(uMsg)
{
HANDLE_MSG(hWnd, WM_INITDIALOG, TAB1_OnInitDialog);
HANDLE_MSG(hWnd, WM_COMMAND, TAB1_OnCommand);
HANDLE_MSG(hWnd,WM_CLOSE, TAB1_OnClose);
}

return FALSE;

}

BOOL TAB1_OnInitDialog(HWND hwnd, HWND hwndFocus, LPARAM lParam)
{
InitLVColumn(hwnd);
InitComboBox(hwnd);

return TRUE;

}

void TAB1_OnCommand(HWND hwnd, int id, HWND hwndCtl, UINT codeNotify)
{

IsChecked(hwnd);         //判断勾选框是否被勾选
IsRadioChecked(hwnd);    //RADIO控件是否被选择
switch(id)
{

    case IDC_MAIL_TEST:
    {       
                 
        if(IsDlgButtonChecked(hwnd,IDC_RADIO_QQ)!=BST_CHECKED && IsDlgButtonChecked(hwnd,IDC_RADIO_163)!=BST_CHECKED)
        {
            MessageBox(hwnd,TEXT("请选择发QQ邮箱或163信箱"),"",MB_OK);
            return;
        }
        else
        {
            flag=0;
            hThread=CreateThread(NULL,0,ThreadFunc,hwnd,0,0);
             
        }
    }
    break;
    case IDC_BUTTON_START:
    {       
        if(IsDlgButtonChecked(hwnd,IDC_RADIO_QQ)!=BST_CHECKED && IsDlgButtonChecked(hwnd,IDC_RADIO_163)!=BST_CHECKED)
        {
            MessageBox(hwnd,TEXT("请选择发QQ邮箱或163信箱"),"",MB_OK);
            return;
        }
        else
        {
            flag=1;
            hThread=CreateThread(NULL,0,ThreadFunc,hwnd,0,0);
        }
    }
    break;
    case IDC_BUTTON_PAUSE:
    {           
        if(NULL!=hThread)
        {
           SuspendThread(hThread);  
        }
        else
        {
            return;
        }
    }
    break;
    case IDC_BUTTON_RESUME:
    {           
        if(NULL!=hThread)
        {
           ResumeThread(hThread);   
        }
        else
        {
            return;
        }
    }
    break;
    default:
    break;
}

}

void TAB1_OnClose(HWND hwnd)
{
EndDialog(hwnd, 0);
}

int InitLVColumn(HWND hwnd) //列表初始化设置,视图选为报表视图
{
LVCOLUMN lvColumn;
MyLVColumn MyColumn[2] = {{TEXT("编号"), 0x30, LVCFMT_CENTER},{TEXT("邮箱帐号"), 0x99, LVCFMT_CENTER}};
lvColumn.mask = LVCF_TEXT|LVCF_FMT|LVCF_WIDTH|LVCF_SUBITEM;
DWORD dwStyle =ListView_GetExtendedListViewStyle(GetDlgItem(hwnd, IDC_LIST)); //得到列表当前拓展风格
dwStyle |= LVS_EX_FULLROWSELECT; //选中某行使整行高亮（只适用与report风格的listctrl）
dwStyle |= LVS_EX_GRIDLINES; //网格线（只适用与report风格的listctrl）
// dwStyle |= LVS_EX_CHECKBOXES; //item前生成checkbox控件
ListView_SetExtendedListViewStyle(GetDlgItem(hwnd, IDC_LIST),dwStyle); //设置列表扩展风格

for(int i = 0; i < 2; i++)
{
    lvColumn.pszText = MyColumn[i].szColumnName;
    lvColumn.cx = MyColumn[i].cx;
    lvColumn.fmt = MyColumn[i].fmt;
    SendDlgItemMessage(hwnd, IDC_LIST, LVM_INSERTCOLUMN, i, (LPARAM)&lvColumn);
}
 

return 0;

}

int InitComboBox(HWND hwnd)//窗口控件初始化设置
{
HWND hwndCombo=GetDlgItem(hwnd,IDC_COMBO_SLEEPTIME);
ComboBox_InsertString(hwndCombo,-1,TEXT("0"));
ComboBox_InsertString(hwndCombo,-1,TEXT("1"));
ComboBox_InsertString(hwndCombo,-1,TEXT("2"));
ComboBox_InsertString(hwndCombo,-1,TEXT("5"));
ComboBox_InsertString(hwndCombo,-1,TEXT("10"));
ComboBox_InsertString(hwndCombo,-1,TEXT("20"));
ComboBox_SetText(hwndCombo,TEXT("0"));

SetDlgItemText(hwnd,IDC_EDIT_MAILADD,TEXT("12345678@qq.com"));
ComboBox_InsertString(GetDlgItem(hwnd,IDC_COMBO_SMTP),0,TEXT("smtp.qq.com"));
ComboBox_InsertString(GetDlgItem(hwnd,IDC_COMBO_SMTP),1,TEXT("smtp.163.com"));
ComboBox_SetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),TEXT("smtp.qq.com"));
SetDlgItemText(hwnd,IDC_EDIT_MAILPORT,TEXT("25"));  
SetDlgItemText(hwnd,IDC_EDIT_USERNAME,TEXT(""));


return 1;

}

int IsChecked(HWND hwnd) //checkbox未选中的设置为只读
{
if(IsDlgButtonChecked(hwnd,IDC_CHECK_QUNFA)!=BST_CHECKED)
{
EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_START), false);
EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_RESUME), false);
EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_PAUSE), false);
return 0;
}
else
{
EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_START), true);
EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_RESUME), true);
EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_PAUSE), true);
return 1;
}

return 0;

}
int IsRadioChecked(HWND hwnd) //RADIO控件被选中，则设置相应的SMTP 地址
{
if(IsDlgButtonChecked(hwnd,IDC_RADIO_QQ)==BST_CHECKED)
{
ComboBox_SetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),TEXT("smtp.qq.com"));
return 1;

}
if(IsDlgButtonChecked(hwnd,IDC_RADIO_163)==BST_CHECKED)
{
    ComboBox_SetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),TEXT("smtp.163.com"));
    return 2;
}
return 0;

}

TCHAR* readText1(HWND hwnd) //读取文件--邮件发送内容
{
int nLen = 0;
FILE *pF = fopen(titlePath , "r"); //打开文件

fseek(pF, 0, SEEK_END);             //文件指针移到文件尾
nLen = ftell(pF);                   //得到当前指针位置, 即是文件的长度
rewind(pF);                         //文件指针恢复到文件头位置

 
pTitle = (char*) malloc(sizeof(char)*nLen+1);//动态申请空间, 为保存字符串结尾标志\0, 多申请一个字符的空间
if(!pTitle)
{
    MessageBox(hwnd,TEXT("内存不够!"),"错误",MB_ICONWARNING);
    exit(0);
}
nLen = fread(pTitle, sizeof(char), nLen, pF);

pTitle[nLen] = '\0';          //添加字符串结尾标志

if(IsDlgButtonChecked(hwnd,IDC_CHECK_TITLE)==BST_CHECKED)   //是否勾选在邮件标题 加入系统当前时间
{
    SYSTEMTIME stLocal;
    GetLocalTime(&stLocal);   //得到系统当前时间
    TCHAR strTime[256];
    ZeroMemory(strTime,sizeof(strTime)/sizeof(TCHAR));
    wsprintf(strTime,"%04u-%02u-%02u %02u:%02u:%02u",stLocal.wYear,stLocal.wMonth,stLocal.wDay,stLocal.wHour,stLocal.wMinute,stLocal.wSecond);
    strcat(pTitle,strTime);   //在标题后加入系统时间
}
fclose(pF);                   //关闭文件
TCHAR* pText = NULL;
pF  = fopen(mtPath , "r");    //打开文件
fseek(pF, 0, SEEK_END); 
nLen = ftell(pF);  
rewind(pF);   

 
pText = (char*) malloc(sizeof(char)*nLen+1); //动态申请空间, 为保存字符串结尾标志\0, 多申请一个字符的空间
if(!pText)
{
    MessageBox(hwnd,TEXT("内存不够!"),"错误",MB_ICONWARNING);
    exit(0);
}
nLen = fread(pText, sizeof(char), nLen, pF);

pText[nLen] = '\0';          //添加字符串结尾标志


fclose(pF);                  //关闭文件
 
TCHAR chText[MAXSTRING];        
TCHAR* encText=base64_encode(pText,strlen(pText));      
strcpy(chText,encText);      //BASE64加密结果

free(encText);               //释放指针
free(pText);                 //释放空间

return chText;

}

DWORD WINAPI ThreadFunc(LPVOID lpParam)//发邮件线程
{
HWND hwnd=(HWND)lpParam;
TCHAR userName[256]; //用户帐号
TCHAR userPassWord[256]; //用户密码
GetDlgItemText(hwnd,IDC_EDIT_USERNAME,userName,sizeof(userName)/sizeof(TCHAR));
GetDlgItemText(hwnd,IDC_EDIT_USERPASSWORD,userPassWord,sizeof(userPassWord)/sizeof(TCHAR));

TCHAR *name=userName; 
int i = 0;    
int j = strlen(name); 
TCHAR *encName = base64_encode(name, j);                //给用户名base64加密编码        
ZeroMemory(userName,sizeof(userName)/sizeof(TCHAR)); 
wsprintf(userName,"%s\n", encName);                     //在加编码后加入回车符

TCHAR *passWord=userPassWord; 
int k = strlen(passWord); 
TCHAR *encPassWord = base64_encode(passWord, k);        //给用户密码base64加密编码               
//  int len = strlen(enc);   
//  TCHAR *dec = base64_decode(enc, len);               //反编    
ZeroMemory(userPassWord,sizeof(userPassWord)/sizeof(TCHAR)); 
wsprintf(userPassWord,"%s\n", encPassWord);



/*ZeroMemory(userName,sizeof(userName)/sizeof(TCHAR)); 
wsprintf(userName,"\ndecoded : %s", dec);
MessageBox(hwnd,userName,"",MB_OK);*/                   //反编译用户名，如果需要，可以把用户名密码反编后发到指定邮箱。

free(encName);                                          //释放指针
free(encPassWord);


//free(dec); 
if(1==flag)                                             //全局标记，点击群发还是测试，1为群发，0为测试
{
        HANDLE wFile;
        int szId;
        TCHAR ch;
        TCHAR szState[256];

        strcpy(sendListPath,tcRunPath);
        strcat(sendListPath,"\\SendList.txt");          //拼接全路径及文件名
        TCHAR *sFileName=sendListPath;
        FILE *fp=fopen(sFileName,"r");
         
        if(fp==NULL)
       {
            return FALSE;                              //打开文件失败，则返回，不读取
       }

        fseek(fp, 0, SEEK_END);
        int length = ftell(fp);                        //length为0，则是空的
        rewind(fp);                                    //把指针移回文件头部 还可以用 fseek(fp, 0, SEEK_SET);效果一样
        if(length==0)                                  //判断文件如果为空，则关闭文件，返回，
        {
            fclose(fp);                                //要关闭打开的文件，不然退出时，无法保存
            return FALSE;
        }

        while(!feof(fp))
        {   
         
            fscanf(fp,"%s\r\n",szState);
            SocketQ(hwnd,userName,userPassWord,szState);
             
            TCHAR sTime[256];               
            unsigned long iTime;
            ComboBox_GetText(GetDlgItem(hwnd,IDC_COMBO_SLEEPTIME),sTime,sizeof(sTime)/sizeof(TCHAR));
            iTime=atoi(sTime);
            iTime=iTime*1000;
            Sleep(iTime);
             
        }   
        fclose(fp);

}
     

else
{
    Socket(hwnd,userName,userPassWord); 
}
CloseHandle(hThread); 
return 0;

}
void SocketQ(HWND hwnd,TCHAR userName[],TCHAR userPassWord[],TCHAR szState[])//传入加密的用户名跟密码连接163
{
/*******************************************************************
使用Socket的程序在使用Socket之前必须调用WSAStartup函数。
该函数的第一个参数指明程序请求使用的Socket版本，
其中高位字节指明副版本、低位字节指明主版本；
操作系统利用第二个参数返回请求的Socket的版本信息。
当一个应用程序调用WSAStartup函数时，操作系统根据请求的Socket版本来搜索相应的Socket库，
然后绑定找到的Socket库到该应用程序中。
以后应用程序就可以调用所请求的Socket库中的其它Socket函数了。
该函数执行成功后返回0。
*****************************************************************/

    TCHAR* pText;
    pText = readText1(hwnd);
     
    int WSA_return;
    WSADATA wsaData;         
 
    WSA_return=WSAStartup(MAKEWORD(2,0),&wsaData);          //初始化Socket库        
 
    SOCKET sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);//创建SOCKET
    hostent*   host   =   NULL; 
    SOCKADDR_IN sa;
      
    sa.sin_family=AF_INET;                                  //设置电线连接服务器端的端口
     
    TCHAR cPort[100];
    GetDlgItemText(hwnd,IDC_EDIT_MAILPORT,cPort,sizeof(cPort)/sizeof(TCHAR));
    int iPort=atoi(cPort);
    sa.sin_port = htons(iPort);         
    //sa.sin_addr.S_un.S_addr = inet_addr("123.58.178.203");//可以写死IP地址          
     HOSTENT *host_entry;                                   //存放主机域名，如smtp.qq.com
     
     TCHAR host_name[256]="";
     ZeroMemory(host_name,sizeof(host_name)/sizeof(TCHAR)); 
     ComboBox_GetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),host_name,sizeof(host_name)/sizeof(TCHAR));
     
     TCHAR str_ipAdd[256];
     if(WSA_return==0)
     {
         
      host_entry=gethostbyname(host_name);                  // 要解析的域名或主机名 
 
      if(host_entry!=NULL)
      {
      
        wsprintf(str_ipAdd,"%d.%d.%d.%d",
            (host_entry->h_addr_list[0][0]&0x00ff),
            (host_entry->h_addr_list[0][1]&0x00ff),
            (host_entry->h_addr_list[0][2]&0x00ff),
            (host_entry->h_addr_list[0][3]&0x00ff));
         
         
      }
     }
    sa.sin_addr.S_un.S_addr = inet_addr(str_ipAdd);         //得到域名IP地址
    if(connect(sock,(SOCKADDR *)&sa,sizeof(sa))==SOCKET_ERROR)
      
    {
      
    ShowError();
    return;
      
    }

    TCHAR buffer[256];                                     //对话过程        
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
 
    int iRet=recv(sock,buffer,256,0);                      //接收问候语      
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }
      
      
 
    TCHAR Hello[] = "HELO SMTP\r\n";                       //注意不能忘了末尾的回车     
    send(sock,Hello,lstrlen(Hello),0); 
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }


    TCHAR Ehlo[] = "EHLO SMTP\r\n";      
    send(sock,Ehlo,lstrlen(Ehlo),0); 
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }
     
    TCHAR login[] = "AUTH LOGIN\r\n";                      //登陆命令
    send(sock,login,lstrlen(login),0); 
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }
     
    if(IsDlgButtonChecked(hwnd,IDC_RADIO_QQ)==BST_CHECKED)
    {
        strcat(userName,"\r\n");
        send(sock,userName,lstrlen(userName),0);           //发送加密的用户名
        ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
        iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }

        strcat(userPassWord,"\r\n");
        send(sock,userPassWord,lstrlen(userPassWord),0);   //发送加密的密码
        ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
        iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }
    }
    if(IsDlgButtonChecked(hwnd,IDC_RADIO_163)==BST_CHECKED)
    {
        send(sock,userName,lstrlen(userName),0);           //发送加密的用户名
        ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));  
        iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }

        send(sock,userPassWord,lstrlen(userPassWord),0);   //发送加密的密码
        ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
        iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }
    }


    TCHAR userF[256];
    TCHAR userL[256];
    TCHAR temp[256];

    GetDlgItemText(hwnd,IDC_EDIT_USERNAME,userF,sizeof(userF)/sizeof(TCHAR));   
    ComboBox_GetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),temp,sizeof(host_name)/sizeof(TCHAR));
    strcat(userF,"@");
    strncpy(userL,temp+5,sizeof(userL));
    strcat(userF,userL);
    TCHAR mailFrom[256];
    //MessageBox(hwnd,userF,"",MB_OK);
    wsprintf(mailFrom,TEXT("MAIL FROM:<%s>\r\n"),userF);
    send(sock,mailFrom,lstrlen(mailFrom),0);
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }
    
         
        TCHAR mailTo[256];
        wsprintf(mailTo,TEXT("RCPT TO:<%s>\r\n"),szState);
        send(sock,mailTo,lstrlen(mailTo),0);
        ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
        iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }
     

    TCHAR dataCommad[]="DATA\r\n";
    send(sock,dataCommad,lstrlen(dataCommad),0); 
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }


    //下面是发送正文及附件部份
    TCHAR data[50000];
    TCHAR SetMailHead[1024];                      //邮件头部信息
    wsprintf(SetMailHead,TEXT("To:%s\r\nFrom:%s\r\nSubject: %s\r\n"
                               "Date:2012-8-24\r\nX-Mailer:Kevin's mailer\r\nMIME-Version:1.0\r\n"
                               "Content-Type: multipart/mixed;\r\n"
                               "    boundary=\"----=_NextPart_5039E410_D41071F0_120ABDFB\";\r\n"
                               "This is a multi-part message in MIME format.\r\n\r\n"
                               "------=_NextPart_5039E410_D41071F0_120ABDFB\r\n"
                               "Content-Type: multipart/alternative;\r\n"
                               "    boundary=\"----=_NextPart_5039E410_D41071F0_53510C95\";\r\n\r\n"
                               "------=_NextPart_5039E410_D41071F0_53510C95\r\n"
                               "Content-Type: text/plain;\r charset=\"gb2312\"\r\n"
                               "Content-Transfer-Encoding: base64\r\n\r\n"),szState,userF,pTitle);
    
    strcat(SetMailHead,pText);                  //邮件头部再加上正文文本内容
    strcat(SetMailHead,TEXT("\r\n\r\n"));
    strcpy(data,SetMailHead);

    TCHAR SetMailHtml[1024];                    //邮件HTML代码部份
    wsprintf(SetMailHtml,TEXT("------=_NextPart_5039E410_D41071F0_53510C95\r\n"
                               "Content-Type: text/html;\r\n"
                                "   charset=\"gb2312\"\r\n"
                                "Content-Transfer-Encoding: base64\r\n\r\n"));

    strcat(SetMailHtml,pText);                  //加入邮件内容
    strcat(SetMailHtml,TEXT("\r\n\r\n------=_NextPart_5039E410_D41071F0_53510C95--\r\n\r\n"));
                             
     
    strcat(data,SetMailHtml);

    if(TRUE==attach)                           //判断是否添加了附件路径
    {
       strcat(data,file);                      //加入附件部份代码
       strcat(data,TEXT("------=_NextPart_5039E410_D41071F0_120ABDFB--\r\n"));
    }
     
    send(sock,data,lstrlen(data),0);
    TCHAR cN[]="\r\n.\r\n";                    //邮件结束标志
    send(sock,cN,lstrlen(cN),0);

    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }



     
    TCHAR cQuit[] = "QUIT\r\n";                 //退出命令
    send(sock,cQuit,lstrlen(cQuit),0); 
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);

    TCHAR cNum[256];
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }        
    else
    { 
        TCHAR str[256];                        //输出已发送列表
        wsprintf(str,"%i",sendNum);
        LVITEM lvItem;
        lvItem.mask = LVIF_TEXT;
        lvItem.iSubItem = 0;
        int ItemCount = ListView_GetItemCount(GetDlgItem(hwnd, IDC_LIST));
        lvItem.iItem = ItemCount;   
         
        lvItem.pszText = str;
        SendDlgItemMessage(hwnd, IDC_LIST, LVM_INSERTITEM, 0, (LPARAM)&lvItem); 
        ListView_SetItemText(GetDlgItem(hwnd, IDC_LIST), i++, 1, szState);                          
        sendNum++;
       
    }

;
free(pTitle); //释放空间
closesocket(sock); //关闭SOCKET
WSACleanup();
return;
}

void Socket(HWND hwnd,TCHAR userName[],TCHAR userPassWord[])//传入加密的用户名跟密码连接163
{

    TCHAR* pText;
    pText = readText1(hwnd);

    int WSA_return;
    WSADATA wsaData;         
     
    WSA_return=WSAStartup(MAKEWORD(2,0),&wsaData);//初始化Socket库      
 
    SOCKET sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
    hostent*   host   =   NULL; 
    SOCKADDR_IN sa;
      
    sa.sin_family=AF_INET;                        //设置电线连接服务器端的端口
     
    TCHAR cPort[100];
    GetDlgItemText(hwnd,IDC_EDIT_MAILPORT,cPort,sizeof(cPort)/sizeof(TCHAR));
    int iPort=atoi(cPort);
    sa.sin_port = htons(iPort);     
     
     HOSTENT *host_entry;
     
     TCHAR host_name[256]="";
     ZeroMemory(host_name,sizeof(host_name)/sizeof(TCHAR)); 
     ComboBox_GetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),host_name,sizeof(host_name)/sizeof(TCHAR));

     TCHAR str_ipAdd[256];
     if(WSA_return==0)
     {           
        host_entry=gethostbyname(host_name); // 即要解析的域名或主机名 
 
         if(host_entry!=NULL)
         {
          
             wsprintf(str_ipAdd,"%d.%d.%d.%d",
            (host_entry->h_addr_list[0][0]&0x00ff),
            (host_entry->h_addr_list[0][1]&0x00ff),
            (host_entry->h_addr_list[0][2]&0x00ff),
            (host_entry->h_addr_list[0][3]&0x00ff));
             
             
          }
     }
    sa.sin_addr.S_un.S_addr = inet_addr(str_ipAdd);      
    if(connect(sock,(SOCKADDR *)&sa,sizeof(sa))==SOCKET_ERROR)
    {
        ShowError();
        return;  
    }

    TCHAR buffer[256];                       //对话过程  
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));        
    int iRet=recv(sock,buffer,256,0);        //接收问候语 
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }
      
      
     
    TCHAR Hello[] = "HELO SMTP\r\n";        //注意不能忘了末尾的回车  
    send(sock,Hello,lstrlen(Hello),0); 
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }


    TCHAR Ehlo[] = "EHLO SMTP\r\n";      
    send(sock,Ehlo,lstrlen(Ehlo),0); 
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }
     
    TCHAR login[] = "AUTH LOGIN\r\n";                     //登陆命令
    send(sock,login,lstrlen(login),0); 
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }
     
    if(IsDlgButtonChecked(hwnd,IDC_RADIO_QQ)==BST_CHECKED)
    {
        strcat(userName,"\r\n");
        send(sock,userName,lstrlen(userName),0);         //发送加密的用户名
        ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
        iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }

        strcat(userPassWord,"\r\n");
        send(sock,userPassWord,lstrlen(userPassWord),0); //发送加密的密码
        ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
        iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }
    }
    if(IsDlgButtonChecked(hwnd,IDC_RADIO_163)==BST_CHECKED)
    {
        send(sock,userName,lstrlen(userName),0);         //发送加密的用户名
        ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
        iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }

        send(sock,userPassWord,lstrlen(userPassWord),0); //发送加密的密码
        ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
        iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }
    }


    TCHAR userF[256];
    TCHAR userL[256];
    TCHAR temp[256];
    GetDlgItemText(hwnd,IDC_EDIT_USERNAME,userF,sizeof(userF)/sizeof(TCHAR));   
    ComboBox_GetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),temp,sizeof(host_name)/sizeof(TCHAR));
    strcat(userF,"@");
    strncpy(userL,temp+5,sizeof(userL));
    strcat(userF,userL);
    TCHAR mailFrom[256];
    //MessageBox(hwnd,userF,"",MB_OK);
    wsprintf(mailFrom,TEXT("MAIL FROM:<%s>\r\n"),userF);
    send(sock,mailFrom,lstrlen(mailFrom),0);
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }
    
        TCHAR mailAdd[256];
        GetDlgItemText(hwnd,IDC_EDIT_MAILADD,mailAdd,sizeof(mailAdd)/sizeof(TCHAR));
        TCHAR mailTo[256];
        wsprintf(mailTo,TEXT("RCPT TO:<%s>\r\n"),mailAdd);
        send(sock,mailTo,lstrlen(mailTo),0);
        ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
        iRet=recv(sock,buffer,256,0);
        if(SOCKET_ERROR==iRet)
        {
            ShowError();         
            return;
        }
     

    TCHAR dataCommad[]="DATA\r\n";
    send(sock,dataCommad,lstrlen(dataCommad),0); 
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }

    //下面是发送正文及附件部份
    TCHAR data[50000];
    TCHAR SetMailHead[1024];                       //邮件头部信息
    wsprintf(SetMailHead,TEXT("To:%s\r\nFrom:%s\r\nSubject: %s\r\n"
                               "Date:2012-8-24\r\nX-Mailer:Kevin's mailer\r\nMIME-Version:1.0\r\n"
                               "Content-Type: multipart/mixed;\r\n"
                               "    boundary=\"----=_NextPart_5039E410_D41071F0_120ABDFB\";\r\n"
                               "This is a multi-part message in MIME format.\r\n\r\n"
                               "------=_NextPart_5039E410_D41071F0_120ABDFB\r\n"
                               "Content-Type: multipart/alternative;\r\n"
                               "    boundary=\"----=_NextPart_5039E410_D41071F0_53510C95\";\r\n\r\n"
                               "------=_NextPart_5039E410_D41071F0_53510C95\r\n"
                               "Content-Type: text/plain;\r charset=\"gb2312\"\r\n"
                               "Content-Transfer-Encoding: base64\r\n\r\n"),mailAdd,userF,pTitle);
    
    strcat(SetMailHead,pText);                     //邮件头部再加上正文文本内容
      
    strcat(SetMailHead,TEXT("\r\n\r\n"));
    strcpy(data,SetMailHead);

    TCHAR SetMailHtml[1024];                       //邮件HTML代码部份
    wsprintf(SetMailHtml,TEXT("------=_NextPart_5039E410_D41071F0_53510C95\r\n"
                               "Content-Type: text/html;\r\n"
                                "   charset=\"gb2312\"\r\n"
                                "Content-Transfer-Encoding: base64\r\n\r\n"));
    strcat(SetMailHtml,pText);                     //加入邮件内容
    strcat(SetMailHtml,TEXT("\r\n\r\n------=_NextPart_5039E410_D41071F0_53510C95--\r\n\r\n"));
                             
     
    strcat(data,SetMailHtml);

    if(TRUE==attach)                               //判断是否添加了附件路径
    {
       strcat(data,file);                          //加入附件部份代码
       strcat(data,TEXT("------=_NextPart_5039E410_D41071F0_120ABDFB--\r\n"));
    }
 
    send(sock,data,lstrlen(data),0);

    TCHAR cN[]="\r\n.\r\n";                        //邮件结束标志
    send(sock,cN,lstrlen(cN),0);
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }

     



     
    TCHAR cQuit[] = "QUIT\r\n";                     //退出命令
    send(sock,cQuit,lstrlen(cQuit),0); 
    ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR)); 
    iRet=recv(sock,buffer,256,0);

    TCHAR cNum[256];
    if(SOCKET_ERROR==iRet)
    {
        ShowError();         
        return;
    }        
    else
    {     
       MessageBox(hwnd,TEXT("测试发送成功"),TEXT("恭喜"),MB_OK);
    }

     
     
     free(pTitle);                                 //释放空间
    closesocket(sock);                             //关闭SOCK      
    WSACleanup();
    return;

}

void ShowError()

{

TCHAR* lpMsgBuf;
  
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER|     //自动分配消息缓冲区
  
FORMAT_MESSAGE_FROM_SYSTEM,                       //从系统获取信息
  
NULL,GetLastError(),                              //获取错误信息标识
  
MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),         //使用系统缺省语言
  
(LPTSTR)&lpMsgBuf,                                //消息缓冲区
  
0,
  
NULL);
  
MessageBox(NULL,lpMsgBuf,"",MB_ICONERROR);

}

posted @ 2018-11-05 14:12 星朝阅读(1202) 评论(0) 编辑收藏举报

刷新页面返回顶部

星朝

邮件群发

define MAXSTRING 10000

pragma comment(lib,"WSOCK32.LIB")

公告