(Visual Basic 6.0) ipapi.co IPv4 Geolocation Lookup

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim http As New ChilkatHttp

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

Dim json As New ChilkatJsonObject
json.EmitCompact = 0
Dim success As Long
success = json.Load(jsonStr)

Debug.Print 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 Long
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")