سورس کد گرفتن مشخصات از کاربر در اینترنت ( json )

با سلام و خیر مقدم شما کاربران عزیز 

 

سورسی که امروز براتون مهیا کردم api  یکی از معتبرترین سایت های گرفتن مشخصات و مختصات و آی پی کاربران در برنامه شما میباشد .

 

سایت مورد نظرhttp://ip-api.com

 

این سایت و این سورس خیلی کار آمد هست .

 

 

به این صورت که شما اطلاعات رو به چندین حالت میتونید بگیرید :

 

  • json
  • batch
  • csv
  • line
  • php
  • xml

 

من یک نمونه از دریافت به صورت جیسون رو براتون میزارم که در این سورس یا قطعه کد ما اومدیم همه رو لاگ کردیم .

 

امید واردم مفید واقع گردد .

 

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