VB.Net Tutorial/Socket Network/Dns
Содержание
Dns.GetHostName
<source lang="vbnet">Imports System.Net
Public Class Tester
Public Shared Sub Main Console.WriteLine(Dns.GetHostName) End Sub
End Class</source>
vbex
Get Host Name and IP address
<source lang="vbnet">Imports System.Environment Imports System.Net
Public Class Tester
Public Shared Sub Main Dim hostname As String = Dns.GetHostName() Dim ipaddress As String = CType(Dns.GetHostByName(hostname).AddressList.GetValue(0), IPAddr
ess).ToString
Console.WriteLine("Computer Name: " & hostname & " IP Address: " & ipaddress) End Sub
End Class</source>
Computer Name: vbex IP Address: 192.168.1.101
Get Host name by address
<source lang="vbnet">Imports System.Net Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main Dim strHostName As String Try strHostName = Dns.GetHostByAddress("68.129.2.123").HostName Console.WriteLine(strHostName) Catch exfe As FormatException Console.WriteLine(exfe.Message) Catch exse As SocketException Console.WriteLine(exse.Message) End Try End Sub
End Class</source>
The requested name is valid and was found in the database, but it does not have the correct associat ed data being resolved for
Get IP address by domain name
<source lang="vbnet">Imports System.Net Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Try Dim myIPHostEntry As IPHostEntry = Dns.Resolve("www.google.ru") Dim myIPAddresses() As IPAddress = myIPHostEntry.AddressList Dim myIPAddress As IPAddress Dim strIPAddressList As String For Each myIPAddress In myIPAddresses Console.WriteLine(myIPAddress.ToString) Next Catch ex As SocketException Console.WriteLine(ex.Message) End Try End Sub
End Class</source>
72.14.253.147 72.14.253.103 72.14.253.99 72.14.253.104
Resolve domain in a thread
<source lang="vbnet">Imports System.Net Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main Dim myThread As Threading.Thread myThread = New Threading.Thread(AddressOf BeginResolveIP) myThread.Start() End Sub Private Shared Sub BeginResolveIP() Try Dim myAsyncCallback As New AsyncCallback(AddressOf GetIPList)
Dim myIAsyncResult As IAsyncResult = Dns.BeginResolve("www.google.ru", myAsyncCallback, Nothing) Do While Not myIAsyncResult.IsCompleted Threading.Thread.Sleep(10) Loop Threading.Thread.Sleep(2000) Catch ex As SocketException Console.WriteLine(ex.Message) End Try End Sub Private Shared Sub GetIPList(ByVal pIAsyncResult As IAsyncResult) Dim myIPHostEntry As IPHostEntry myIPHostEntry = Dns.EndResolve(pIAsyncResult) Dim myIPAddresses() As IPAddress = myIPHostEntry.AddressList Dim myIPAddress As IPAddress For Each myIPAddress In myIPAddresses Console.WriteLine(myIPAddress.ToString) Next End Sub
End Class</source>
72.14.253.147 72.14.253.103 72.14.253.99 72.14.253.104