' The serializeEndpoint method serializes the endpoint and returns the 
' SocketAddress containing the serialized endpoint data.
Private Shared Function serializeEndpoint(ByVal endpoint As IPEndPoint) As SocketAddress

  ' Serialize IPEndPoint details to a SocketAddress instance.
  Dim socketAddress As SocketAddress = endpoint.Serialize()

  ' Display the serialized endpoint information.
  Console.WriteLine("Endpoint Serialize() : " + socketAddress.ToString())

  Console.WriteLine("Socket Family : " + socketAddress.Family.ToString())
  Console.WriteLine("Socket Size : " + socketAddress.ToString())

  Console.WriteLine("Press any key to continue.")
  Console.ReadLine()

  Return socketAddress
End Function 'serializeEndpoint

' 导入命名空间
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