该博客介绍了如何使用Visual Basic(VB)编写一个服务器程序，该服务器可以处理多个客户端的连接请求。服务器端通过监听特定端口8000，当接收到连接请求时，会接受新的客户端连接。客户端则通过指定服务器的IP地址和端口号进行连接，并发送数据。服务器端接收到数据后，将数据显示在文本框中。
具体的理论只是，参考 点击打开链接的上一部分
服务器端
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
最低0.47元/天 解锁文章
786
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
