VB.NET SOCKET调试助手代码

VB.NET中的Socket调试助手通常是一个用于测试网络通信的小型应用程序。这个应用程序可以通过Socket编程来发送和接收数据。以下是使用VB.NET实现Socket调试助手的基本代码框架，包括创建客户端和服务端的简单示例：

Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Module SocketDebugHelper

    ' 创建一个异步Socket客户端示例
    Sub CreateSocketClient()
        Dim client As New TcpClient()
        Try
            client.Connect("服务器IP地址", "端口号")
            Dim stream As NetworkStream = client.GetStream()

            ' 发送数据
            Dim message As String = "Hello, Server!"
            Dim data As Byte() = Encoding.ASCII.GetBytes(message)
            stream.Write(data, 0, data.Length)

            ' 接收响应
            Dim responseData(data.Length) As Byte
            Dim bytes As Int32 = stream.Read(responseData, 0, responseData.Length)
            Dim responseDataString As String = Encoding.ASCII.GetString(responseData, 0, bytes)
            Console.WriteLine("Received: {0}", responseDataString)

            stream.Close()
            client.Close()
        Catch ex As Exception
            Console.WriteLine("SocketException: {0}", ex.ToString())
        End Try
    End Sub

    ' 创建一个异步Socket服务端示例
    Sub CreateSocketServer()
        Dim localPort As Integer = 13000
        Dim server As New TcpListener(IPAddress.Any, localPort)

        Try
            server.Start()
            Console.WriteLine("Server started. Waiting for a connection...")

            ' 等待连接
            Dim client As TcpClient = server.AcceptTcpClient()
            Console.WriteLine("Connected.")

            Dim stream As NetworkStream = client.GetStream()

            ' 接收数据
            Dim buffer(1024) As Byte
            Dim bytesRead As Int32 = stream.Read(buffer, 0, buffer.Length)
            Dim receivedData As String = Encoding.ASCII.GetString(buffer, 0, bytesRead)
            Console.WriteLine("Received: {0}", receivedData)

            ' 发送响应
            Dim response As String = "Hello, Client!"
            Dim respBytes As Byte() = Encoding.ASCII.GetBytes(response)
            stream.Write(respBytes, 0, respBytes.Length)

            ' 清理
            stream.Close()
            client.Close()
        Catch ex As Exception
            Console.WriteLine("SocketException: {0}", ex.ToString())
        Finally
            server.Stop()
        End Try
    End Sub

    Sub Main()
        ' 选择运行客户端或服务端
        ' CreateSocketClient()
        CreateSocketServer()
    End Sub

End Module

在上述代码中，我们定义了两个方法：`CreateSocketClient`和`CreateSocketServer`。这两个方法分别创建了一个Socket客户端和服务端。服务端使用`TcpListener`来监听端口，并接受连接。客户端使用`TcpClient`连接到服务端。双方都可以发送和接收字符串消息。这个示例仅展示了最基本的Socket通信，实际应用中可能需要更多的错误处理和功能实现。