Dim hostadd As IPAddress = Dns.Resolve(Dns.GetHostName()).AddressList(0)
Dim EPhost As New IPEndPoint(hostadd, 80)
'Creates the Socket for sending data over TCP.
Dim s As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
s.Connect(EPhost)
s.Close()