具体的理论只是,参考 点击打开链接的上一部分
服务器端
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 In