16,554
社区成员
发帖
与我相关
我的任务
分享
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Program
Overloads Public Shared Function Main(args() As [String]) As Integer
Dim s As New Socket(AddressFamily.InterNetwork, SocketType.Dgram,
ProtocolType.Udp)
Dim broadcast As IPAddress = IPAddress.Parse("192.168.1.255")
Dim sendbuf As Byte() = Encoding.ASCII.GetBytes(args(0))
Dim ep As New IPEndPoint(broadcast, 11000)
s.SendTo(sendbuf, ep)
Console.WriteLine("Message sent to the broadcast address")
End Function 'Main
End Class
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class UDPListener
Private Const listenPort As Integer = 11000
Private Shared Sub StartListener()
Dim done As Boolean = False
Dim listener As New UdpClient(listenPort)
Dim groupEP As New IPEndPoint(IPAddress.Any, listenPort)
Try
While Not done
Console.WriteLine("Waiting for broadcast")
Dim bytes As Byte() = listener.Receive(groupEP)
Console.WriteLine("Received broadcast from {0} :", _
groupEP.ToString())
Console.WriteLine( _
Encoding.ASCII.GetString(bytes, 0, bytes.Length))
Console.WriteLine()
End While
Catch e As Exception
Console.WriteLine(e.ToString())
Finally
listener.Close()
End Try
End Sub 'StartListener
Public Shared Function Main() As Integer
StartListener()
Return 0
End Function 'Main
End Class 'UDPListener