UdpClient.JoinMulticastGroup : UdpClient « System.Net.Sockets « VB.Net by API

1. VB.Net by API
2. System.Net.Sockets
3. UdpClient

UdpClient.JoinMulticastGroup

  

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

   
    
  

Related examples in the same category