While testChat <> True
            Console.WriteLine("打洞成功,正在准备发送.....")
            chatDone = New ManualResetEvent(False)
            ClientSocket.SendTo(msgbytes, remoteUEP)
            chatDone.WaitOne(10000, True)
            If testChat = True Then
                Console.WriteLine("消息发送成功!!")
                Exit While
            Else
                Console.WriteLine("发送超时,发送消息失败.")
                Console.Write("是否重试,按Y重试,按任意值结束发送:")
                Dim YorN As String = Console.ReadLine().ToUpper
                If YorN = "Y" Then
                    testChat = False
                Else
                    Exit Sub
                End If
            End If
        End While
        testHold = False
        testChat = False
    End Sub

    ''''处理聊天消息
    Private Sub showChatMsg(ByVal indata() As Byte, ByVal recvcount As Integer)
        Dim msgStr As String = Encoding.Unicode.GetString(indata, 4, recvcount - 4)
        Dim splitStr() As String = msgStr.Split("|")
        Dim fromUname As String = splitStr(0)
        Dim msg As String = splitStr(1)
        Console.WriteLine(Chr(10) & Chr(13) & "收到来自" & fromUname & "的消息:" & msg)
        Console.Write("Client>")
        Dim i As Integer
        For i = 0 To OLUserName.Length - 1
            If OLUserName(i) = fromUname Then
                Exit For
            End If
        Next
        Dim tempbytes() As Byte = Encoding.Unicode.GetBytes(CHTMSGEND)
        ClientSocket.SendTo(tempbytes, OLUserEP(i))
    End Sub

    ''''处理打洞函数
    Private Sub makeHold(ByVal indata() As Byte, ByVal recvcount As Integer)
        Dim makholdstr As String = Encoding.Unicode.GetString(indata, 4, recvcount)
        Dim ipepstr() As String = makholdstr.Split(":")
        Dim holdEP As IPEndPoint = New IPEndPoint(IPAddress.Parse(ipepstr(0)), ipepstr(1))

        Dim holdbytes() As Byte = Encoding.Unicode.GetBytes(HOLDOK & username)
        ClientSocket.SendTo(holdbytes, holdEP)
        Console.WriteLine("回送打洞消息.")
    End Sub

    ''''处理用户上线的函数
    Private Sub addOnLine(ByVal inData() As Byte, ByVal recvCount As Integer)
        Dim inStr As String = Encoding.Unicode.GetString(inData, 4, recvCount - 4)
        Dim userinfo() As String = inStr.Split("|")
        Dim strUserEP() As String = userinfo(1).Split(":")

        Dim i As Integer
        For i = 0 To OLUserName.Length - 1
            If OLUserName(i) = "" Then
                OLUserName(i) = userinfo(0)
                OLUserEP(i) = New IPEndPoint(IPAddress.Parse(strUserEP(0)), strUserEP(1))
                Console.WriteLine(Chr(10) & Chr(13) & "用户" & OLUserName(i) & "上线了. 用户地址:" & OLUserEP(i).ToString)
                Console.Write("Client>")
                Exit Sub
            End If
        Next

        ReDim Preserve OLUserName(i + 1)
        ReDim Preserve OLUserEP(i + 1)

        OLUserName(i + 1) = userinfo(0)
        OLUserEP(i + 1) = New IPEndPoint(IPAddress.Parse(strUserEP(0)), strUserEP(1))

        Console.WriteLine(Chr(10) & Chr(13) & "用户" & OLUserName(i + 1) & "上线了. 用户地址:" & OLUserEP(i + 1).ToString)
        Console.Write("Client>")

    End Sub

    ''''处理用户下线的函数
    Private Sub removeOnLine(ByVal inData() As Byte, ByVal recvCount As Integer)
        Dim offUname As String = Encoding.Unicode.GetString(inData, 4, recvCount - 4)

        Dim i As Integer
        For i = 0 To OLUserName.Length - 1
            If OLUserName(i) = offUname Then
                OLUserName(i) = ""
                OLUserEP(i) = Nothing
                Console.WriteLine(Chr(10) & Chr(13) & "用户" & offUname & "下线了.")
                Console.Write("Client>")
                Exit Sub
            End If
        Next
    End Sub

    ''''发送消息的函数
    Public Function sendmsg(ByVal msg As String, ByVal sendToIPEP As IPEndPoint) As String

        Dim sendBytes As [Byte]() = Encoding.Unicode.GetBytes(msg)

        ''''判断发送的字节数是否超过了服务器缓冲区大小
        If sendBytes.Length > 1024 Then
            Return "W输入的字数太多"
        End If

        ''''判断消息是否发送成功
        While msgSendEnd = False

         &n

上一页  [1] [2] [3] [4] [5] [6] [7] [8]  下一页