VB.Net Tutorial/Socket Network/IPHostEntry — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:55, 26 мая 2010
Содержание
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