VB.Net by API/System.Net/IPEndPoint
Содержание
IPEndPoint.Address
<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>
IPEndPoint.AddressFamily
<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>
IPEndPoint.Serialize()
<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>
New 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>