Imports System

Imports System.Net.Http

Imports System.Threading.Tasks

Imports IpInfo

​

Public Module Program

    Public Sub Main()

        MainAsync().Wait()

    End Sub     

    Async Function MainAsync() As Task

        Using client As HttpClient = New HttpClient()

        Dim api = new IpInfoApi(client)

        Dim response = Await api.GetCurrentIpInfoAsync()

​

        Console.WriteLine("Ip: {0}", response.Ip)

        Console.WriteLine("Hostname: {0}", response.Hostname)

        Console.WriteLine("City: {0}", response.City)

        Console.WriteLine("Region: {0}", response.Region)

        Console.WriteLine("Country: {0}", response.Country)

        Console.WriteLine("Loc: {0}", response.Loc)

        Console.WriteLine("Postal: {0}", response.Postal)

        Console.WriteLine("Org: {0}", response.Org)

        End Using

    End Function

End Module