Mega Code Archive

 

Categories / VB.Net by API / System Net Sockets

 

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