While Not done
Console.WriteLine("Waiting for broadcast")
Dim bytes As Byte() = listener.Receive(groupEP)
Console.WriteLine("Received broadcast from {0} :" + _
ControlChars.Cr + " {1}" + ControlChars.Cr, _
groupEP.ToString(), _
Encoding.ASCII.GetString(bytes, 0, bytes.Length))
End While
listener.Close()
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub 'StartListener
'Entry point that delegates to C-style main Private Function.
Public Overloads Shared Sub Main()
System.Environment.ExitCode = _
Main(System.Environment.GetCommandLineArgs())
End Sub
Overloads Public Shared Function Main(args() As [String]) As Integer
StartListener()
Return 0
End Function 'Main
End Class 'UDPMulticastListener
[C#]
using System;
using System.Net;
using System.Net.Sockets;
using System.Text;
[Visual Basic]
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class UDPMulticastSender
Private Shared GroupAddress As IPAddress = _
IPAddress.Parse("224.168.100.2")
Private Shared GroupPort As Integer = 11000
Private Shared Sub Send(message As [String])
Dim sender As New UdpClient()
Dim groupEP As New IPEndPoint(GroupAddress, GroupPort)
Try
Console.WriteLine("Sending datagram : {0}", message)
Dim bytes As Byte() = Encoding.ASCII.GetBytes(message)
sender.Send(bytes, bytes.Length, groupEP)
sender.Close()
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub 'Send
'Entry point that delegates to C-style main Private Function.
Public Overloads Shared Sub Main()
System.Environment.ExitCode = _
Main(System.Environment.GetCommandLineArgs())
End Sub
Overloads Public Shared Function Main(args() As [String]) As Integer
Send(args(0))
Return 0
End Function 'Main
End Class 'UDPMulticastSender
[C#]
using System;
using System.Net;
using System.Net.Sockets;
using System.Text;