P2P的简单示例:VB.net版

    End Sub

    ''''登陆函数
    Private Function Login() As Boolean

        receiveDone = New ManualResetEvent(False)
        Dim userBytes As [Byte]()

        Dim userOK As Boolean = False

        Console.Write("请输入你的用户名:")

        ''''判断用户名是否符合格式
        While (userOK <> True)
            username = Console.ReadLine.ToUpper
            userBytes = Encoding.Unicode.GetBytes(LOGININ & username)

            If userBytes.Length > 24 Or userBytes.Length < 10 Then
                Console.WriteLine("用户名不得小于6个字节,且不得大于20个字节.")
                Console.Write("请重新输入你的用户名:")
            Else
                userOK = True
            End If
        End While

        ''''向服务器发送客户消息
        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(30000, True)

        Dim recvStr As String = Encoding.Unicode.GetString(data, 0, 4)

        If recvStr = comStr Then
            Console.WriteLine("服务器超时.登陆失败!!")
            Return False
        End If

        If Encoding.Unicode.GetString(data, 0, 4) = LOGINOK Then
            Console.WriteLine("登陆成功!!")
            Return True
        ElseIf Encoding.Unicode.GetString(data, 0, 4) = HVUSER Then
            Console.WriteLine("用户名重复.登陆失败!!")
            Return False
        Else
            Console.WriteLine("服务器未知错误,登陆失败!!")
            Return False
        End If

    End Function

    ''''登出函数
    Private Sub exitApp()

        Dim loginOutStr As String = LOGINOUT & username
        Dim sendBytes As [Byte]() = Encoding.Unicode.GetBytes(loginOutStr)
        ClientSocket.SendTo(sendBytes, ServerEP)

    End Sub

    ''''请求好友列表的函数
    Private Function getU() As Boolean

        getUDone = New ManualResetEvent(False)
        Dim getUbytes As Byte() = Encoding.Unicode.GetBytes(GETULIST)
        ClientSocket.SendTo(getUbytes, ServerEP)

        Dim data As [Byte]() = New Byte(4056) {}
        Dim comStr As String = Encoding.Unicode.GetString(data, 0, 4)

        Dim GUrecv As New myMethodDelegate(AddressOf recvGetU)
        GUrecv.BeginInvoke(data, Nothing, Nothing)

        getUDone.WaitOne(30000, True)

        Dim recvStr As String = Encoding.Unicode.GetString(data, 0, 4)

        If recvStr = comStr Then
            Console.WriteLine("服务器超时.或取好友名单失败!!")
            Return False
        End If

        If Encoding.Unicode.GetString(data, 0, 4) = GETUSER Then
            getUserList(data, getUrecCount)
            Console.WriteLine("获取在线名单成功!!")
            showUserList()
            Return True
        Else
            Console.WriteLine("服务器未知错误,获取在线名单失败!!")
            Return False
        End If

    End Function

    ''''登陆时用来异步的接收服务器发送的消息
    Sub recvLogin(ByRef inData As Byte())

        ClientSocket.Receive(inData)
        receiveDone.Set()

    End Sub

    ''''请求好友名单时用来异步接收服务器发送的消息
    Sub recvGetU(ByRef inData As Byte())

        getUrecCount = ClientSocket.Receive(inData)
        getUDone.Set()

    End Sub

    ''''处理收到的在线用户信息
    Private Sub getUserList(ByVal userInfobytes() As Byte, ByVal reccount As Integer)

        Dim ustr As String = Encoding.Unicode.GetString(userInfobytes, 4, reccount - 4)

        Dim splitStr() As String = Nothing

        splitStr = Ustr.Split("|")

        Dim IPEPSplit() As String = Nothing

        Dim i As Integer = 0

        Dim k As Integer
        For k = 0 To splitStr.Length - 2 Step

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

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18