Mega Code Archive

 

Categories / VB.Net Tutorial / Socket Network

 

UdpClient Multicast Send

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