P2P的简单示例:VB.net版

            Try

                ClientSocket.SendTo(sendBytes, sendToIPEP)

                sendDone.WaitOne(10000, True) ''''阻塞线程10秒

                If msgSendEnd = False Then
                    Console.WriteLine("消息发送超时")
                Else
                    Exit While
                End If

            Catch e As Exception

                Console.WriteLine("发送消息失败" & e.ToString)
                Exit Function

            End Try

            Console.Write("是否重试?按Y重试,按任意键退出:")
            Dim userInput As String = Console.ReadLine.ToUpper

            If userInput = "Y" Then
            Else
                msgSendEnd = False
                Exit Function
            End If

        End While

        msgSendEnd = False

    End Function

    ''''用保持在线状态的函数
    Private Sub holdonline(ByVal state As [Object])
        ClientSocket.SendTo(holdBytes, ServerEP)
    End Sub

#End Region

End Module

上一页  [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