Imports System.Net

Imports System.Threading

Imports System.Text

Imports System.Net.Sockets

Module Module1

    Dim PortNumber As Integer = 1984    ''''侦听端口号

    Dim Cmd As String = "Chat:"         ''''提示符

    Dim listener As Socket              ''''侦听socket

    Dim tListener As Thread             ''''侦听线程

    Dim Prompted As Boolean = False     ''''用于线程间同步的标志变量

    Sub Main()

        Welcome()                       ''''欢迎信息

        StartListener()                 ''''开始侦听

        StartChatting()                 ''''准备好让用户发送消息

    End Sub

    Private Sub Welcome()

        Dim txtMessage As String = vbCrLf & "Welcome! I am a console application for LAN chatting." & vbCrLf

        Console.WriteLine(txtMessage)

    End Sub

    Private Sub StartListener()

        Dim ready As Boolean = False

        Dim LocalPoint As IPEndPoint

        Dim msg As String

        While Not ready ''''向用户询问侦听端口号。用户可以直接回车，表示选择默认的。

            msg = GetParams("===Now, enter the local port you want to listen(" & PortNumber & "):")

            If msg = "" Then msg = PortNumber

            Try

                PortNumber = Int(msg)

                LocalPoint = New IPEndPoint(Dns.GetHostByName(Dns.GetHostName).AddressList(0), PortNumber)

                listener = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

                listener.Bind(LocalPoint)

                ready = True

            Catch ex As Exception

                Console.WriteLine("※※※ERROR※※※ " & vbCrLf & ex.Message & vbCrLf)

            End Try

        End While

        tListener = New Thread(AddressOf thrListener)

        tListener.Start()

    End Sub

 &nb

[1] [2] [3]  下一页