Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Net.Sockets
public class MainClass
Shared Sub Main()
Dim udpClient As New UdpClient()
Dim ipAddress As IPAddress = Dns.Resolve("www.domain.com").AddressList(0)
Dim ipEndPoint As New IPEndPoint(ipAddress, 11004)
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("test")
Try
udpClient.Send(sendBytes, sendBytes.Length, ipEndPoint)
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub
End Class