VB.net学习笔记之聊天工具Server端：System.Net.Sockets

最新推荐文章于 2024-07-10 09:14:45 发布

DoubleVoid

最新推荐文章于 2024-07-10 09:14:45 发布

阅读量1.3k

点赞数

分类专栏： VB.net 文章标签： vb.net server socket 聊天工具

本文链接：https://blog.csdn.net/Rapheal_jy/article/details/39552943

版权

这篇博客是VB.NET学习笔记的一部分，主要讲解如何创建一个聊天工具的Server端，利用System.Net.Sockets库来实现端口监听和消息处理功能。

摘要由CSDN通过智能技术生成

新开一个博客，把以前学习的笔记整理整理，防止忘记

1.变量定义：

    Dim sender1 As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp) '用来处理发送和接收消息的Socket实例
    Dim bytes(1024) As Byte
    Dim msg As Byte()           '发送的消息
    Dim bytesRec As Integer     '接收到的数据的长度
    Dim sbytes(1024) As Byte    '接收到的数据流
    Dim data As String = Nothing '处理后的接收到的消息
    Dim t As System.Threading.Thread

2.打开并监听端口：

    '启动监听
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Control.CheckForIllegalCrossThreadCalls = False
        Me.Text = "Connect to the Client..."
        Button1.Text = "监听中..."
        Dim t As System.