Sub Activity_Create(FirstTime As Boolean)

	Dim http As HttpJob
	http.Initialize("http",Me)
	http.Download("http://ip-api.com/json")

End Sub



Sub jobdone(job As HttpJob)

	Dim parser As JSONParser
	parser.Initialize(job.GetString)
	Dim root As Map = parser.NextObject
	Dim zip As String
	
	Log( root.Get("zip"))
	
	Dim country As String
	
	Log( root.Get("country"))
	
	Dim city As String
	
	Log( root.Get("city"))
	
	Dim org As String
	
	Log( root.Get("org"))
	
	Dim timezone As String
	
	Log( root.Get("timezone"))
	
	Dim isp As String
	
	Log(	 root.Get("isp"))
	
	Dim query As String
	
	Log( root.Get("query"))
	
	Dim regionName As String
	
	Log( root.Get("regionName"))
	
	Dim lon As Double
	
	Log(	 root.Get("lon"))
	
	Dim As As String
	
	Log( root.Get("as"))
	
	Dim countryCode As String
	
	Log( root.Get("countryCode"))
	
	Dim region As String
	
	Log(	 root.Get("region"))
	
	Dim lat As Double
	
	Log( root.Get("lat"))
	
	Dim status As String
	
	Log( root.Get("status"))

End Sub