如何用winsock编写文件传输程序？

Question

将WINSOCK作成数组控件，然后一个一个发送，OK！

Answer 1

Private Form_Load()
Winsock1(0).LocalPort = 1001
Winsock1(0).Listen
End Sub
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
   NuIp = Winsock1(0).RemoteHostIP
   NuIp = Trim(NuIp)
   dwz = InStrRev(NuIp, ".")
    dl = Left(NuIp, dwz)
    i = Len(dl)
    dr = Right(NuIp, Len(NuIp) - i)    '记录本机IP地址的前三位信息
    dr = CInt(dr)                      '用来设置winsock1()控件号    Load Winsock1(dr)
    Winsock1(dr).LocalPort = CInt("1050") + dr
    Winsock1(dr).Accept requestID
End Sub    
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Winsock1(dr) getdata s
End Sub

Answer 2

去http://zhshijie.myetang.com/source/chinese/netware/
下载一个Winsock_cool.zip的程序，该能满足您的要求