Imports System.Net
Public Class Tester
Public Shared Sub Main
Dim ipAddr As System.Net.IPAddress
Dim ipEndPoint As System.Net.IPEndPoint
Dim socketAddr As System.Net.SocketAddress
Try
ipAddr = IPAddress.Parse("127.0.0.1")
ipEndPoint = New System.Net.IPEndPoint(ipAddr, 12345)
socketAddr = ipEndPoint.Serialize()
Console.WriteLine("Address Family: " & ipEndPoint.AddressFamily.ToString)
Console.WriteLine("IP:Port: " & ipEndPoint.Address.ToString & ":" & ipEndPoint.Port.ToString)
Console.WriteLine("SocketAddress : " & socketAddr.ToString())
Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString)
End Try
End Sub
End Class
|