基于Socket的简易聊天室（vb.net代码详细讲解，源代码下载）

**基于Socket的简易聊天室**

在网络编程中，Socket是最基本也是最重要的一种通信机制。它允许不同进程或线程之间进行数据交换。在这个教程中，我们将使用VB.NET语言来实现一个基于Socket的简易聊天室。

**项目背景**

我们要实现的一个简易聊天室应该具备以下功能：

* 支持多人在线* 支持实时消息传递* 支持用户登录和注销**项目结构**

为了方便管理，我们将这个项目分为几个模块：

* **Server**:负责处理客户端的连接、消息接收和广播。
* **Client**:负责向服务器发送消息并接收来自其他客户端的消息。

**Server代码**

首先，我们需要在服务器端建立一个Socket监听器，来等待客户端的连接。我们使用VB.NET语言来实现这个功能：

vbnetImports System.Net.SocketsImports System.TextPublic Class Server Inherits System.Windows.Forms.Form Private server As New TcpListener(System.Net.IPAddress.Any,12345)
 Private client As TcpClient Private Sub Server_Load(sender As Object, e As EventArgs) Handles MyBase.Load '启动服务器监听器 server.Start()
 Console.WriteLine("Server started. Listening for incoming connections...")

 '等待客户端连接 client = server.AcceptTcpClient()
 Console.WriteLine("Client connected.")

 '开始处理消息 HandleMessage()
 End Sub Private Sub HandleMessage()
 Dim stream As NetworkStream = client.GetStream()

 While True Try '读取来自客户端的消息 Dim message As String = ReadMessage(stream)
 Console.WriteLine("Received message from client: " & message)

 '广播消息给其他客户端 BroadcastMessage(message, stream)
 Catch ex As Exception Console.WriteLine("Error handling message: " & ex.Message)
 Exit While End Try End While End Sub Private Function ReadMessage(stream As NetworkStream) As String Dim buffer As Byte() = New Byte(1024) {}
 stream.Read(buffer,0, buffer.Length)

 Return Encoding.UTF8.GetString(buffer).Trim()
 End Function Private Sub BroadcastMessage(message As String, stream As NetworkStream)
 '向其他客户端广播消息 For Each client In GetConnectedClients()
 Dim broadcastStream As New NetworkStream(client.GetStream())
 WriteMessage(broadcastStream, message)
 Next End Sub Private Function GetConnectedClients() As TcpClient()
 Return Array.FindAll(GetAllClients(), Function(c) c.Connected)
 End Function Private Function GetAllClients() As TcpClient()
 '获取所有连接的客户端 Dim clients As TcpClient() = New TcpClient().ToList.ToArray()

 For Each client In clients If Not client.Connected Then Array.Remove(client, clients)
 End If Next Return clients End Function Private Sub WriteMessage(stream As NetworkStream, message As String)
 Dim buffer As Byte() = Encoding.UTF8.GetBytes(message & vbCrLf)
 stream.Write(buffer,0, buffer.Length)
 End SubEnd Class

vbnetImports System.Net.SocketsPublic Class Client Inherits System.Windows.Forms.Form Private client As New TcpClient()

 Private Sub Client_Load(sender As Object, e As EventArgs) Handles MyBase.Load '连接服务器 client.Connect(System.Net.IPAddress.Loopback,12345)
 Console.WriteLine("Connected to server.")

 '开始处理消息 HandleMessage()
 End Sub Private Sub HandleMessage()
 Dim stream As NetworkStream = client.GetStream()

 While True Try '读取来自服务器的消息 Dim message As String = ReadMessage(stream)
 Console.WriteLine("Received message from server: " & message)

 '处理消息 ProcessMessage(message)
 Catch ex As Exception Console.WriteLine("Error handling message: " & ex.Message)
 Exit While End Try End While End Sub Private Function ReadMessage(stream As NetworkStream) As String Dim buffer As Byte() = New Byte(1024) {}
 stream.Read(buffer,0, buffer.Length)

 Return Encoding.UTF8.GetString(buffer).Trim()
 End Function Private Sub ProcessMessage(message As String)
 '处理消息 Console.WriteLine("Processing message: " & message)
 End Sub Private Sub SendMessage(message As String)
 Dim stream As NetworkStream = client.GetStream()

 WriteMessage(stream, message)
 End Sub Private Sub WriteMessage(stream As NetworkStream, message As String)
 Dim buffer As Byte() = Encoding.UTF8.GetBytes(message & vbCrLf)
 stream.Write(buffer,0, buffer.Length)
 End SubEnd Class