(Excel) geo.ipify.org IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the geo.ipify.org REST API.

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' Lookup an IPv4 address: 8.8.8.8

jsonStr = http.QuickGetStr("https://geo.ipify.org/api/v1?apiKey=API_KEY&ipAddress=8.8.8.8")
If (http.LastMethodSuccess = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
json.EmitCompact = False

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": "8.8.8.8",
'   "location": {
'     "country": "IT",
'     "region": "Lombardy",
'     "city": "Milan",
'     "lat": 45.4707,
'     "lng": 9.1889,
'     "postalCode": "20147",
'     "timezone": "+02:00"
'   }
' }

ip = json.StringOf("ip")
locationCountry = json.StringOf("location.country")
locationRegion = json.StringOf("location.region")
locationCity = json.StringOf("location.city")
locationLat = json.StringOf("location.lat")
locationLng = json.StringOf("location.lng")
locationPostalCode = json.StringOf("location.postalCode")
locationTimezone = json.StringOf("location.timezone")