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 Soc