Public Sub GetPlaces
Dim Job As HttpJob
Dim iDistance As Int = 1
Dim url As String = "https://maps.googleapis.com/maps/api/place/textsearch/json"
Dim query As String = "?query=French+restaurants&Location=" & currLat & "," & currLng & "&radius=1000m&types=food&key=" & Constants.GOOGLE_PLACES_WEB_API_KEY
Log(url&query)
Job.Initialize("GetEateries", Me)
Job.PostString(url,query)
'
Job.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/35.0.1916.153 Safari/537.36")
Job.GetRequest.SetContentType("application/x-www-form-urlencoded")
End Sub