VB.Net Tutorial/Socket Network/IPHostEntry

Материал из VB Эксперт
Версия от 15:55, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Get Address List from IPHostEntry

<source lang="vbnet">Imports System.Net Imports System.Net.Sockets

Public Class Tester

   Public Shared Sub Main
       Dim hostEntry As IPHostEntry
       Dim addrList As IPAddress()
       Dim i As Integer
       Dim strTemp As String
   
       Try
         hostEntry = Dns.Resolve("68.178.206.138")
   
         addrList = hostEntry.AddressList
   
         For i = 0 To addrList.Length - 1
           Console.WriteLine(addrList(i).ToString)
         Next
   
       Catch ex As SocketException
         Console.WriteLine(ex.StackTrace.ToString)
       End Try
   End Sub

End Class</source>

68.178.206.138

Get Aliases from IPHostEntry

<source lang="vbnet">Imports System.Net Imports System.Net.Sockets

Public Class Tester

   Public Shared Sub Main
       Dim localHostName As String
       Dim localHostEntry As IPHostEntry
       Dim aliasList As String()
       Dim addrList As IPAddress()
   
       Dim i As Integer
       Dim strTemp As String
   
       Try
         localHostName = Dns.GetHostName
   
         localHostEntry = Dns.GetHostByName(localHostName)
   
         Console.WriteLine(localHostEntry.HostName)
   
         aliasList = localHostEntry.Aliases
   
         For i = 0 To aliasList.Length - 1
           Console.WriteLine(aliasList(i).ToString)
         Next
         
         addrList = localHostEntry.AddressList
   
         For i = 0 To addrList.Length - 1
           Console.WriteLine(addrList(i).ToString)
         Next
       Catch ex As SocketException
         Console.WriteLine(ex.StackTrace.ToString)
       End Try
   End Sub

End Class</source>

vbex
192.168.1.101

Get Host By Address

<source lang="vbnet">Imports System.Net Imports System.Net.Sockets

Public Class Tester

   Public Shared Sub Main
       Dim ipAddr As IPAddress
       Dim remoteHostEntry As IPHostEntry
   
       Try
         ipAddr = IPAddress.Parse("68.178.206.138")
   
         remoteHostEntry = Dns.GetHostByAddress(ipAddr)
   
         Console.WriteLine(remoteHostEntry.HostName)
   
       Catch ex As SocketException
         Console.WriteLine(ex.StackTrace.ToString)
       End Try
   End Sub

End Class</source>

ip-68-178-206-138.ip.secureserver.net

Get Host By Name

<source lang="vbnet">Imports System.Net Imports System.Net.Sockets

Public Class Tester

   Public Shared Sub Main
       Dim localHostEntry As IPHostEntry
       Dim aliasList As String()
       Dim addrList As IPAddress()
   
       Dim i As Integer
       Dim strTemp As String
   
       Try
   
         localHostEntry = Dns.GetHostByName("www.vbex.ru")
   
         Console.WriteLine(localHostEntry.HostName)
   
         aliasList = localHostEntry.Aliases
   
         For i = 0 To aliasList.Length - 1
           Console.WriteLine(aliasList(i).ToString)
         Next
         
         addrList = localHostEntry.AddressList
   
         For i = 0 To addrList.Length - 1
           Console.WriteLine(addrList(i).ToString)
         Next
       Catch ex As SocketException
         Console.WriteLine(ex.StackTrace.ToString)
       End Try
   End Sub

End Class</source>

vbex.ru
www.vbex.ru
68.178.206.138