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

Question

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

Answer 1

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

Answer 2

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

Answer 3

There's too many stuff to list out！

Answer 4

服务器代码:
Option ExplicitPrivate 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 SubPrivate Sub Form_Load()
  Winsock1.Protocol = sckTCPProtocol
  Winsock1.LocalPort = 2001
  Winsock1.Listen
  
  FormCLI.Show
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  If Winsock1.State <> 0 Then Winsock1.Close
    Winsock1.Accept requestID
    
End Sub
客户端代码:
Option ExplicitPrivate Sub Form_Load()
With Winsock1
     .Protocol = sckTCPProtocol
     .RemoteHost = "192.168.0.69"
     .RemotePort = 2001
     .Connect
End With
     
End SubPrivate 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进制传送!!!不过对方要知道你发送的是什么类型的文件,好不扩张名不知道怎么写,这个你就增加一个数据 包,包里面包含此文件的扩张名即可!

Answer 5

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

Answer 6

就是..就是 ...同意楼上的说法!要代码,要工程,要方法,要....都可以,就不可以随便"跪求"!
网上这种代码"文件传输(wscksendfile).rar",呵呵,搜索一下也有!我也有现成的!