UdpClient Multicast Send : Udp « Socket Network « VB.Net Tutorial

1. VB.Net Tutorial
2. Socket Network
3. Udp

Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Threading
Public Class Tester

    Public Shared Sub Main
        Dim GroupEP As IPEndPoint
        Dim SendUdp As New UdpClient()
        Dim GroupIP As IPAddress

        GroupIP = IPAddress.Parse("127.0.0.1")
        GroupEP = New IPEndPoint(GroupIP, 12345)
        SendUdp.JoinMulticastGroup(GroupIP, 12)

        Dim bteSendDate() As Byte

        Try
            bteSendDate = Encoding.Unicode.GetBytes("message")
            SendUdp.Send(bteSendDate, bteSendDate.Length, GroupEP)

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try


    End Sub
End Class