(Excel) ip-api.com IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the ip-api.com 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: 149.250.207.170  (this was a randomly chosen address)

jsonStr = http.QuickGetStr("http://ip-api.com/json/149.250.207.170")
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

' {
'   "as": "AS15854 Hewlett Packard GmbH",
'   "city": "Bblingen",
'   "country": "Germany",
'   "countryCode": "DE",
'   "isp": "Triaton Frankfurt",
'   "lat": 48.6779,
'   "lon": 8.97297,
'   "org": "EntServ Deutschland GmbH",
'   "query": "149.250.207.170",
'   "region": "BW",
'   "regionName": "Baden-Wrttemberg",
'   "status": "success",
'   "timezone": "Europe/Berlin",
'   "zip": "71034"
' }

as = json.StringOf("as")
city = json.StringOf("city")
country = json.StringOf("country")
countryCode = json.StringOf("countryCode")
isp = json.StringOf("isp")
lat = json.StringOf("lat")
lon = json.StringOf("lon")
org = json.StringOf("org")
query = json.StringOf("query")
region = json.StringOf("region")
regionName = json.StringOf("regionName")
status = json.StringOf("status")
timezone = json.StringOf("timezone")
zip = json.StringOf("zip")