VB中一个服务器和多个客户端的程序

具体的理论只是，参考  点击打开链接的上一部分

服务器端

Private Sub Command1_Click()
    Dim strSend As String
    strSend = Text2.Text
    Sock(1).SendData strSend
End Sub

Private Sub Command2_Click()
    Command2.Caption = Sock(0).RemoteHostIP
End Sub

Private Sub Form_Load()
    'Load Sock(0)
    Listener.LocalPort = 8000   '端口号
    Listener.Listen             '开始侦听
End Sub

Private Sub Listener_ConnectionRequest(ByVal requestID As Long)
    Dim SockIndex As Integer
    SockIndex = 200
    Dim i As Integer?
    '遍历控件
    For i = 0 To Sock.UBound
        If Sock(i).State = 0 Then SockIndex = i
    Next
    If SockIndex = 200 Then
        Load Sock(Sock.UBound + 1)
        SockIndex = Sock.UBound
    End If
    '接受请求
    Sock(SockIndex).Accept (requestID)
End Sub

Private Sub Sock_Close(Index As Integer)
    If Sock(Index).State <> sckClosed Then
        Sock(Index).Close
    End If
End Sub
      
Private Sub Sock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim strGet As String 
    '接收字符串并写入text中
    Sock(Index).GetData strGet
    Text1.Text = strGet
End Sub 
    ------------------------------------------------------------------

客户端

Private Sub Command1_Click()
    Dim strSet As String
    strSet = Text2.Text
    Winsock1.SendData strSet
End Sub

Private Sub Command2_Click()
    Me.Winsock1.RemoteHost = "10.1.51.150"
    Me.Winsock1.RemotePort = 8000
    Me.Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strGet As String
    '接收字符串并写入Text1控件中
    Winsock1.GetData strGet
    Text1.Text = strGet
End Sub

Private Sub Form_Load()
    
End Sub