(VB.NET) ipapi.co IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the ipapi.co REST API.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As New Chilkat.Http

' Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
Dim jsonStr As String = http.QuickGetStr("https://ipapi.co/149.250.207.170/json")
If (http.LastMethodSuccess = False) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Dim json As New Chilkat.JsonObject
json.EmitCompact = False
Dim success As Boolean = json.Load(jsonStr)

Debug.WriteLine(json.Emit())

' Sample output:
' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

' {
'   "ip": "149.250.207.170",
'   "city": "Bblingen",
'   "region": "Baden-Wrttemberg",
'   "region_code": null,
'   "country": "DE",
'   "country_name": "Germany",
'   "continent_code": "EU",
'   "in_eu": true,
'   "postal": null,
'   "latitude": null,
'   "longitude": null,
'   "timezone": null,
'   "utc_offset": null,
'   "country_calling_code": "+49",
'   "currency": "EUR",
'   "languages": "de",
'   "asn": "AS15854",
'   "org": "EntServ Deutschland GmbH"
' }

Dim ip As String
Dim city As String
Dim region As String
Dim region_code As String
Dim country As String
Dim country_name As String
Dim continent_code As String
Dim in_eu As Boolean
Dim postal As String
Dim latitude As String
Dim longitude As String
Dim timezone As String
Dim utc_offset As String
Dim country_calling_code As String
Dim currency As String
Dim languages As String
Dim asn As String
Dim org As String

ip = json.StringOf("ip")
city = json.StringOf("city")
region = json.StringOf("region")
region_code = json.StringOf("region_code")
country = json.StringOf("country")
country_name = json.StringOf("country_name")
continent_code = json.StringOf("continent_code")
in_eu = json.BoolOf("in_eu")
postal = json.StringOf("postal")
latitude = json.StringOf("latitude")
longitude = json.StringOf("longitude")
timezone = json.StringOf("timezone")
utc_offset = json.StringOf("utc_offset")
country_calling_code = json.StringOf("country_calling_code")
currency = json.StringOf("currency")
languages = json.StringOf("languages")
asn = json.StringOf("asn")
org = json.StringOf("org")