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)
Try
udpClient.Connect(ipEndPoint)
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub
End Class