Dim s As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
s.Connect(System.Net.IPAddress.Parse("99.170.26.51"), 15000)
If s.Connected Then
Console.WriteLine(CType(s.LocalEndPoint, System.Net.IPEndPoint).Address.ToString)
Console.WriteLine(CType(s.LocalEndPoint, System.Net.IPEndPoint).Port)
End If
s.Shutdown(Net.Sockets.SocketShutdown.Both)
s.Close()
s = Nothing