VB.Net Tutorial/Socket Network/IP Address — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Текущая версия на 15:55, 26 мая 2010

Check equality for IP Address

<source lang="vbnet">Imports System.Net Public Class Tester

   Public Shared Sub Main
       Dim ipAddr1 As IPAddress = IPAddress.Parse("192.168.1.100")
       Dim ipAddr2 As IPAddress = IPAddress.Parse("192.168.1.100")
   
       If ipAddr1.Equals(ipAddr2) Then
         Console.WriteLine("equal")
       Else
         Console.WriteLine("different")
       End If
   End Sub

End Class</source>

equal

Get Host name by IP address

<source lang="vbnet">Imports System Imports System.Data Imports System.Net Imports System.Net.Sockets Public Class Tester

   Public Shared Sub Main
   
       Dim CpIP As IPHostEntry
       CpIP = Dns.GetHostByAddress("68.234.12.1")
       Console.WriteLine(CpIP.HostName)
   End Sub

End Class</source>

Get IP address 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}

Parse IP Address from string

<source lang="vbnet">Imports System.Net Public Class Tester

   Public Shared Sub Main
       Dim ipAddr1 As IPAddress = IPAddress.Parse("192.168.1.100")
       Dim ipAddr2 As IPAddress = IPAddress.Parse("192.168.1.100")
   
       If ipAddr1.Equals(ipAddr2) Then
         Console.WriteLine("equal")
       Else
         Console.WriteLine("different")
       End If
   End Sub

End Class</source>

equal