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
|