Member 12300036 Ответов: 0

Получаю ошибку в клиенте.downloadstring(URL-адрес), а преобразовать гео codinate местоположение наименование

Public Function GetLocation(ByVal Latitude As String, ByVal Longitude As String) As String
       Dim url As String = String.Format("http://maps.googleapis.com/maps/api/geocode/json?latlng={0},{1}&sensor=true", Longitude, Latitude)
       Dim client As New WebClient()

       Dim value As String = client.DownloadString(url)
       Dim parser As New JavaScriptSerializer()
       Dim info = parser.Deserialize(Of Dictionary(Of String, Object))(value)
       Dim list As New ArrayList()
       list = info("results")
       Dim address As String = String.Empty
       If list.Count > 0 Then
           Dim li As Dictionary(Of String, Object) = DirectCast(list(0), Dictionary(Of String, Object))
           address = li("formatted_address").ToString()
       End If
       Return address
   End Function


Что я уже пробовал:

на самом деле я преобразования гео разработаем для названия мест путем предоставления широта и долгота..
но я получил ошибку в очереди:
Dim value As String = client.DownloadString(url)

Ошибка:
The remote server returned an error: (403) Forbidden.

0 Ответов