跪求VB 6.0编的利用Winsock控件实现的局域网文件传输程序

[underone]

本人刚接触VB，但又急要 VB 6.0编的利用Winsock控件实现的局域网文件传输程序 求求大虾们帮帮忙啊，发到我邮箱：[e-mail]万分感谢。
分不够还可以在给

[VBAdvisor]

BS:男人膝下有黄金，不要动不动就下跪！
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54669&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=46633&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=59815&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=59273&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54071&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=59324&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=44801&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=52837&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=59812&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=36448&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=50253&lngWId=1

[VBAdvisor]

http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=12224&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=12224&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=66289&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=39898&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=41879&lngWId=1
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=50253&lngWId=1

[VBAdvisor]

There's too many stuff to list out！

[ZOU_SEAFARER]

服务器代码:
Option Explicit

Private Sub Command1_Click()
Dim BytDate() As Byte
Dim FileName As String
Dim lngFile As Long
Dim i As Long
FileName = "D:\Image\Oct2003.MDB " '取得文件名及路径
lngFile = FileLen(FileName) \ 1024 '取得文件长度
Me.ProgressBar1.Min = 0
Me.ProgressBar1.Max = lngFile + 1
ProgressBar1.Value = 0
For i = 0 To lngFile
ReDim myFile(1023) As Byte '初始化数组
Open FileName For Binary As #1 '打开文件
Get #1, i * 1024 + 1, myFile '将文件写入数组
Close #1 '关闭文件
Winsock1.SendData myFile '发送
DoEvents
ProgressBar1.Value = ProgressBar1.Value + 1
Next i
If ProgressBar1.Value = ProgressBar1.Max Then MsgBox "OK"

End Sub

Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = 2001
Winsock1.Listen

FormCLI.Show
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> 0 Then Winsock1.Close
Winsock1.Accept requestID

End Sub


客户端代码:
Option Explicit

Private Sub Form_Load()
With Winsock1
.Protocol = sckTCPProtocol
.RemoteHost = "192.168.0.69"
.RemotePort = 2001
.Connect
End With

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Static i As Long
Dim myFile() As Byte
Dim myLong As Double
Dim myPath As String
myPath = "d:\abc.MDB"
ReDim myFile(bytesTotal - 1) '此处也可以是(0 To bytesTotal-1)
Winsock1.GetData myFile

Open myPath For Binary As #1 '新建文件
myLong = FileLen(myPath)
Put #1, myLong + 1, myFile '将收到的数据写入新文件中
Close #1 '关闭
End Sub

不管什么文件,都转化为2进制传送!!!不过对方要知道你发送的是什么类型的文件,好不扩张名不知道怎么写,这个你就增加一个数据 包,包里面包含此文件的扩张名即可!

[ZOU_SEAFARER]

如果需要工程,请发邮件给我[e-mail]
然后发消息通知我,我给你发工程文件!

[嗷嗷叫的老马]

男人膝下有黄金，不要动不动就下跪！

[幻影时空]

就是..就是 ...同意楼上的说法!

要代码,要工程,要方法,要....都可以,就不可以随便"跪求"!


网上这种代码"文件传输(wscksendfile).rar",呵呵,搜索一下也有!

我也有现成的!

[alan001]

UP