VB.net基础:使用UDP发送和接收消息

    Private Function Prompt() As String

        If Not Prompted Then

            Console.Write(Cmd)

            Prompted = True

        End If

        Return Console.ReadLine

    End Function

    Private Sub thrListener() ''''侦听线程

        Dim bytes(4096) As Byte

        Dim NumGet As Integer

        Dim Msg As String

        While True

            Debug.WriteLine("Waiting for a message...")

            NumGet = listener.Receive(bytes)   ''''接收

            Prompted = False

            Msg = Encoding.Unicode.GetString(bytes, 0, NumGet) ''''与发送消息一样使用unicode编码

            Console.WriteLine(vbCrLf & ">>>>>>>>>" & Msg & vbCrLf)

            If Not Prompted Then

                Console.Write(Cmd)

                Prompted = True

            End If

        End While

    End Sub

    Private Sub ShowHelp()

        Console.WriteLine("")

        Console.WriteLine("========================================================================")

        Console.WriteLine("This program is very simple, you can type ""exit"" to exit program.")

        Console.WriteLine("========================================================================")

        Console.WriteLine("")

    End Sub

End Module

上一页  [1] [2] [3] 

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

鄂公网安备 42011102001154号

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