Visual Basic 6.0

ip2location.io GeoLocation API

See more Geolocation Examples

Demonstrates how to lookup Geolocation data for an IPv4 address using the ip2location.io GeoLocation API. Visual Basic 6.0

Dim success As Long
success = 0

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

Dim http As New ChilkatHttp

' Note: This is not a real API key.  Replace with your own...
success = http.SetUrlVar("api_key","2C312FBC9E667E5A0211F5152E5A1333")
success = http.SetUrlVar("ip_address","8.8.8.8")

' Note: When first creating an ip2location.io account, make sure to at least subscribe to the free access.
' Otherwise your API key will not yet work..
Dim jsonStr As String
jsonStr = http.QuickGetStr("https://api.ip2location.io/?key={$api_key}&ip={$ip_address}&format=json")
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim json As New ChilkatJsonObject
json.EmitCompact = 0
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",
'   "country_code": "US",
'   "country_name": "United States of America",
'   "region_name": "California",
'   "city_name": "Mountain View",
'   "latitude": 37.405992,
'   "longitude": -122.078515,
'   "zip_code": "94043",
'   "time_zone": "-07:00",
'   "asn": "15169",
'   "as": "Google LLC",
'   "is_proxy": false
' }

Dim ip As String
ip = json.StringOf("ip")
Dim country_code As String
country_code = json.StringOf("country_code")
Dim country_name As String
country_name = json.StringOf("country_name")
Dim region_name As String
region_name = json.StringOf("region_name")
Dim city_name As String
city_name = json.StringOf("city_name")
Dim latitude As String
latitude = json.StringOf("latitude")
Dim longitude As String
longitude = json.StringOf("longitude")
Dim zip_code As String
zip_code = json.StringOf("zip_code")
Dim time_zone As String
time_zone = json.StringOf("time_zone")
Dim asn As String
asn = json.StringOf("asn")
Dim v_as As String
v_as = json.StringOf("as")
Dim is_proxy As Long
is_proxy = json.BoolOf("is_proxy")