Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) ip2location.io GeoLocation APISee more Geolocation ExamplesDemonstrates how to lookup Geolocation data for an IPv4 address using the ip2location.io GeoLocation API. For more information, see https://www.ip2location.io/ip2location-documentation
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New Chilkat.Http Dim success As Boolean ' Note: This is not a real API key. Replace with your own... http.SetUrlVar("api_key","2C312FBC9E667E5A0211F5152E5A1333") 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 = http.QuickGetStr("https://api.ip2location.io/?key={$api_key}&ip={$ip_address}&format=json") If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim json As New Chilkat.JsonObject json.EmitCompact = False success = 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": "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 = json.StringOf("ip") Dim country_code As String = json.StringOf("country_code") Dim country_name As String = json.StringOf("country_name") Dim region_name As String = json.StringOf("region_name") Dim city_name As String = json.StringOf("city_name") Dim latitude As String = json.StringOf("latitude") Dim longitude As String = json.StringOf("longitude") Dim zip_code As String = json.StringOf("zip_code") Dim time_zone As String = json.StringOf("time_zone") Dim asn As String = json.StringOf("asn") Dim v_as As String = json.StringOf("as") Dim is_proxy As Boolean = json.BoolOf("is_proxy") |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.