VB.NET笔记 SOCKET

最新推荐文章于 2025-06-09 11:27:38 发布

原创最新推荐文章于 2025-06-09 11:27:38 发布 · 1.2k 阅读

3 ·

CC 4.0 BY-SA版权

VB.NET 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个简易的TCP服务器与客户端的实现方法，通过使用Socket编程技术完成数据的发送与接收。服务器监听本地127.0.0.1的11000端口，并接受来自客户端的数据，客户端则连接到该地址并发送消息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Imports System.Net
'Imports System.Net.Sockets
Imports System.Threading
Imports System.Text

Public Class Form1
    Public Delegate Sub addtext(ByVal a As String)
    Dim listener As New Sockets.Socket(Sockets.AddressFamily.InterNetwork, Sockets.SocketType.Stream, 
                                                                                        Sockets.ProtocolType.Tcp)
    Private Sub server_Click(sender As System.Object, e As System.EventArgs) Handles server.Click
        Dim ipAddress1 As IPAddress = IPAddress.Parse("127.0.0.1")
        Dim localEndPoint As New IPEndPoint(ipAddress1, 11000)
        listener.Bind(localEndPoint)
        listener.Listen(10)
        Dim t1 As Thread = New Thread(AddressOf rec)
        t1.Start()
    End Sub
    Sub rec()
        Dim bytes() As Byte
        Dim handler As Sockets.Socket = listener.Accept() '建立连接请求
        Dim data As String = Nothing
        bytes = New Byte(1024) {}
        Dim bytesRec As Integer = handler.Receive(bytes) '接收数据 
        If bytesRec > 0 Then
            data = Encoding.Unicode.GetString(bytes, 0, bytesRec)
            addmess(data)
        Else
        Exit Sub
        End If
        handler.Shutdown(Sockets.SocketShutdown.Both)
        handler.Close()
    End Sub
    Sub addmess(ByVal a As String)
        If TextBox1.InvokeRequired Then
            Dim d As addtext = New addtext(AddressOf addmess)
            TextBox1.Invoke(d, a)
        Else
            TextBox1.Text = a
        End If
    End Sub
    Private Sub client_Click(sender As System.Object, e As System.EventArgs) Handles client.Click
        Dim bytes(1024) As Byte '声明字节数组 
        Dim sender1 As New Sockets.Socket(Sockets.AddressFamily.InterNetwork, Sockets.SocketType.Stream, Sockets.ProtocolType.Tcp)
        '初始化socket 
        Dim msg As Byte() = Encoding.Unicode.GetBytes("TextBox1.Text")
        '对发送的数据进行编码 
        '*************************** 
        '指定ip和端口 
        Dim ipAddress1 As IPAddress = IPAddress.Parse("127.0.0.1")
        Dim ipe As New IPEndPoint(ipAddress1, 11000)
        '********************** 
        sender1.Connect(ipe) '建立连接 
        Dim bytesSent As Integer = sender1.Send(msg) '发送数据 
        '关闭socket 
        sender1.Shutdown(Sockets.SocketShutdown.Both)
        sender1.Close()
    End Sub
End Class