flexible_84682

Socket 客户端与服务端对话工具：Private Sub RunServer() Dim ConClient As Socket Dim strClientName As String = "" Dim bCExist As Boolean '客户端是否已经在列表中 D