VB.Net Tutorial/Socket Network/IPEndPoint

Create IPEndPoint from IP Address and port number

<source lang="vbnet">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</source>

Address Family: InterNetwork
IP:Port: 127.0.0.1:12345
SocketAddress : InterNetwork:16:{48,57,127,0,0,1,0,0,0,0,0,0,0,0}

Create SocketAddress from IPEndPoint

<source lang="vbnet">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</source>

Address Family: InterNetwork
IP:Port: 127.0.0.1:12345
SocketAddress : InterNetwork:16:{48,57,127,0,0,1,0,0,0,0,0,0,0,0}

Get AddressFamily from IPEndPoint

<source lang="vbnet">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</source>

Address Family: InterNetwork
IP:Port: 127.0.0.1:12345
SocketAddress : InterNetwork:16:{48,57,127,0,0,1,0,0,0,0,0,0,0,0}

Get IP port from IPEndPoint

<source lang="vbnet">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</source>

Address Family: InterNetwork
IP:Port: 127.0.0.1:12345
SocketAddress : InterNetwork:16:{48,57,127,0,0,1,0,0,0,0,0,0,0,0}