Socket Network VB.Net Tutorial

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.rntsoft.com")
    
          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
rntsoft.com
www.rntsoft.com
68.178.206.138