با سلام و خیر مقدم شما کاربران عزیز
سورسی که امروز براتون مهیا کردم 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
