.net中的socket异步通信实现

.net中的socket异步通信实现--服务器端代码


项目的需求是这样的：
1.需要能够实现多个工作站互相进行异步数据传输
2.能够根据不同工作站的配置情况选择从哪个工作站申请数据
3.能够及时收获各工作站的配置变更和在线情况
4.收到的数据信息量较大，需要进行处理后送到其他模块备用。
根据这些需求让我觉得我要做的这部分程序有点像QQ的功能，因此我需要在服务器端程序建立一个服务程序。
各工作站通过服务程序获得其他工作站的在线列表和每个工作站的配置信息，所有工作站的配置一旦更新，全部上传到服务器端保留。

Imports System.ServiceProcess
Imports System.Net.Sockets
Imports System.Net
Imports System.Threading
Imports System.Collections
Imports System.Text
Imports System.IO

Public Class Server
    Inherits System.ServiceProcess.ServiceBase

#Region "全局变量"
    Dim ServerSocket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
    Dim ipep As IPEndPoint = New IPEndPoint(IPAddress.Any, 11000)
    Dim htUserList As New Hashtable  '用来保存在线用户和用户的"IP和端口" 
    Dim userName(0) As String
    Dim userIPEP(0) As IPEndPoint
    Dim userTime(0) As Integer
    Dim DataServerInfor(0) As String
    Dim DataServerSaveEnd(0) As Boolean
    Dim timerDelegate As New TimerCallback(AddressOf onLineTimeOut)
    Dim sw As StreamWriter
    Dim movelenth As Integer = 512 '最大为512，乘以2为传送的最大字节数：1024
    Private Shared LongSendID As Integer = 0
    Private LongSendMax As Integer = 50
    Private dealing As Boolean = False
    Private ReceiveDataList As DataQueue
#End Region

#Region "参数"

    '以下是客户端到服务器端的消息开头 
    Const LOGININ As String = "10" '请求登陆的消息|||消息形式:10+自己的用户名 
    Const LOGINOUT As String = "11" '请求登出的消息|||消息形式:11+自己的用户名 
    Const GETULIST As String = "12" '请求获得在线用户列表|||消息形式:12 
    Const P2PCONN As String = "13" '请求P2P连接的消息|||消息形式:13+自己的用户名+|+对方的用户名 
    Const HOLDLINE As String = "14" '保持连接.|||消息开式:14+自己的用户名 

    '以下是服务器到客户端的消息开头 
    Const HVUSER As String = "20" '用户名已存在 
    Const GETUSER As String = "21" '在线用户列表|||消息格式:21+用户名+EP 
    Const MAKHOLD As String = "22" '打洞命令|||消息格式:22+IP 
    Const LOGINOK As String = "23" '登陆成功 
    Const SERVCLS As String = "24" '服务器关闭 
    Const MSGEND As String = "25" '消息结束 
    Const ONEOFF As String = "26" '一个客户端下线

    '以下是服务器端的命名 
    Const EXITPRO As String = "EXIT" '退出命令 
    Const SHOWULIST As String = "SHOWUSER" '显示在线用户 
    Const HELP As String = "HELP" '显示帮助 

    '以下是工作站发送给服务器的消息开头：
    Const RECDEVINFO As String = "45" '工作站发送给服务器的设备配置信息

    '以下是ICU客户端发送给本服务器程序的命令：
    Const GETDATASERVER As String = "50"        '获取当前在线的数据服务器（即工作站）
    Const SHOWDATASERVER As String = "51"       '将在线的数据服务器
    Const GETDSERVERINFOR As String = "52"      '获取某个数据服务器的配置信息

#End Region

#Region " 组件设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        ' 该调用是组件设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    'UserService 重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' 进程的主入口点
    <MTAThread()> _
    Shared Sub Main()
        Dim ServicesToRun() As System.ServiceProcess.ServiceBase

        ' 在同一进程中可以运行不止一个 NT 服务。若要将
        ' 另一个服务添加到此进程，请更改下行以
        ' 创建另一个服务对象。例如，
        '
        '   ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
        '
        ServicesToRun = New System.ServiceProcess.ServiceBase() {New Server}
        System.ServiceProcess.ServiceBase.Run(ServicesToRun)
    End Sub

    '组件设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是组件设计器所必需的
    ' 可以使用组件设计器修改此过程。
    ' 不要使用代码编辑器修改它。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        '
        'Server
        '
        Me.ServiceName = "Cyber Service"

    End Sub

#End Region

    Protected Overrides Sub OnStart(ByVal args() As String)
        ' 在此处添加启动服务的代码。此方法应设置具体的操作
        ' 以便服务可以执行它的工作。
        '获得服务器的IP地址
        Try
            sw = New StreamWriter("C:\log.log", True)       '开启log文件
            '获取第一个可用网卡作为传输用：
            Dim addressList As System.Net.IPAddress() = Dns.GetHostByName(Dns.GetHostName()).AddressList
            Dim ServerIP As IPAddress = addressList(0)
            ServerSocket.Bind(ipep) '绑定此地址和端口
            ReceiveDataList = New DataQueue
            Dim listenTH As New Thread(AddressOf listen)
            listenTH.Start() '启用监听的线程 
            WriteLog("服务器启动成功：" & Now.ToString)
            Dim timer As New Timer(timerDelegate, Nothing, 0, 5000)
        Catch ex As Exception
            WriteLog("OnStart:" & Err.Description)
        End Try
    End Sub

    Protected Overrides Sub OnStop()
        ' 在此处添加代码以执行停止服务所需的关闭操作。
        sw.Write("服务器正常退出：" & Now.ToString & Chr(10) & Chr(13))
        sw.Flush()
        sw.Close()
        sw = Nothing
    End Sub

    '服务器监听函数
    Sub listen()
        While True      '无限循环侦听
            Try
                Dim recv As Integer = 0
                Dim data As [Byte]() = New Byte(1024) {}
                Dim sender As New IPEndPoint(IPAddress.Any, 0)
                Dim tempRemoteEP As EndPoint = CType(sender, EndPoint)
                recv = ServerSocket.ReceiveFrom(data, tempRemoteEP)         '从缓冲区中获取收到的信息
                Dim tmpdata As New DeclearData(data, tempRemoteEP, recv)    '装进信息块中
                ReceiveDataList.AddItem(tmpdata)                            '将信息块装进本程序自己的缓冲区
                If Not dealing Then
                    Dim dealdatathread As New Thread(AddressOf DealData)
                    dealdatathread.Name = "dealdata"
                    dealdatathread.Start()
                End If
            Catch e As Exception
                Dim OutPutString As String = ""
                OutPutString = "Error: " & Err.Description
                WriteLog(OutPutString)
                OutPutString = ""
            End Try
        End While
    End Sub

    Private Sub DealData()
        If Not dealing Then
            dealing = True
            Dim tmpdata As DeclearData
            While ReceiveDataList.count > 0
                Try
                    tmpdata = ReceiveDataList.GetFirstItem
                    '可以侦听到的命令：
                    Debug.WriteLine("收到：" & tmpdata.datastr)
                    Dim msgHead As String = tmpdata.datastr.Substring(0, 2)
                    Select Case msgHead
                        Case LOGININ        '登录：
                            userLogin(tmpdata.datastr, tmpdata.fromip)
                        Case LOGINOUT       '注销：
                            userloginout(tmpdata.datastr)
                        Case GETULIST       '获得当前在线人名单：
                            Dim userinfo As String = getUserList()
                            sendMsg(userinfo, tmpdata.fromip)
                            WriteLog("<" & Now.ToString & " IP: " & tmpdata.fromip.ToString & " Ope:获取在线人员名单>")
                        Case P2PCONN        '向其它用户发送消息
                            questP2PConn(tmpdata.datastr)
                        Case HOLDLINE       '表示该用户仍然在线
                            holdOnLine(tmpdata.datastr)
                        Case GETDATASERVER  '某个客户端请求当前在线的设备列表
                            ShowDataServerOnLine(tmpdata.fromip)
                        Case RECDEVINFO         '某个工作站发送来了设备的信息：
                            ReceiveDataServerInfor(tmpdata.datastr, tmpdata.fromip)
                        Case GETDSERVERINFOR
                            SendDeviceInforToClient(tmpdata.datastr, tmpdata.fromip)
                        Case Else
                            WriteLog("未知信息：" & tmpdata.datastr)
                    End Select
                Catch ex As Exception
                    Debug.WriteLine("错误的数据：" & tmpdata.datastr)
                    Debug.WriteLine("DealData:" & Err.Description)
                    WriteLog("错误的数据：" & tmpdata.datastr)
                    WriteLog("DealData:" & Err.Description)
                Finally
                    ReceiveDataList.Remove()
                End Try
            End While
            dealing = False
        End If
    End Sub

    '接收到某个客户端发送的配置信息
    '这个信息存放在服务器端，所有客户端从服务器端获取设备信息
    '不存在多点接收的问题，因为是根据工作站来分流的
    Private Sub ReceiveDataServerInfor(ByVal data As String, ByVal tempremoteep As IPEndPoint)
        Dim i As Integer
        Dim flag As String = data.Substring(2, 1)
        Dim infodata As String = data.Substring(3, data.Length - 3)
        For i = 0 To userIPEP.Length - 1
            If (Not userName(i) Is Nothing) AndAlso (Not userIPEP(i) Is Nothing) AndAlso userName(i).IndexOf("DataServer") = 0 Then     '是在线的工作站
                If userIPEP(i).ToString.Equals(tempremoteep.ToString) Then                                              '的确是这个工作站发送来的
                    If DataServerSaveEnd(i) And flag = "0" Then          '判断是否为更换信息的第一波数据
                        DataServerSaveEnd(i) = False                     '以后的只能追加
                        DataServerInfor(i) = infodata
                    Else
                        DataServerInfor(i) &= infodata
                    End If
                    If flag = "1" Then
                        DataServerSaveEnd(i) = True                              '信息已经接收结束
                        SendDeviceInforToClient(i)                               '将这个工作站的配置信息发送给所有客户端
                        WriteLog("收到配置信息，来自:" & userName(i))
                    End If
                    Exit Sub
                End If
            End If
        Next
    End Sub

    '将某个工作站的配置信息发送给所有客户端
    '格式：45+登录名+|+配置信息
    Private Sub SendDeviceInforToClient(ByVal index As Integer)
        Try
            Dim i As Integer
            Dim tmpstr As String = RECDEVINFO & userName(index) & "|" & DataServerInfor(index)
            For i = 0 To userName.Length - 1
                If (Not userName(i) Is Nothing) AndAlso (Not userIPEP(i) Is Nothing) AndAlso userName(i).IndexOf("DataClient") = 0 Then     '是在线的客户端
                    SendlangData(tmpstr, userIPEP(i))
                End If
            Next
            WriteLog("向所有客户端发送" & userName(index) & "的配置信息")
            index = Nothing
            tmpstr = Nothing
        Catch ex As Exception
            WriteLog("SendDeviceInforToClient1: " & Err.Description)
        End Try
    End Sub

    '将所有工作站的配置信息发送给某个客户端
    '格式：45+登录名+|+配置信息
    Private Sub SendDeviceInforToClient(ByVal TheClient As IPEndPoint)
        Try
            Dim i As Integer
            Dim tmpstr As String
            For i = 0 To userName.Length - 1
                If (Not userName(i) Is Nothing) AndAlso (Not userIPEP(i) Is Nothing) AndAlso userName(i).IndexOf("DataServer") = 0 AndAlso DataServerSaveEnd(i) = True Then
                    '是在线的工作站
                    tmpstr = RECDEVINFO & userName(i) & "|" & DataServerInfor(i)
                    SendlangData(tmpstr, TheClient)     '将本工作站的数据配置信息发送给这个客户端
                    WriteLog("向" & TheClient.ToString & "发送工作站 " & userName(i) & " 的配置信息")
                End If
            Next
            tmpstr = Nothing
            TheClient = Nothing
        Catch ex As Exception
            WriteLog("SendDeviceInfoToClient2: " & Err.Description)
        End Try
    End Sub

    '将某个工作站的配置信息发送给所有客户端
    Private Sub SendDeviceInforToClient(ByVal ServerName As String, ByVal TheClient As IPEndPoint)
        Try
            Dim i As Integer
            Dim tmpstr As String = RECDEVINFO
            ServerName = ServerName.Substring(2, ServerName.Length - 2)
            For i = 0 To userName.Length - 1
                If (Not userName(i) Is Nothing) AndAlso (Not userIPEP(i) Is Nothing) AndAlso userName(i) = ServerName Then
                    SendlangData(tmpstr & userName(i) & "|" & DataServerInfor(i), TheClient)
                    WriteLog("向" & TheClient.ToString & "发送工作站" & userName(i) & " 的配置信息")
                    Exit Sub
                End If
            Next
            ServerSocket.SendTo(Encoding.Unicode.GetBytes(RECDEVINFO & "NoInfor " & ServerName), TheClient)
        Catch ex As Exception
            WriteLog("SendDeviceInforToClient3:" & Err.Description)
        End Try
    End Sub

    '将大量数据分包发送的函数
    '除了短小的命令，其他的都用此函数发送
    '这个函数仅仅服务器程序能用
    '格式：头+编号+|+开始/结束标志+内容
    Private Sub SendlangData(ByVal tmpstr As String, ByVal sendtoep As IPEndPoint)
        Try
            Dim head As String              '标头
            Dim TempSend As String          '暂时发送内容
            Dim sendBytes() As Byte         '用于发送的字节数组
            '#用于防止多个本程序向同一个客户端发送有同样标头的内容而进行的屏蔽
            '#若sendid相同，则说明是同一个信息的不同部分段
            Dim sendid As Integer
            '###################################################
            Dim datalength As Integer       '允许传送的字符串最大长度
            If LongSendID < LongSendMax Then                                    '同时能够容纳LongSendMax个设备更新他们的信息
                sendid = LongSendID
                LongSendID += 1
            Else
                sendid = 0
                LongSendID = 0
            End If
            head = tmpstr.Substring(0, 2)                                       '获取头信息，例如：RECDEVINFO
            head &= sendid & "|"                                                '头+编号+|
            tmpstr = tmpstr.Substring(2)
            datalength = movelenth - head.Length - 1                            '获取数据段的最大长度
            If tmpstr.Length > datalength Then
                '原始数据的长度太长，需要进行分段发送，这里是第一段：
                TempSend = head & "0" & tmpstr.Substring(0, datalength)         '添加0，表示数据的起始
                tmpstr = tmpstr.Substring(datalength, tmpstr.Length - datalength)
                sendBytes = Encoding.Unicode.GetBytes(TempSend)
                ServerSocket.SendTo(sendBytes, sendtoep)
                Thread.Sleep(100)
            End If
            '经过一次分割后，如果剩下的部分长度仍然超过最大限度，需要继续切割，直到长度小于最大长度（datalength）：
            While tmpstr.Length > datalength                                    '如果数据大小大于可以发送的字节数，则拆分
                '发送：
                TempSend = head & "2" & tmpstr.Substring(0, datalength)         '添加2，表示数据未结束，是中间段
                tmpstr = tmpstr.Substring(datalength, tmpstr.Length - datalength)
                sendBytes = Encoding.Unicode.GetBytes(TempSend)
                ServerSocket.SendTo(sendBytes, sendtoep)
                Thread.Sleep(100)
            End While
            If tmpstr.Length >= 0 Then                                           '发送最后一段信息
                TempSend = head & "1" & tmpstr
                sendBytes = Encoding.Unicode.GetBytes(TempSend)
                ServerSocket.SendTo(sendBytes, sendtoep)
                Thread.Sleep(100)
            End If
            tmpstr = Nothing
            sendtoep = Nothing
            head = Nothing
            TempSend = Nothing
            sendBytes = Nothing
            sendid = Nothing
            datalength = Nothing
        Catch ex As Exception
            WriteLog("SendlangData: " & Err.Description)
        End Try
    End Sub

    '某个客户端要求获取当前在线的工作站列表：
    '将所有在线工作站以：名称;IP|名称;IP 的形式发送 
    Private Sub ShowDataServerOnLine(ByVal ToEP As IPEndPoint)
        Try
            Dim i As Integer
            Dim flag As Boolean = False
            Dim tmpstr As String = SHOWDATASERVER
            If Not userName Is Nothing Then
                For i = 0 To userName.Length - 1
                    '遍历所有在线的数据服务器：
                    If (Not userName(i) Is Nothing) AndAlso (Not userIPEP(i) Is Nothing) AndAlso userName(i).IndexOf("DataServer") = 0 Then
                        tmpstr &= userName(i) & ";" & userIPEP(i).Address.ToString & "|"
                        flag = True
                    End If
                Next
            End If
            If flag Then
                tmpstr = tmpstr.Substring(0, tmpstr.Length - 1)
            Else
                tmpstr = SHOWDATASERVER
            End If
            SendlangData(tmpstr, ToEP)
            WriteLog("向" & ToEP.ToString & "发送数据服务器在线列表")
            tmpstr = Nothing
            ToEP = Nothing
            i = Nothing
            flag = Nothing
        Catch ex As Exception
            WriteLog("ShowDataServerOnLine:" & Err.Description)
        End Try
    End Sub

    '转发P2P连接请求 
    Private Sub questP2PConn(ByVal data As String)
        Dim OutPutString As String = ""
        Dim recvStr As String = data.Substring(2, data.Length - 2) 'Encoding.Unicode.GetString(data, 4, recv - 4)
        Dim split() As String = recvStr.Split("|")
        Dim fromEP As IPEndPoint
        Dim toEP As IPEndPoint
        Dim i As Integer
        For i = 0 To userName.Length - 1
            If userName(i) = split(0) Then
                fromEP = userIPEP(i)
            End If
            If userName(i) = split(1) Then
                toEP = userIPEP(i)
            End If
        Next
        OutPutString &= "<" & Now.ToString & " IP: " & fromEP.ToString & " 向 " & "IP:" & toEP.ToString & " 请求连接>"
        Dim holdbytes() As Byte = Encoding.Unicode.GetBytes(MAKHOLD & fromEP.ToString)
        ServerSocket.SendTo(holdbytes, toEP)
        WriteLog(OutPutString)
    End Sub

    '函数.返回所有在线用户.其格式:用户名+|+用户IPEP+| 
    Private Function getUserList() As String
        Dim userInfo As String = GETUSER
        Dim i As Integer
        For i = 0 To userName.Length - 1
            If userName(i) <> "" Then
                userInfo += userName(i) & "|" & userIPEP(i).ToString & "|"
            End If
        Next
        Return userInfo
    End Function

    '用户登陆,直接返回登陆是否成功的值
    '向所有节点报告本次登陆信息
    '如果是客户端，则向其发送所有工作站的配置信息
    Private Sub userLogin(ByVal data As String, ByVal userEP As IPEndPoint)
        Try
            Dim OutPutString As String = ""
            Dim Uname As String = data.Substring(2, data.Length - 2).Trim
            Dim Uinfobytes() As Byte
            Dim i As Integer
            Dim j As Integer
            OutPutString &= "<" & Now.ToString & " IP:" & userEP.ToString & " Ope:Login"
            For i = 0 To userName.Length - 1
                If (Not userName(i) Is Nothing) AndAlso Uname = userName(i) Then      '用户名存在，依然算作登录成功
                    Uinfobytes = Encoding.Unicode.GetBytes(LOGININ & userName(i) & "|" & userIPEP(i).ToString)
                    OutPutString &= "重复登录>"
                    WriteLog(OutPutString)
                    If Uname.IndexOf("DataClient") = 0 Then
                        userIPEP(i) = New IPEndPoint(userEP.Address, 5556)
                    ElseIf Uname.IndexOf("DataServer") = 0 Then
                        userIPEP(i) = New IPEndPoint(userEP.Address, 5555)
                    Else
                        userIPEP(i) = userEP
                    End If
                    userTime(i) = 60
                    DataServerSaveEnd(i) = True
                    DataServerInfor(i) = ""
                    For j = 0 To userName.Length - 1
                        If userName(j) <> "" And userName(j) <> Uname Then
                            ServerSocket.SendTo(Uinfobytes, userIPEP(j))
                        End If
                    Next
                    OutPutString &= Uname.Trim & " 登录成功！>"
                    WriteLog(OutPutString)
                    sendMsg(LOGINOK, userEP)
                    Exit Sub
                End If
            Next
            '没有找到与这个用户名一致的在线用户，说明是头一次登陆到本服务器
            For i = 0 To userName.Length - 1    '用户登录成功，向客户端发送用户登录成功消息
                If userName(i) = "" Then        '如果之前有的用户退出，则将新的用户名插入到它的位置上 
                    userName(i) = Uname
                    userIPEP(i) = userEP
                    userTime(i) = 60
                    DataServerSaveEnd(i) = True
                    DataServerInfor(i) = ""
                    Uinfobytes = Encoding.Unicode.GetBytes(LOGININ & userName(i) & "|" & userIPEP(i).ToString)
                    For j = 0 To userName.Length - 1
                        If userName(j) <> "" And userName(j) <> Uname Then
                            ServerSocket.SendTo(Uinfobytes, userIPEP(j))
                        End If
                    Next
                    OutPutString &= Uname.Trim & " 登录成功！>"
                    WriteLog(OutPutString)
                    sendMsg(LOGINOK, userEP)
                    Exit Sub
                End If
            Next        '之前用户名全满：需要重新定义用户名数组
            Dim userCount As Integer = userName.Length
            ReDim Preserve userName(userCount)
            ReDim Preserve userIPEP(userCount)
            ReDim Preserve userTime(userCount)
            ReDim Preserve DataServerSaveEnd(userCount)
            ReDim Preserve DataServerInfor(userCount)
            userName(userName.Length - 1) = Uname
            userIPEP(userIPEP.Length - 1) = userEP
            userTime(userTime.Length - 1) = 60
            DataServerSaveEnd(DataServerSaveEnd.Length - 1) = True
            DataServerInfor(DataServerInfor.Length - 1) = ""
            Uinfobytes = Encoding.Unicode.GetBytes(LOGININ & userName(userName.Length - 1) & "|" & userIPEP(userName.Length - 1).ToString)
            For j = 0 To userName.Length - 1
                If userName(j) <> "" And userName(j) <> Uname Then
                    ServerSocket.SendTo(Uinfobytes, userIPEP(j))
                End If
            Next
            OutPutString &= Uname.Trim & " 登录成功！>"
            WriteLog(OutPutString)
            sendMsg(LOGINOK, userEP)
            Exit Sub
        Catch ex As Exception
            WriteLog("userLogin:" & Err.Description)
        End Try
    End Sub

    '用户登出 
    Private Sub userloginout(ByVal data As String)
        Dim OutPutString As String = ""
        Dim i As Integer
        Dim Uname As String = data.Substring(2, data.Length - 2)
        For i = 0 To userName.Length - 1
            If Uname = userName(i) Then
                Dim loginOutMsg As String = LOGINOUT & userName(i)
                OutPutString &= "<" & Now.ToString & " IP:" & userIPEP(i).ToString & " Ope:LogOut"
                userName(i) = ""
                userIPEP(i) = Nothing
                userTime(i) = 0
                DataServerSaveEnd(i) = True
                DataServerInfor(i) = ""
                Dim j As Integer
                For j = 0 To userName.Length - 1
                    If userName(j) <> "" Then
                        sendMsg(loginOutMsg, userIPEP(j))
                    End If
                Next
                OutPutString &= Uname & "下线了！>"
                WriteLog(OutPutString)
                Exit For
            End If
        Next
    End Sub

    '保持用户在线的过程 
    Private Sub holdOnLine(ByVal data As String)
        Dim Uname As String = data.Substring(2, data.Length - 2) 'Encoding.Unicode.GetString(data, 4, recvCount - 4)
        Dim i As Integer
        For i = 0 To userName.Length - 1
            If Uname = userName(i) Then
                userTime(i) = 60
                Exit For
            End If
        Next
    End Sub

    '用户超时退出
    '如果是客户端的超时推出，则向所有工作站发送消息：此客户端下线
    Private Sub onLineTimeOut(ByVal state As [Object])
        Dim OutPutString As String = ""
        Dim i As Integer
        For i = 0 To userName.Length - 1
            If userTime(i) > 0 Then
                userTime(i) -= 5
                If userTime(i) <= 0 Then
                    Dim loginoutmsg As String = LOGINOUT & userName(i)
                    OutPutString &= "<" & Now.ToString & " IP:" & userIPEP(i).ToString & "Ope:超时下线！>"
                    userName(i) = ""
                    userIPEP(i) = Nothing
                    DataServerSaveEnd(i) = True
                    DataServerInfor(i) = ""
                    Dim ULoginOutbytes() As Byte = Encoding.Unicode.GetBytes(loginoutmsg)
                    Dim j As Integer
                    For j = 0 To userName.Length - 1
                        If userName(j) <> "" Then
                            If userIPEP(j) Is Nothing Then
                            Else
                                ServerSocket.SendTo(ULoginOutbytes, userIPEP(j))
                            End If
                        End If
                    Next
                End If
            End If
        Next
        'WriteLog(OutPutString)
    End Sub

    '发送消息的函数 
    Sub sendMsg(ByVal msg As String, ByVal remoteEP As IPEndPoint)
        Dim sendBytes As [Byte]() = Encoding.Unicode.GetBytes(msg)
        Try
            ServerSocket.SendTo(sendBytes, remoteEP)
        Catch e As Exception
            WriteLog("sendMsg:" & Err.Description)
        End Try
    End Sub

    Sub WriteLog(ByVal msg As String)
        Debug.WriteLine(msg)
        sw.WriteLine(msg)
        sw.Flush()
    End Sub

End Class

'将数据和ip地址进行封装的数据结构--权宜之计
Public Class DeclearData
    Public datastr As String
    Public fromip As IPEndPoint

    Public Sub New(ByVal data() As Byte, ByVal ip As IPEndPoint, ByVal length As Integer)
        datastr = Encoding.Unicode.GetString(data, 0, length)
        fromip = ip
    End Sub
End Class

'数据队列--用于扩展
Public Class DataQueue
    Private datalist As ArrayList

    Public Sub New()
        datalist = New ArrayList
    End Sub

    Public ReadOnly Property count() As Integer
        Get
            Return datalist.Count
        End Get
    End Property

    Public Function AddItem(ByVal item As DeclearData) As Integer
        Return datalist.Add(item)
    End Function

    Public Function GetFirstItem() As DeclearData
        Return datalist.Item(0)
    End Function

    Public Function Remove() As Boolean
        If datalist.Count > 0 Then
            datalist.RemoveAt(0)
            Return True
        Else
            Return False
        End If
    End Function
End Class

在上一篇文章中主要介绍了socket异步通信实现的服务器端代码，下面我们来分析一下客户端代码：
那么在设计客户端代码时我们主要考虑哪些问题呢？
第一是如何接收数据，往往一次传输的数据量较大，但socket一次的传输量是1024个byte，因此需要对数据在发送端进行拆分，而在接收端进行组合。
第二是需要建立缓冲区，网络传输的速度肯定比我们处理数据的速度快。
大家如果需要使用这段代码，需要编写一下其中的ClassSetup类，该类包含每个工作站的配置信息，由于版权问题，在这里就不公开了。
客户端代码如下：

Public Class ClassServerClass ClassServer

参数#Region "参数"

    '以下是客户端到服务器端的消息开头 
    Const LOGININ As String = "10" '请求登陆的消息|||消息形式:10+自己的用户名 
    Const LOGINOUT As String = "11" '请求登出的消息|||消息形式:11+自己的用户名 
    Const GETULIST As String = "12" '请求获得在线用户列表|||消息形式:12+自己的用户名 
    Const P2PCONN As String = "13" '请求P2P连接的消息|||消息形式:13+自己的用户名+对方的用户名 
    Const HOLDLINE As String = "14" '保持连接.|||消息开式:14+自己的用户名 

    '以下是服务器到客户端的消息开头 
    Const HVUSER As String = "20" '用户名已存在 
    Const GETUSER As String = "21" '在线用户列表|||消息格式:21+用户名+EP 
    Const MAKHOLD As String = "22" '打洞命令|||消息格式:22+IP 
    Const LOGINOK As String = "23" '登陆成功 
    Const SERVCLS As String = "24" '服务器关闭 
    Const MSGEND As String = "25" '消息结束 
    Const ONEOFF As String = "26" '一个客户端下线（超时下线）
    Const SEARCHCLIENT As String = "27" '探测各个客户端是否存在

    '以下是客户端到客户端的消息开头 
    Const HOLDOK As String = "30" '打洞成功 
    Const CHATMSG As String = "31" '聊天消息 
    Const CHTMSGEND As String = "32" '聊天消息发送成功 
    Const GIVEMEDATA As String = "33" '添加数据订阅
    Const NODATASEND As String = "34" '取消数据订阅
    Const GETDEVINFO As String = "35" '获取工作站的基本信息

    '以下是工作站发送到客户端的命令：
    Const RECDEVINFO As String = "45" '工作站发送给服务器的设备配置信息
    Const DATA As String = "40"       '表示发送的是数据信息，由工作站发送给客户端

    '以下是客户端的命名 
    Const EXITPRO As String = "EXIT" '退出命令 
    Const SHOWULIST As String = "SHOWUSER" '显示在线用户 
    Const HELP As String = "HELP" '显示帮助 
    Const SEND As String = "SEND" '发送消息 

    'Const OldData As String = "40"

#End Region

全局变量#Region "全局变量"

    Delegate Sub myMethodDelegate()Sub myMethodDelegate(ByRef myInData As Byte()) '登陆时用的事件 
    Dim msgSendEnd As Boolean = False '消息是否发送成功,若发送成功,则会返回结束消息 
    Dim ThListen As New Thread(AddressOf listen) '监听的线程 
    Dim ThSend As Thread = Nothing
    Dim ClientSocket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) '客户端套节字的定义 
    Public username As String '当前用户名 
    Dim ServerEP As IPEndPoint '服务器的IPEP 
    Dim holdBytes As [Byte]() = Encoding.Unicode.GetBytes(HOLDLINE & username) '和服务器保持连接连接时用到的byte数组 
    Dim getUrecCount As Integer
    Dim testHold As Boolean = False
    Dim testChat As Boolean = False
    Private receiveDone As ManualResetEvent '在登陆时用来阻塞线程,等待收到数据 
    Private sendDone As ManualResetEvent '用来阴塞发送消息的线程.等待收到回送的确认消息  
    Private holdDone As ManualResetEvent '用来阻塞打洞时的线程 
    Private chatDone As ManualResetEvent '用来阻塞发送聊天消息时的线程 
    Public Connected As Boolean = True   '用来表示是否和服务器连接成功
    Dim timerDelegate As New TimerCallback(AddressOf holdonline) '为保持在线状态弄得 
    Private mytimer As Timer
    Public on_off As Boolean = False    '表示发送开关是否打开，有主任端连接即打开此开关，所有连接的主任端下线后即关闭
    Public SendDataList As ArrayList
    Const movelenth As Integer = 509 '最大为511，加上标志位为512，乘以2为传送的最大字节数：1024
    Private sw As StreamWriter
    Private dealing As Boolean = False
    Private ReceiveDataList As DataQueue
    '此数为减去头一个标志位（表示此段是否结束：0表示未结束；1表示结束）剩余的字符长度
#End Region

方法#Region "方法"

    Public Event SendDDIinfo(ByVal TgIP As IPEndPoint)
    Public Event NetWorkError(ByVal ErrStr As String)

    '主函数,程序入口,放到splash中运行： 
    Sub New()Sub New()
        Try
            If register.Reg.GetKey("ServerIP") = "" Then
                ServerEP = New IPEndPoint(IPAddress.Parse("127.0.0.1"), 11000)
            Else
                ServerEP = New IPEndPoint(IPAddress.Parse(register.Reg.GetKey("ServerIP")), 11000)  '正式版本专用，从注册表读取服务器地址
            End If
            sw = New StreamWriter(Directory.GetCurrentDirectory & "\DataServer.log", True)
            AddHandler SendDDIinfo, AddressOf SendBasicInfo
            '********测试专用，测试版本不读注册表，本机就是服务器！********
            'If getIdOfLocalhost() = "" Then
            '    '获取不到本机地址则退出
            '    RaiseEvent NetWorkError("找不到存在的连接")
            '    Exit Sub
            'End If
            '假设本机只有一块网卡，邦定一个ip地址和端口（5555）
            '正式版从注册表中读取GUID作为名称：
            '模拟版本获取主机名为登录名称：
            username = "DataServer " & Dns.GetHostName
            Dim LocalEP As New IPEndPoint(IPAddress.Any, 5555)
            ClientSocket.Bind(LocalEP)      '绑定本机端口
            ReceiveDataList = New DataQueue
            '根据注册表中的ServerIp，向指定的服务器端口（11000）登录：
            Dim i As Int16 = 1
            While Not Login()
                If i > 2 Then      '三次登录失败，则退出循环，直接帮定本机ip的5555端口。保证可以正常通讯
                    Me.Connected = False
                    RaiseEvent NetWorkError("登录失败！")
                    Exit While
                End If
                i += 1
            End While
            '登陆成功后.用一个timer,每隔50秒向服务器发送消息,保持在线状态跟在主机注册的端口 
            mytimer = New Timer(timerDelegate, Nothing, 10000, 50000)
            ThListen.Start()
            SendDataList = New ArrayList
        Catch ex As Exception
            Debug.WriteLine("Client_New:" & Err.Description)
        End Try
    End Sub

    '退出服务器的管理
    Public Sub ExitProcess()Sub ExitProcess()
        Try '
            sw.Close()
            sw = Nothing
            exitApp()
            ClientSocket.Close()
            mytimer.Dispose()
            ThListen.Abort()
            Debug.WriteLine("成功下线！")
        Catch ex As Exception
            Debug.WriteLine("ExitProcess中报错：" & ex.Message)
        End Try
    End Sub

    '一个工作站登陆到服务器
    Private Function Login()Function Login() As Boolean
        Try
            receiveDone = New ManualResetEvent(False)
            Dim userBytes As [Byte]()
            Dim userOK As Boolean = False
            userBytes = Encoding.Unicode.GetBytes(LOGININ & username)
            '向服务器发送客户消息 
            ClientSocket.SendTo(userBytes, ServerEP)
            Dim data As [Byte]() = New Byte(1024) {}
            Dim comStr As String = Encoding.Unicode.GetString(data, 0, 4)
            '异面的接收服务器回送的消息 
            Dim DGrecv As New myMethodDelegate(AddressOf recvLogin)
            DGrecv.BeginInvoke(data, Nothing, Nothing)
            '等待服务器回送消息的时长为10秒,否则为服务器超时 
            receiveDone.WaitOne(500, True)
            Dim recvStr As String = Encoding.Unicode.GetString(data, 0, 4)
            If recvStr = comStr Then
                Debug.WriteLine("服务器超时.登陆失败!!")
                Return False
            End If
            If Encoding.Unicode.GetString(data, 0, 4) = LOGINOK Then
                Debug.WriteLine("登陆成功!!")
                Return True
            Else
                Debug.WriteLine("服务器未知错误,登陆失败!!")
                Return False
            End If
        Catch ex As Exception
            Debug.WriteLine("Login:" & Err.Description)
        End Try
    End Function

    '解除登陆函数中的线程阻止
    Sub recvLogin()Sub recvLogin(ByRef inData As Byte())

        ClientSocket.Receive(inData)
        receiveDone.Set()

    End Sub

    '登出函数 
    Private Sub exitApp()Sub exitApp()
        Try
            Dim loginOutStr As String = LOGINOUT & username
            Dim sendBytes As [Byte]() = Encoding.Unicode.GetBytes(loginOutStr)
            ClientSocket.SendTo(sendBytes, ServerEP)
        Catch ex As Exception
            Debug.WriteLine("下线失败：" & Err.Description)
        End Try
    End Sub

    '客户程序监听的函数 
    Sub listen()Sub listen()
        While True
            Try
                Dim recv As Integer = 0 '收到的字节数 
                Dim datas As [Byte]() = New Byte(1024) {} '缓冲区大小 
                Dim sender As New IPEndPoint(IPAddress.Any, 0)
                Dim tempRemoteEP As EndPoint = CType(sender, EndPoint)
                recv = ClientSocket.ReceiveFrom(datas, tempRemoteEP)      'data存放接收到的数据，tempRemoteEP存放发送来的ip地址
                Dim tmpdata As New DeclearData(datas, tempRemoteEP, recv)    '装进信息块中
                ReceiveDataList.AddItem(tmpdata)                            '将信息块装进本程序自己的缓冲区
                If Not dealing Then
                    Dim dealdatathread As New Thread(AddressOf DealData)
                    dealdatathread.Name = "dealdata"
                    dealdatathread.Start()
                End If
            Catch
                Debug.WriteLine("listen:" & Err.Description)
                WriteLog("listen:" & Err.Description)
            End Try
        End While
    End Sub

    '处理不同机器发送过来的信息
    Private Sub DealData()Sub DealData()
        If Not dealing Then
            dealing = True
            Dim tmpmsg As DeclearData
            While ReceiveDataList.count > 0
                Try
                    tmpmsg = ReceiveDataList.GetFirstItem
                    Dim msgHead As String = tmpmsg.datastr.Substring(0, 2)
                    '可以侦听到的命令：
                    Debug.WriteLine("收到：" & tmpmsg.datastr)
                    If msgHead <> "" Then
                        Select Case msgHead
                            Case LOGININ
                                '如果有一个节点登陆：
                                '暂时不做处理
                            Case GIVEMEDATA         '添加一个接收数据的监视端
                                If Not on_off Then
                                    on_off = True       '打开开关
                                    If ThSend Is Nothing Then   '如果此时发送数据的线程没有启动，则启动它
                                        ThSend = New Thread(AddressOf DataMove)
                                        ThSend.Start()
                                        Debug.WriteLine("开始发送数据！")
                                    End If
                                End If
                                AddRss(tmpmsg.datastr, tmpmsg.fromip)

                            Case NODATASEND         '取消一个接收数据的监视端
                                RemoveRss(tmpmsg.datastr, tmpmsg.fromip)

                            Case MSGEND             '控制数据发送成功返回标志
                                msgSendEnd = True
                                sendDone.Set()

                            Case HOLDOK             '保持在线信息返回
                                testHold = True
                                holdDone.Set()

                            Case CHTMSGEND          '发送聊天信息返回标志
                                testChat = True
                                chatDone.Set()

                            Case GETDEVINFO
                                '要求发送本工作站的基本信息：
                                SendBasicInfo(tmpmsg.fromip)

                            Case ONEOFF
                                '某个客户端超时下线：
                                '检验此信息是否为服务器正确端口发送
                                '检测该客户端是否正在接收我们的数据，如果是则终止
                            Case SEARCHCLIENT
                                ReLogin(tmpmsg.fromip)
                            Case Else

                        End Select
                    End If
                Catch ex As Exception
                    Debug.WriteLine("错误的数据：" & tmpmsg.datastr)
                    Debug.WriteLine("DealData:" & Err.Description)
                    WriteLog("错误的数据：" & tmpmsg.datastr)
                    WriteLog("DealData:" & Err.Description)
                Finally
                    ReceiveDataList.Remove()
                End Try
            End While
            dealing = False
        End If
    End Sub

    '一个客户端发送请求，要求本工作站向其发送数据，此请求只能由客户端发送
    '向设备实例的SendTO()数组添加该工作站的IP地址（本程序只向固定端口发送数据！）
    Private Function AddRss()Function AddRss(ByVal dt As String, ByVal ip As IPEndPoint) As Boolean
        Dim i, j As Integer
        Dim tmpsetup As ClassSetup
        Dim flag As Boolean = False
        Dim success As Boolean = False
        Dim findsetup As Boolean = False
        Dim id As String = dt.Substring(2, dt.Length - 2)
        Try
            For i = 0 To DataSetUp.count - 1
                tmpsetup = DataSetUp.item(i)
                If id = "" Then
                    flag = False
                    For j = 0 To tmpsetup.SendTo.Length - 1
                        If (Not tmpsetup.SendTo(j) Is Nothing) AndAlso tmpsetup.SendTo(j).Address.ToString = ip.Address.ToString Then
                            '这个设备本来就向该客户端发送数据
                            flag = True
                            Exit For
                        End If
                    Next
                    If Not flag Then
                        j = tmpsetup.SendTo.Length
                        ReDim Preserve tmpsetup.SendTo(j + 1)
                        tmpsetup.SendTo(j) = New IPEndPoint(ip.Address, 5556)
                    End If
                    success = True
                    findsetup = True
                ElseIf tmpsetup.ID = id Then          '正是要申请的设备，进行下一步判断：
                    findsetup = True    '找到了这个设备
                    If tmpsetup.SendTo Is Nothing Then
                        ReDim Preserve tmpsetup.SendTo(1)
                        tmpsetup.SendTo(0) = New IPEndPoint(ip.Address, 5556)           '第一个申请的客户端
                        success = True
                        Exit For 'i
                    Else
                        flag = False
                        For j = 0 To tmpsetup.SendTo.Length - 1
                            If (Not tmpsetup.SendTo(j) Is Nothing) AndAlso tmpsetup.SendTo(j).Address.ToString = ip.Address.ToString Then   '重复申请
                                Debug.WriteLine("该客户端已经在接收数据了！这是违法操作！")
                                flag = True
                                Exit For    'j
                            End If
                        Next j
                        If Not flag Then        '正常的申请数据
                            flag = False        '检查前面是否有空的数组元素可用
                            For j = 0 To tmpsetup.SendTo.Length - 1
                                If tmpsetup.SendTo(j) Is Nothing Then   '找到可用的
                                    tmpsetup.SendTo(j) = New IPEndPoint(ip.Address, 5556)
                                    success = True
                                    flag = True
                                    Exit For
                                End If
                            Next j
                            If Not flag Then    '没有找到可用的，重新扩展数组
                                j = tmpsetup.SendTo.Length
                                ReDim Preserve tmpsetup.SendTo(j + 1)
                                tmpsetup.SendTo(j) = New IPEndPoint(ip.Address, 5556)
                                success = True
                            End If
                        End If
                        Exit For    'i
                    End If
                End If
            Next i
            If Not findsetup Then
                Debug.WriteLine("没有找到该设备，ID信息错误！")
            End If
            dt = Nothing
            ip = Nothing
            tmpsetup = Nothing
            flag = Nothing
            id = Nothing
            Return success
        Catch ex As Exception
            Debug.WriteLine("AddRss:" & Err.Description)
        End Try
    End Function

    '取消从本工作站获取数据
    '这个消息只由客户端发送
    Private Function RemoveRss()Function RemoveRss(ByVal dt As String, ByVal ip As IPEndPoint) As Boolean
        Dim i, j As Integer
        Dim tmpsetup As ClassSetup
        Dim flag As Boolean = False
        Dim findsetup As Boolean = False
        Dim id As String = dt.Substring(2, dt.Length - 2) 'Encoding.Unicode.GetString(dt, 4, recv - 4)
        For i = 0 To DataSetUp.count - 1
            tmpsetup = DataSetUp.item(i)
            If id = "" Then
                '该客户端下线，取消所有向此客户端的发送：
                If Not tmpsetup.SendTo Is Nothing Then
                    For j = 0 To tmpsetup.SendTo.Length - 1
                        If (Not tmpsetup.SendTo(j) Is Nothing) AndAlso tmpsetup.SendTo(j).Address.ToString = ip.Address.ToString Then
                            'Debug.WriteLine(tmpsetup.SendTo(j).ToString)
                            tmpsetup.SendTo(j) = Nothing
                            flag = True
                            findsetup = True
                            'Exit For
                        End If
                    Next
                End If
            ElseIf tmpsetup.id = id Then      '找到该设备
                findsetup = True
                flag = False
                For j = 0 To tmpsetup.SendTo.Length - 1
                    If Not tmpsetup.SendTo(j) Is Nothing Then
                        'Debug.WriteLine(tmpsetup.SendTo(j).ToString & ip.ToString)
                        If tmpsetup.SendTo(j).Address.ToString = ip.Address.ToString Then       '找到了这个客户端地址
                            tmpsetup.SendTo(j) = Nothing
                            flag = True
                            'Exit For    'j
                        End If
                    End If
                Next
                If Not flag Then    '没有找到客户端地址
                    Debug.WriteLine("违法操作，该客户端没有申请过该工作站的数据！")
                End If
                Exit For    'i
            End If
        Next
        If Not findsetup Then
            Debug.WriteLine("没有找到对应的设备！非法操作！")
            Return False
        End If
        If Not flag Then     '没有找到客户端地址
            Debug.WriteLine("没有找到对应的客户端地址！非法操作！")
            Return False
        End If
        '检查当前是否还有客户端在接收数据：
        flag = False
        For i = 0 To DataSetUp.count - 1
            tmpsetup = DataSetUp.item(i)
            For j = 0 To tmpsetup.SendTo.Length - 1
                If Not tmpsetup.SendTo(j) Is Nothing Then
                    'Debug.WriteLine("还有 " & tmpsetup.SendTo(j).ToString & " 在接收数据！")
                    flag = True         '找到一个！
                End If
            Next
        Next
        'Debug.WriteLine("用户：" & ip.ToString & "需要取消接收数据")
        'Debug.WriteLine(flag)
        If Not flag Then
            '当前已经没有客户端需要本工作站发送数据了，关闭开关
            on_off = False        '关闭发送开关
            Debug.WriteLine("关闭发送开关！")
            ThSend.Abort()
            ThSend = Nothing
        End If
        dt = Nothing
        'recv = Nothing
        ip = Nothing
        i = Nothing
        j = Nothing
        tmpsetup = Nothing
        flag = Nothing
        findsetup = Nothing
        id = Nothing
    End Function

    '用保持在线状态的函数 
    Private Sub holdonline()Sub holdonline(ByVal state As [Object])
        Try
            ClientSocket.SendTo(Encoding.Unicode.GetBytes(HOLDLINE & username), ServerEP)
        Catch ex As Exception
            Debug.WriteLine("holdonline:" & ex.Message)
        End Try
    End Sub

    '用于向各个客户端发送数据，此函数通过Send线程控制：
    '这个函数只用来发送数据信息，即以40开头的信息
    Public Sub DataMove()Sub DataMove()
        Try
            Dim data As String
            Dim TempSend As String
            Dim TempDev As ClassSetup
            Dim i As Integer
            Debug.WriteLine("启动发送器：")
            While on_off
                Application.DoEvents()
                If SendDataList.Count > 0 Then      '如果发送的链表中有数据，则按照顺序发送：
                    TempDev = CType(SendDataList.Item(0), ClassData).myDevice       '获取是哪个设备要求发送的，空代表是本系统要求发送的，而不是某个设备的数据信息
                    data = CType(SendDataList.Item(0), ClassData).mydata            '获取数据
                    '发送本数据：
                    For i = 0 To TempDev.SendTo.Length - 1
                        If Not TempDev.SendTo(i) Is Nothing Then                    '向所有需要接收本设备的客户端发送
                            SendLongData(data, TempDev.SendTo(i))
                        End If
                    Next
                    CType(SendDataList.Item(0), ClassData).dispose()                '将信息块释放掉
                    SendDataList.RemoveAt(0)                                        '删除此信息块
                End If
                Thread.Sleep(100)
            End While
            data = Nothing
            TempSend = Nothing
            Debug.WriteLine("发送器结束")
        Catch ex As Exception
            Debug.WriteLine("DataMove:" & Err.Description)
        End Try
    End Sub

    '将一整串长数据发送到指定的ip地址：
    '格式：40+标志量+数据
    Private Function SendLongData()Function SendLongData(ByVal thedata As String, ByVal ip As IPEndPoint) As Boolean
        Try
            Dim i As Integer
            Dim head As String = thedata.Substring(0, 2)
            Dim TempSend As String
            Dim sendbytes() As Byte
            thedata = thedata.Substring(2, thedata.Length - 2)                          '获取除了数据头之外的所有数据
            If thedata.Length > movelenth Then                                          '第一次数据！
                TempSend = head & "0" & thedata.Substring(0, movelenth)                 '添加0，表示数据的开始
                thedata = thedata.Substring(movelenth, thedata.Length - movelenth)      '将发送出去的那些字符除掉
                sendbytes = Encoding.Unicode.GetBytes(TempSend)
                ClientSocket.SendTo(sendbytes, ip)                                      '发送本段信息
                Thread.Sleep(100)
                While thedata.Length > movelenth                                        '如果剩下的数据大小大于可以发送的字节数，则拆分
                    '发送：
                    TempSend = head & "2" & thedata.Substring(0, movelenth)             '添加2，表示数据的中间部分
                    thedata = thedata.Substring(movelenth, thedata.Length - movelenth)  '将发送出去的那些字符除掉
                    sendbytes = Encoding.Unicode.GetBytes(TempSend)
                    ClientSocket.SendTo(sendbytes, ip)                                  '发送本段信息
                    Thread.Sleep(100)
                End While
                If thedata.Length > 0 Then                                              '发送最后一段信息
                    TempSend = head & "1" & thedata                                     '添加1，表示是数据的结束
                    sendbytes = Encoding.Unicode.GetBytes(TempSend)
                    ClientSocket.SendTo(sendbytes, ip)
                    Thread.Sleep(100)
                End If
            Else
                TempSend = head & "3" & thedata                                         '添加3，表示这里是全部数据一次性传送完毕
                sendbytes = Encoding.Unicode.GetBytes(TempSend)
                ClientSocket.SendTo(sendbytes, ip)                                      '发送本段信息
            End If
            i = Nothing
            head = Nothing
            thedata = Nothing
            ip = Nothing
            TempSend = Nothing
            sendbytes = Nothing
            Return True
        Catch ex As Exception
            Debug.WriteLine("SendLongData: " & Err.Description)
            Return False
        End Try
    End Function

    '获取本地地址：
    Private Function getIdOfLocalhost()Function getIdOfLocalhost() As String
        Try
            Dim addressList As System.Net.IPAddress() = Dns.GetHostByName(Dns.GetHostName()).AddressList
            Dim j As Integer           '定义的循环变量j，得到本地机的ip
            For j = 0 To addressList.Length - 1
                If ServerEP.Address.GetAddressBytes(0) = addressList(j).GetAddressBytes(0) And ServerEP.Address.GetAddressBytes(1) = addressList(j).GetAddressBytes(1) And ServerEP.Address.GetAddressBytes(2) = addressList(j).GetAddressBytes(2) Then
                    Return addressList(j).ToString()
                End If
            Next j
            Return ""
        Catch ex As Exception
            Debug.WriteLine("getIdOfLocalhost:" & Err.Description)
        End Try
    End Function

    '发送本工作站的基本信息：（本函数执行的时机由接口控制，一旦出现新的设备或配置完成即执行一次）
    '如果需要发送的目标为空，则说明是发送给服务器的
    '不为空，则是发送给某个客户端的
    Public Sub SendBasicInfo()Sub SendBasicInfo(Optional ByVal sendtoEP As IPEndPoint = Nothing)
        Try
            Dim tmpstr As String = frmShowArguments.SaveConfig(True)
            Dim head As String = RECDEVINFO
            Dim TempSend As String
            Dim sendBytes() As Byte
            Dim movelenth As Integer = 509 '最大为511，加上标志位为512，乘以2为传送的最大字节数：1024
            '重新组合配置文件：
            If sendtoEP Is Nothing Then sendtoEP = ServerEP
            While tmpstr.Length > movelenth                                   '如果数据大小大于可以发送的字节数，则拆分
                '发送：
                TempSend = head & "0" & tmpstr.Substring(0, movelenth)        '添加0，表示数据未结束
                tmpstr = tmpstr.Substring(movelenth, tmpstr.Length - movelenth)
                sendBytes = Encoding.Unicode.GetBytes(TempSend)
                ClientSocket.SendTo(sendBytes, sendtoEP)
                Thread.Sleep(100)
            End While
            If tmpstr.Length > 0 Then                                         '发送最后一段信息
                TempSend = head & "1" & tmpstr
                sendBytes = Encoding.Unicode.GetBytes(TempSend)
                ClientSocket.SendTo(sendBytes, sendtoEP)
                Thread.Sleep(100)
            End If
            Debug.WriteLine("向" & sendtoEP.ToString & "发送配置信息")
            tmpstr = Nothing
            head = Nothing
            TempSend = Nothing
            sendBytes = Nothing
            sendtoEP = Nothing
            movelenth = Nothing
        Catch ex As Exception
            Debug.WriteLine("SendBasicInfo:" & Err.Description)
        End Try
    End Sub

    '用于回应服务器服务程序发送的探测信息
    '只是一个回应，不对服务器发回的确认成功信息做任何处理
    Private Sub ReLogin()Sub ReLogin(ByVal TheServerEP As IPEndPoint)
        Try
            Dim userBytes As [Byte]()
            userBytes = Encoding.Unicode.GetBytes(LOGININ & username)
            '向服务器发送客户消息 
            ClientSocket.SendTo(userBytes, TheServerEP)
        Catch ex As Exception
            Debug.WriteLine("ReLogin:" & Err.Description)
        End Try
    End Sub

    Sub WriteLog()Sub WriteLog(ByVal msg As String)
        Debug.WriteLine(msg)
        sw.WriteLine(msg)
        sw.Flush()
    End Sub

#End Region

End Class