1 #include "stdafx.h"
2 #include <windows.h>
3 #include <windowsx.h>
4 #include "Resource.h"
5 #include "TabDlg1.h"
6 #include "winsock2.h"
7 #define MAXSTRING 10000
8 static int flag=0; //标记是否群发
9 TCHAR* pTitle = NULL; //指向标题文件内容的指针
10 HANDLE hThread=NULL; //线程返回句柄
11 long i=0; //列表控件“行”计数
12 static long sendNum=1; //发送邮件数量
13 #pragma comment(lib,"WSOCK32.LIB")
14 extern TCHAR tcRunPath[MAX_PATH]; //程序当前路径目录
15 extern TCHAR shortPath[MAX_PATH]; //文件路径,TAB2中的全局变量
16 extern TCHAR titlePath[256]; //邮件标题文件路径
17 extern TCHAR mtPath[256]; //邮件内容文件路径
18 extern TCHAR sendListPath[MAX_PATH]; //发送列表文件路径
19 extern BOOL attach; //是否添加了附件
20 extern TCHAR file[MAXSTRING]; //附件部份代码
21 BOOL WINAPI TAB1_Proc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
22 {
23 switch(uMsg)
24 {
25 HANDLE_MSG(hWnd, WM_INITDIALOG, TAB1_OnInitDialog);
26 HANDLE_MSG(hWnd, WM_COMMAND, TAB1_OnCommand);
27 HANDLE_MSG(hWnd,WM_CLOSE, TAB1_OnClose);
28 }
29 return FALSE;
30 }
31 BOOL TAB1_OnInitDialog(HWND hwnd, HWND hwndFocus, LPARAM lParam)
32 {
33 InitLVColumn(hwnd);
34 InitComboBox(hwnd);
35 return TRUE;
36 }
37 void TAB1_OnCommand(HWND hwnd, int id, HWND hwndCtl, UINT codeNotify)
38 {
39 IsChecked(hwnd); //判断勾选框是否被勾选
40 IsRadioChecked(hwnd); //RADIO控件是否被选择
41 switch(id)
42 {
43 case IDC_MAIL_TEST:
44 {
45 if(IsDlgButtonChecked(hwnd,IDC_RADIO_QQ)!=BST_CHECKED && IsDlgButtonChecked(hwnd,IDC_RADIO_163)!=BST_CHECKED)
46 {
47 MessageBox(hwnd,TEXT("请选择发QQ邮箱或163信箱"),"",MB_OK);
48 return;
49 }
50 else
51 {
52 flag=0;
53 hThread=CreateThread(NULL,0,ThreadFunc,hwnd,0,0);
54 }
55 }
56 break;
57 case IDC_BUTTON_START:
58 {
59 if(IsDlgButtonChecked(hwnd,IDC_RADIO_QQ)!=BST_CHECKED && IsDlgButtonChecked(hwnd,IDC_RADIO_163)!=BST_CHECKED)
60 {
61 MessageBox(hwnd,TEXT("请选择发QQ邮箱或163信箱"),"",MB_OK);
62 return;
63 }
64 else
65 {
66 flag=1;
67 hThread=CreateThread(NULL,0,ThreadFunc,hwnd,0,0);
68 }
69 }
70 break;
71 case IDC_BUTTON_PAUSE:
72 {
73 if(NULL!=hThread)
74 {
75 SuspendThread(hThread);
76 }
77 else
78 {
79 return;
80 }
81 }
82 break;
83 case IDC_BUTTON_RESUME:
84 {
85 if(NULL!=hThread)
86 {
87 ResumeThread(hThread);
88 }
89 else
90 {
91 return;
92 }
93 }
94 break;
95 default:
96 break;
97 }
98 }
99 void TAB1_OnClose(HWND hwnd)
100 {
101 EndDialog(hwnd, 0);
102 }
103 int InitLVColumn(HWND hwnd) //列表初始化设置,视图选为报表视图
104 {
105 LVCOLUMN lvColumn;
106 MyLVColumn MyColumn[2] = {{TEXT("编号"), 0x30, LVCFMT_CENTER},{TEXT("邮箱帐号"), 0x99, LVCFMT_CENTER}};
107 lvColumn.mask = LVCF_TEXT|LVCF_FMT|LVCF_WIDTH|LVCF_SUBITEM;
108 DWORD dwStyle =ListView_GetExtendedListViewStyle(GetDlgItem(hwnd, IDC_LIST)); //得到列表当前拓展风格
109 dwStyle |= LVS_EX_FULLROWSELECT; //选中某行使整行高亮(只适用与report风格的listctrl)
110 dwStyle |= LVS_EX_GRIDLINES; //网格线(只适用与report风格的listctrl)
111 // dwStyle |= LVS_EX_CHECKBOXES; //item前生成checkbox控件
112 ListView_SetExtendedListViewStyle(GetDlgItem(hwnd, IDC_LIST),dwStyle); //设置列表扩展风格
113 for(int i = 0; i < 2; i++)
114 {
115 lvColumn.pszText = MyColumn[i].szColumnName;
116 lvColumn.cx = MyColumn[i].cx;
117 lvColumn.fmt = MyColumn[i].fmt;
118 SendDlgItemMessage(hwnd, IDC_LIST, LVM_INSERTCOLUMN, i, (LPARAM)&lvColumn);
119 }
120
121 return 0;
122 }
123 int InitComboBox(HWND hwnd)//窗口控件初始化设置
124 {
125 HWND hwndCombo=GetDlgItem(hwnd,IDC_COMBO_SLEEPTIME);
126 ComboBox_InsertString(hwndCombo,-1,TEXT("0"));
127 ComboBox_InsertString(hwndCombo,-1,TEXT("1"));
128 ComboBox_InsertString(hwndCombo,-1,TEXT("2"));
129 ComboBox_InsertString(hwndCombo,-1,TEXT("5"));
130 ComboBox_InsertString(hwndCombo,-1,TEXT("10"));
131 ComboBox_InsertString(hwndCombo,-1,TEXT("20"));
132 ComboBox_SetText(hwndCombo,TEXT("0"));
133 SetDlgItemText(hwnd,IDC_EDIT_MAILADD,TEXT("12345678@qq.com"));
134 ComboBox_InsertString(GetDlgItem(hwnd,IDC_COMBO_SMTP),0,TEXT("smtp.qq.com"));
135 ComboBox_InsertString(GetDlgItem(hwnd,IDC_COMBO_SMTP),1,TEXT("smtp.163.com"));
136 ComboBox_SetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),TEXT("smtp.qq.com"));
137 SetDlgItemText(hwnd,IDC_EDIT_MAILPORT,TEXT("25"));
138 SetDlgItemText(hwnd,IDC_EDIT_USERNAME,TEXT(""));
139
140 return 1;
141 }
142 int IsChecked(HWND hwnd) //checkbox未选中的设置为只读
143 {
144 if(IsDlgButtonChecked(hwnd,IDC_CHECK_QUNFA)!=BST_CHECKED)
145 {
146 EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_START), false);
147 EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_RESUME), false);
148 EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_PAUSE), false);
149 return 0;
150 }
151 else
152 {
153 EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_START), true);
154 EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_RESUME), true);
155 EnableWindow(GetDlgItem(hwnd, IDC_BUTTON_PAUSE), true);
156 return 1;
157 }
158 return 0;
159 }
160 int IsRadioChecked(HWND hwnd) //RADIO控件被选中,则设置相应的SMTP 地址
161 {
162 if(IsDlgButtonChecked(hwnd,IDC_RADIO_QQ)==BST_CHECKED)
163 {
164 ComboBox_SetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),TEXT("smtp.qq.com"));
165 return 1;
166 }
167 if(IsDlgButtonChecked(hwnd,IDC_RADIO_163)==BST_CHECKED)
168 {
169 ComboBox_SetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),TEXT("smtp.163.com"));
170 return 2;
171 }
172 return 0;
173 }
174 TCHAR* readText1(HWND hwnd) //读取文件--邮件发送内容
175 {
176 int nLen = 0;
177 FILE *pF = fopen(titlePath , "r"); //打开文件
178 fseek(pF, 0, SEEK_END); //文件指针移到文件尾
179 nLen = ftell(pF); //得到当前指针位置, 即是文件的长度
180 rewind(pF); //文件指针恢复到文件头位置
181 pTitle = (char*) malloc(sizeof(char)*nLen+1);//动态申请空间, 为保存字符串结尾标志\0, 多申请一个字符的空间
182 if(!pTitle)
183 {
184 MessageBox(hwnd,TEXT("内存不够!"),"错误",MB_ICONWARNING);
185 exit(0);
186 }
187 nLen = fread(pTitle, sizeof(char), nLen, pF);
188 pTitle[nLen] = '\0'; //添加字符串结尾标志
189 if(IsDlgButtonChecked(hwnd,IDC_CHECK_TITLE)==BST_CHECKED) //是否勾选在邮件标题 加入系统当前时间
190 {
191 SYSTEMTIME stLocal;
192 GetLocalTime(&stLocal); //得到系统当前时间
193 TCHAR strTime[256];
194 ZeroMemory(strTime,sizeof(strTime)/sizeof(TCHAR));
195 wsprintf(strTime,"%04u-%02u-%02u %02u:%02u:%02u",stLocal.wYear,stLocal.wMonth,stLocal.wDay,stLocal.wHour,stLocal.wMinute,stLocal.wSecond);
196 strcat(pTitle,strTime); //在标题后加入系统时间
197 }
198 fclose(pF); //关闭文件
199 TCHAR* pText = NULL;
200 pF = fopen(mtPath , "r"); //打开文件
201 fseek(pF, 0, SEEK_END);
202 nLen = ftell(pF);
203 rewind(pF);
204 pText = (char*) malloc(sizeof(char)*nLen+1); //动态申请空间, 为保存字符串结尾标志\0, 多申请一个字符的空间
205 if(!pText)
206 {
207 MessageBox(hwnd,TEXT("内存不够!"),"错误",MB_ICONWARNING);
208 exit(0);
209 }
210 nLen = fread(pText, sizeof(char), nLen, pF);
211 pText[nLen] = '\0'; //添加字符串结尾标志
212 fclose(pF); //关闭文件
213 TCHAR chText[MAXSTRING];
214 TCHAR* encText=base64_encode(pText,strlen(pText));
215 strcpy(chText,encText); //BASE64加密结果
216 free(encText); //释放指针
217 free(pText); //释放空间
218 return chText;
219 }
220 DWORD WINAPI ThreadFunc(LPVOID lpParam)//发邮件线程
221 {
222 HWND hwnd=(HWND)lpParam;
223 TCHAR userName[256]; //用户帐号
224 TCHAR userPassWord[256]; //用户密码
225 GetDlgItemText(hwnd,IDC_EDIT_USERNAME,userName,sizeof(userName)/sizeof(TCHAR));
226 GetDlgItemText(hwnd,IDC_EDIT_USERPASSWORD,userPassWord,sizeof(userPassWord)/sizeof(TCHAR));
227 TCHAR *name=userName;
228 int i = 0;
229 int j = strlen(name);
230 TCHAR *encName = base64_encode(name, j); //给用户名base64加密编码
231 ZeroMemory(userName,sizeof(userName)/sizeof(TCHAR));
232 wsprintf(userName,"%s\n", encName); //在加编码后加入回车符
233 TCHAR *passWord=userPassWord;
234 int k = strlen(passWord);
235 TCHAR *encPassWord = base64_encode(passWord, k); //给用户密码base64加密编码
236 // int len = strlen(enc);
237 // TCHAR *dec = base64_decode(enc, len); //反编
238 ZeroMemory(userPassWord,sizeof(userPassWord)/sizeof(TCHAR));
239 wsprintf(userPassWord,"%s\n", encPassWord);
240 /*ZeroMemory(userName,sizeof(userName)/sizeof(TCHAR));
241 wsprintf(userName,"\ndecoded : %s", dec);
242 MessageBox(hwnd,userName,"",MB_OK);*/ //反编译用户名,如果需要,可以把用户名密码反编后发到指定邮箱。
243 free(encName); //释放指针
244 free(encPassWord);
245 //free(dec);
246 if(1==flag) //全局标记,点击群发还是测试,1为群发,0为测试
247 {
248 HANDLE wFile;
249 int szId;
250 TCHAR ch;
251 TCHAR szState[256];
252 strcpy(sendListPath,tcRunPath);
253 strcat(sendListPath,"\\SendList.txt"); //拼接全路径及文件名
254 TCHAR *sFileName=sendListPath;
255 FILE *fp=fopen(sFileName,"r");
256 if(fp==NULL)
257 {
258 return FALSE; //打开文件失败,则返回,不读取
259 }
260 fseek(fp, 0, SEEK_END);
261 int length = ftell(fp); //length为0,则是空的
262 rewind(fp); //把指针移回文件头部 还可以用 fseek(fp, 0, SEEK_SET);效果一样
263 if(length==0) //判断文件如果为空,则关闭文件,返回,
264 {
265 fclose(fp); //要关闭打开的文件,不然退出时,无法保存
266 return FALSE;
267 }
268 while(!feof(fp))
269 {
270 fscanf(fp,"%s\r\n",szState);
271 SocketQ(hwnd,userName,userPassWord,szState);
272 TCHAR sTime[256];
273 unsigned long iTime;
274 ComboBox_GetText(GetDlgItem(hwnd,IDC_COMBO_SLEEPTIME),sTime,sizeof(sTime)/sizeof(TCHAR));
275 iTime=atoi(sTime);
276 iTime=iTime*1000;
277 Sleep(iTime);
278 }
279 fclose(fp);
280 }
281 else
282 {
283 Socket(hwnd,userName,userPassWord);
284 }
285 CloseHandle(hThread);
286 return 0;
287 }
288 void SocketQ(HWND hwnd,TCHAR userName[],TCHAR userPassWord[],TCHAR szState[])//传入加密的用户名跟密码连接163
289 {
290 /*******************************************************************
291 使用Socket的程序在使用Socket之前必须调用WSAStartup函数。
292 该函数的第一个参数指明程序请求使用的Socket版本,
293 其中高位字节指明副版本、低位字节指明主版本;
294 操作系统利用第二个参数返回请求的Socket的版本信息。
295 当一个应用程序调用WSAStartup函数时,操作系统根据请求的Socket版本来搜索相应的Socket库,
296 然后绑定找到的Socket库到该应用程序中。
297 以后应用程序就可以调用所请求的Socket库中的其它Socket函数了。
298 该函数执行成功后返回0。
299 *****************************************************************/
300 TCHAR* pText;
301 pText = readText1(hwnd);
302 int WSA_return;
303 WSADATA wsaData;
304 WSA_return=WSAStartup(MAKEWORD(2,0),&wsaData); //初始化Socket库
305 SOCKET sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);//创建SOCKET
306 hostent* host = NULL;
307 SOCKADDR_IN sa;
308 sa.sin_family=AF_INET; //设置电线连接服务器端的端口
309 TCHAR cPort[100];
310 GetDlgItemText(hwnd,IDC_EDIT_MAILPORT,cPort,sizeof(cPort)/sizeof(TCHAR));
311 int iPort=atoi(cPort);
312 sa.sin_port = htons(iPort);
313 //sa.sin_addr.S_un.S_addr = inet_addr("123.58.178.203");//可以写死IP地址
314 HOSTENT *host_entry; //存放主机域名,如smtp.qq.com
315 TCHAR host_name[256]="";
316 ZeroMemory(host_name,sizeof(host_name)/sizeof(TCHAR));
317 ComboBox_GetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),host_name,sizeof(host_name)/sizeof(TCHAR));
318 TCHAR str_ipAdd[256];
319 if(WSA_return==0)
320 {
321 host_entry=gethostbyname(host_name); // 要解析的域名或主机名
322 if(host_entry!=NULL)
323 {
324 wsprintf(str_ipAdd,"%d.%d.%d.%d",
325 (host_entry->h_addr_list[0][0]&0x00ff),
326 (host_entry->h_addr_list[0][1]&0x00ff),
327 (host_entry->h_addr_list[0][2]&0x00ff),
328 (host_entry->h_addr_list[0][3]&0x00ff));
329
330 }
331 }
332 sa.sin_addr.S_un.S_addr = inet_addr(str_ipAdd); //得到域名IP地址
333 if(connect(sock,(SOCKADDR *)&sa,sizeof(sa))==SOCKET_ERROR)
334 {
335 ShowError();
336 return;
337 }
338 TCHAR buffer[256]; //对话过程
339 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
340 int iRet=recv(sock,buffer,256,0); //接收问候语
341 if(SOCKET_ERROR==iRet)
342 {
343 ShowError();
344 return;
345 }
346 TCHAR Hello[] = "HELO SMTP\r\n"; //注意不能忘了末尾的回车
347 send(sock,Hello,lstrlen(Hello),0);
348 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
349 iRet=recv(sock,buffer,256,0);
350 if(SOCKET_ERROR==iRet)
351 {
352 ShowError();
353 return;
354 }
355 TCHAR Ehlo[] = "EHLO SMTP\r\n";
356 send(sock,Ehlo,lstrlen(Ehlo),0);
357 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
358 iRet=recv(sock,buffer,256,0);
359 if(SOCKET_ERROR==iRet)
360 {
361 ShowError();
362 return;
363 }
364 TCHAR login[] = "AUTH LOGIN\r\n"; //登陆命令
365 send(sock,login,lstrlen(login),0);
366 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
367 iRet=recv(sock,buffer,256,0);
368 if(SOCKET_ERROR==iRet)
369 {
370 ShowError();
371 return;
372 }
373 if(IsDlgButtonChecked(hwnd,IDC_RADIO_QQ)==BST_CHECKED)
374 {
375 strcat(userName,"\r\n");
376 send(sock,userName,lstrlen(userName),0); //发送加密的用户名
377 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
378 iRet=recv(sock,buffer,256,0);
379 if(SOCKET_ERROR==iRet)
380 {
381 ShowError();
382 return;
383 }
384 strcat(userPassWord,"\r\n");
385 send(sock,userPassWord,lstrlen(userPassWord),0); //发送加密的密码
386 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
387 iRet=recv(sock,buffer,256,0);
388 if(SOCKET_ERROR==iRet)
389 {
390 ShowError();
391 return;
392 }
393 }
394 if(IsDlgButtonChecked(hwnd,IDC_RADIO_163)==BST_CHECKED)
395 {
396 send(sock,userName,lstrlen(userName),0); //发送加密的用户名
397 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
398 iRet=recv(sock,buffer,256,0);
399 if(SOCKET_ERROR==iRet)
400 {
401 ShowError();
402 return;
403 }
404 send(sock,userPassWord,lstrlen(userPassWord),0); //发送加密的密码
405 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
406 iRet=recv(sock,buffer,256,0);
407 if(SOCKET_ERROR==iRet)
408 {
409 ShowError();
410 return;
411 }
412 }
413 TCHAR userF[256];
414 TCHAR userL[256];
415 TCHAR temp[256];
416 GetDlgItemText(hwnd,IDC_EDIT_USERNAME,userF,sizeof(userF)/sizeof(TCHAR));
417 ComboBox_GetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),temp,sizeof(host_name)/sizeof(TCHAR));
418 strcat(userF,"@");
419 strncpy(userL,temp+5,sizeof(userL));
420 strcat(userF,userL);
421 TCHAR mailFrom[256];
422 //MessageBox(hwnd,userF,"",MB_OK);
423 wsprintf(mailFrom,TEXT("MAIL FROM:<%s>\r\n"),userF);
424 send(sock,mailFrom,lstrlen(mailFrom),0);
425 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
426 iRet=recv(sock,buffer,256,0);
427 if(SOCKET_ERROR==iRet)
428 {
429 ShowError();
430 return;
431 }
432 TCHAR mailTo[256];
433 wsprintf(mailTo,TEXT("RCPT TO:<%s>\r\n"),szState);
434 send(sock,mailTo,lstrlen(mailTo),0);
435 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
436 iRet=recv(sock,buffer,256,0);
437 if(SOCKET_ERROR==iRet)
438 {
439 ShowError();
440 return;
441 }
442 TCHAR dataCommad[]="DATA\r\n";
443 send(sock,dataCommad,lstrlen(dataCommad),0);
444 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
445 iRet=recv(sock,buffer,256,0);
446 if(SOCKET_ERROR==iRet)
447 {
448 ShowError();
449 return;
450 }
451 //下面是发送正文及附件部份
452 TCHAR data[50000];
453 TCHAR SetMailHead[1024]; //邮件头部信息
454 wsprintf(SetMailHead,TEXT("To:%s\r\nFrom:%s\r\nSubject: %s\r\n"
455 "Date:2012-8-24\r\nX-Mailer:Kevin's mailer\r\nMIME-Version:1.0\r\n"
456 "Content-Type: multipart/mixed;\r\n"
457 " boundary=\"----=_NextPart_5039E410_D41071F0_120ABDFB\";\r\n"
458 "This is a multi-part message in MIME format.\r\n\r\n"
459 "------=_NextPart_5039E410_D41071F0_120ABDFB\r\n"
460 "Content-Type: multipart/alternative;\r\n"
461 " boundary=\"----=_NextPart_5039E410_D41071F0_53510C95\";\r\n\r\n"
462 "------=_NextPart_5039E410_D41071F0_53510C95\r\n"
463 "Content-Type: text/plain;\r charset=\"gb2312\"\r\n"
464 "Content-Transfer-Encoding: base64\r\n\r\n"),szState,userF,pTitle);
465 strcat(SetMailHead,pText); //邮件头部再加上正文文本内容
466 strcat(SetMailHead,TEXT("\r\n\r\n"));
467 strcpy(data,SetMailHead);
468 TCHAR SetMailHtml[1024]; //邮件HTML代码部份
469 wsprintf(SetMailHtml,TEXT("------=_NextPart_5039E410_D41071F0_53510C95\r\n"
470 "Content-Type: text/html;\r\n"
471 " charset=\"gb2312\"\r\n"
472 "Content-Transfer-Encoding: base64\r\n\r\n"));
473 strcat(SetMailHtml,pText); //加入邮件内容
474 strcat(SetMailHtml,TEXT("\r\n\r\n------=_NextPart_5039E410_D41071F0_53510C95--\r\n\r\n"));
475 strcat(data,SetMailHtml);
476 if(TRUE==attach) //判断是否添加了附件路径
477 {
478 strcat(data,file); //加入附件部份代码
479 strcat(data,TEXT("------=_NextPart_5039E410_D41071F0_120ABDFB--\r\n"));
480 }
481 send(sock,data,lstrlen(data),0);
482 TCHAR cN[]="\r\n.\r\n"; //邮件结束标志
483 send(sock,cN,lstrlen(cN),0);
484 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
485 iRet=recv(sock,buffer,256,0);
486 if(SOCKET_ERROR==iRet)
487 {
488 ShowError();
489 return;
490 }
491 TCHAR cQuit[] = "QUIT\r\n"; //退出命令
492 send(sock,cQuit,lstrlen(cQuit),0);
493 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
494 iRet=recv(sock,buffer,256,0);
495 TCHAR cNum[256];
496 if(SOCKET_ERROR==iRet)
497 {
498 ShowError();
499 return;
500 }
501 else
502 {
503 TCHAR str[256]; //输出已发送列表
504 wsprintf(str,"%i",sendNum);
505 LVITEM lvItem;
506 lvItem.mask = LVIF_TEXT;
507 lvItem.iSubItem = 0;
508 int ItemCount = ListView_GetItemCount(GetDlgItem(hwnd, IDC_LIST));
509 lvItem.iItem = ItemCount;
510 lvItem.pszText = str;
511 SendDlgItemMessage(hwnd, IDC_LIST, LVM_INSERTITEM, 0, (LPARAM)&lvItem);
512 ListView_SetItemText(GetDlgItem(hwnd, IDC_LIST), i++, 1, szState);
513 sendNum++;
514 }
515 free(pTitle); //释放空间
516 closesocket(sock); //关闭SOCKET
517 WSACleanup();
518 return;
519 }
520 void Socket(HWND hwnd,TCHAR userName[],TCHAR userPassWord[])//传入加密的用户名跟密码连接163
521 {
522 TCHAR* pText;
523 pText = readText1(hwnd);
524 int WSA_return;
525 WSADATA wsaData;
526 WSA_return=WSAStartup(MAKEWORD(2,0),&wsaData);//初始化Socket库
527 SOCKET sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
528 hostent* host = NULL;
529 SOCKADDR_IN sa;
530 sa.sin_family=AF_INET; //设置电线连接服务器端的端口
531 TCHAR cPort[100];
532 GetDlgItemText(hwnd,IDC_EDIT_MAILPORT,cPort,sizeof(cPort)/sizeof(TCHAR));
533 int iPort=atoi(cPort);
534 sa.sin_port = htons(iPort);
535 HOSTENT *host_entry;
536 TCHAR host_name[256]="";
537 ZeroMemory(host_name,sizeof(host_name)/sizeof(TCHAR));
538 ComboBox_GetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),host_name,sizeof(host_name)/sizeof(TCHAR));
539 TCHAR str_ipAdd[256];
540 if(WSA_return==0)
541 {
542 host_entry=gethostbyname(host_name); // 即要解析的域名或主机名
543 if(host_entry!=NULL)
544 {
545 wsprintf(str_ipAdd,"%d.%d.%d.%d",
546 (host_entry->h_addr_list[0][0]&0x00ff),
547 (host_entry->h_addr_list[0][1]&0x00ff),
548 (host_entry->h_addr_list[0][2]&0x00ff),
549 (host_entry->h_addr_list[0][3]&0x00ff));
550
551 }
552 }
553 sa.sin_addr.S_un.S_addr = inet_addr(str_ipAdd);
554 if(connect(sock,(SOCKADDR *)&sa,sizeof(sa))==SOCKET_ERROR)
555 {
556 ShowError();
557 return;
558 }
559 TCHAR buffer[256]; //对话过程
560 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
561 int iRet=recv(sock,buffer,256,0); //接收问候语
562 if(SOCKET_ERROR==iRet)
563 {
564 ShowError();
565 return;
566 }
567 TCHAR Hello[] = "HELO SMTP\r\n"; //注意不能忘了末尾的回车
568 send(sock,Hello,lstrlen(Hello),0);
569 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
570 iRet=recv(sock,buffer,256,0);
571 if(SOCKET_ERROR==iRet)
572 {
573 ShowError();
574 return;
575 }
576 TCHAR Ehlo[] = "EHLO SMTP\r\n";
577 send(sock,Ehlo,lstrlen(Ehlo),0);
578 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
579 iRet=recv(sock,buffer,256,0);
580 if(SOCKET_ERROR==iRet)
581 {
582 ShowError();
583 return;
584 }
585 TCHAR login[] = "AUTH LOGIN\r\n"; //登陆命令
586 send(sock,login,lstrlen(login),0);
587 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
588 iRet=recv(sock,buffer,256,0);
589 if(SOCKET_ERROR==iRet)
590 {
591 ShowError();
592 return;
593 }
594 if(IsDlgButtonChecked(hwnd,IDC_RADIO_QQ)==BST_CHECKED)
595 {
596 strcat(userName,"\r\n");
597 send(sock,userName,lstrlen(userName),0); //发送加密的用户名
598 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
599 iRet=recv(sock,buffer,256,0);
600 if(SOCKET_ERROR==iRet)
601 {
602 ShowError();
603 return;
604 }
605 strcat(userPassWord,"\r\n");
606 send(sock,userPassWord,lstrlen(userPassWord),0); //发送加密的密码
607 // 何问起 hovertree.com
608 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
609 iRet=recv(sock,buffer,256,0);
610 if(SOCKET_ERROR==iRet)
611 {
612 ShowError();
613 return;
614 }
615 }
616 if(IsDlgButtonChecked(hwnd,IDC_RADIO_163)==BST_CHECKED)
617 {
618 send(sock,userName,lstrlen(userName),0); //发送加密的用户名
619 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
620 iRet=recv(sock,buffer,256,0);
621 if(SOCKET_ERROR==iRet)
622 {
623 ShowError();
624 return;
625 }
626 send(sock,userPassWord,lstrlen(userPassWord),0); //发送加密的密码
627 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
628 iRet=recv(sock,buffer,256,0);
629 if(SOCKET_ERROR==iRet)
630 {
631 ShowError();
632 return;
633 }
634 }
635 TCHAR userF[256];
636 TCHAR userL[256];
637 TCHAR temp[256];
638 GetDlgItemText(hwnd,IDC_EDIT_USERNAME,userF,sizeof(userF)/sizeof(TCHAR));
639 ComboBox_GetText(GetDlgItem(hwnd,IDC_COMBO_SMTP),temp,sizeof(host_name)/sizeof(TCHAR));
640 strcat(userF,"@");
641 strncpy(userL,temp+5,sizeof(userL));
642 strcat(userF,userL);
643 TCHAR mailFrom[256];
644 //MessageBox(hwnd,userF,"",MB_OK);
645 wsprintf(mailFrom,TEXT("MAIL FROM:<%s>\r\n"),userF);
646 send(sock,mailFrom,lstrlen(mailFrom),0);
647 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
648 iRet=recv(sock,buffer,256,0);
649 if(SOCKET_ERROR==iRet)
650 {
651 ShowError();
652 return;
653 }
654 TCHAR mailAdd[256];
655 GetDlgItemText(hwnd,IDC_EDIT_MAILADD,mailAdd,sizeof(mailAdd)/sizeof(TCHAR));
656 TCHAR mailTo[256];
657 wsprintf(mailTo,TEXT("RCPT TO:<%s>\r\n"),mailAdd);
658 send(sock,mailTo,lstrlen(mailTo),0);
659 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
660 iRet=recv(sock,buffer,256,0);
661 if(SOCKET_ERROR==iRet)
662 {
663 ShowError();
664 return;
665 }
666 TCHAR dataCommad[]="DATA\r\n";
667 send(sock,dataCommad,lstrlen(dataCommad),0);
668 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
669 iRet=recv(sock,buffer,256,0);
670 if(SOCKET_ERROR==iRet)
671 {
672 ShowError();
673 return;
674 }
675 //下面是发送正文及附件部份
676 TCHAR data[50000];
677 TCHAR SetMailHead[1024]; //邮件头部信息
678 wsprintf(SetMailHead,TEXT("To:%s\r\nFrom:%s\r\nSubject: %s\r\n"
679 "Date:2012-8-24\r\nX-Mailer:Kevin's mailer\r\nMIME-Version:1.0\r\n"
680 "Content-Type: multipart/mixed;\r\n"
681 " boundary=\"----=_NextPart_5039E410_D41071F0_120ABDFB\";\r\n"
682 "This is a multi-part message in MIME format.\r\n\r\n"
683 "------=_NextPart_5039E410_D41071F0_120ABDFB\r\n"
684 "Content-Type: multipart/alternative;\r\n"
685 " boundary=\"----=_NextPart_5039E410_D41071F0_53510C95\";\r\n\r\n"
686 "------=_NextPart_5039E410_D41071F0_53510C95\r\n"
687 "Content-Type: text/plain;\r charset=\"gb2312\"\r\n"
688 "Content-Transfer-Encoding: base64\r\n\r\n"),mailAdd,userF,pTitle);
689 strcat(SetMailHead,pText); //邮件头部再加上正文文本内容
690 strcat(SetMailHead,TEXT("\r\n\r\n"));
691 strcpy(data,SetMailHead);
692 TCHAR SetMailHtml[1024]; //邮件HTML代码部份
693 wsprintf(SetMailHtml,TEXT("------=_NextPart_5039E410_D41071F0_53510C95\r\n"
694 "Content-Type: text/html;\r\n"
695 " charset=\"gb2312\"\r\n"
696 "Content-Transfer-Encoding: base64\r\n\r\n"));
697 strcat(SetMailHtml,pText); //加入邮件内容
698 strcat(SetMailHtml,TEXT("\r\n\r\n------=_NextPart_5039E410_D41071F0_53510C95--\r\n\r\n"));
699 strcat(data,SetMailHtml);
700 if(TRUE==attach) //判断是否添加了附件路径
701 {
702 strcat(data,file); //加入附件部份代码
703 strcat(data,TEXT("------=_NextPart_5039E410_D41071F0_120ABDFB--\r\n"));
704 }
705 send(sock,data,lstrlen(data),0);
706 TCHAR cN[]="\r\n.\r\n"; //邮件结束标志
707 send(sock,cN,lstrlen(cN),0);
708 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
709 iRet=recv(sock,buffer,256,0);
710 if(SOCKET_ERROR==iRet)
711 {
712 ShowError();
713 return;
714 }
715 TCHAR cQuit[] = "QUIT\r\n"; //退出命令
716 send(sock,cQuit,lstrlen(cQuit),0);
717 ZeroMemory(buffer,sizeof(buffer)/sizeof(TCHAR));
718 iRet=recv(sock,buffer,256,0);
719 TCHAR cNum[256];
720 if(SOCKET_ERROR==iRet)
721 {
722 ShowError();
723 return;
724 }
725 else
726 {
727 MessageBox(hwnd,TEXT("测试发送成功"),TEXT("恭喜"),MB_OK);
728 }
729 free(pTitle); //释放空间
730 closesocket(sock); //关闭SOCK
731 WSACleanup();
732 return;
733 }
734 void ShowError()
735 {
736 TCHAR* lpMsgBuf;
737 FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER| //自动分配消息缓冲区
738 FORMAT_MESSAGE_FROM_SYSTEM, //从系统获取信息
739 NULL,GetLastError(), //获取错误信息标识
740 MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT), //使用系统缺省语言
741 (LPTSTR)&lpMsgBuf, //消息缓冲区
742 0,
743 NULL);
744 MessageBox(NULL,lpMsgBuf,"",MB_ICONERROR);
745 }