Socket 客戶端與服務端對話工具

核心代碼：

Private Sub RunServer()
        Dim ConClient As Socket
        Dim strClientName As String = ""
        Dim bCExist As Boolean    '客戶端是否已經在列表中

        Dim ClientIpEP As IPEndPoint

        Dim CNetWorkStream As NetworkStream
        Dim Reader As BinaryReader

        Do
            bCExist = False
            ConClient = CTcpListener.AcceptSocket    '接收客戶端的連接，返回一個socket

            SentButton.Enabled = True
            Try
                ClientIpEP = CType(ConClient.RemoteEndPoint, IPEndPoint) '獲取socket的ipendpoint
                strClientName = Dns.GetHostEntry(ClientIpEP.Address).HostName  '獲取客戶端的名稱
            Catch ex As SocketException
                ClientIpEP = Nothing
                MessageBox.Show(ex.Message)
                Continue Do
            End Try

            '檢測該客戶端是否已在列表中
            Dim strName As String = ""

            For Each strName In ClientListBox.Items
                If String.Compare(strClientName, strName) = 0 Then
                    bCExist = True
                    'Exit For '存在則退出查找
                End If
            Next

            ' 客戶列表中添加客戶
            If bCExist = False Then
                ClientListBox.Items.Add(strClientName)
                HistoryRichText.SelectionColor = Color.Green
                HistoryRichText.AppendText(strClientName & "　加入會話" & vbCrLf)
                HistoryRichText.ScrollToCaret()
                Continue Do
            End If

            Try
                CNetWorkStream = New NetworkStream(ConClient)
                Reader = New BinaryReader(CNetWorkStream)
                HistoryRichText.SelectionColor = Color.Blue
                HistoryRichText.AppendText(strClientName & "說" & vbCrLf)
                HistoryRichText.SelectionColor = Color.Black
                HistoryRichText.AppendText(Reader.ReadString() & vbCrLf)
                HistoryRichText.ScrollToCaret()
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                ClientIpEP = Nothing
                CNetWorkStream = Nothing
                Reader = Nothing
            End Try
            ConClient.Disconnect(True) ' 關閉套接字
        Loop
        System.Environment.Exit(System.Environment.ExitCode)
    End Sub