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] 下一页
[Delphi程序]udp 500 D.O.S攻击 [VB.NET程序]如何用vb的winsocket解决udp文件传送丢包的问题
[JAVA开发]基于Java的UDP协议程序设计初探