Imports System.Net
Imports Lavantech.Dns

Module DNSLookupExample

    Sub Main()
        ' QTYPE_A asks for the ARecord(Address Record).
        ' QCLASS_IN is for Internet class.
        ' null is passed for server name. If null is passed the name server setting
        Dim dnsLookup As DNSLookup = New DNSLookup("www.hotmail.com", dnsLookup.QTYPE_A, dnsLookup.QCLASS_IN, 1000, Nothing)

        ' Get all Answer Records.
        Dim records As ResourceRecord() = dnsLookup.GetAnswerRecords()

        ' Print all the Address Records.
        Dim i As Integer
        For i = 0 To (records.Length - 1)
            If (TypeOf (records(i)) Is ARecord) Then
                Console.WriteLine(CType(records(i), ARecord).GetIPAddress().ToString())
            End If
        Next i

    End Sub

End Module