Terminé

google api jason add key

I have an issue with a google map api script. it has stopt working.

i have the following function and need to add probably need to add only the key.

Public Function GetDat(start As String, dest As String)

Dim firstVal As String, secondVal As String, lastVal As String, cc As Integer

GetDat = 1

firstVal = "[login to view URL]"

secondVal = "&destinations="

lastVal = "&mode=car&language=pl&sensor=false"

Set objHTTP = CreateObject("[login to view URL]")

URL = firstVal & Replace(start, " ", "+") & secondVal & Replace(dest, " ", "+") & lastVal

[login to view URL] "GET", URL, False

[login to view URL] "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

[login to view URL] ("")

If InStr([login to view URL], """distance"" : {") = 0 Then GoTo ErrorHandl

Set regex = CreateObject("[login to view URL]"): [login to view URL] = """value"".*?([0-9]+)": [login to view URL] = False

Set matches = [login to view URL]([login to view URL])

tmpVal = Replace(matches(0).SubMatches(0), ".", [login to view URL](xlListSeparator))

Dist_km = CDbl(tmpVal)

If InStr([login to view URL], """duration"" : {") = 0 Then GoTo ErrorHandl

Set regex = CreateObject("[login to view URL]"): [login to view URL] = "duration(?:.|\n)*?""value"".*?([0-9]+)": [login to view URL] = False

Set matches = [login to view URL]([login to view URL])

tmpVal = Replace(matches(0).SubMatches(0), ".", [login to view URL](xlListSeparator))

Time_sec = CDbl(tmpVal)

cc = InStr([login to view URL], """origin_addresses"" : [")

If cc = 0 Then

GoTo ErrorHandl

Else

New_adr = Mid([login to view URL], cc + 24, 500)

cc = InStr(New_adr, "]") - 3

New_adr = Left(New_adr, cc)

End If

cc = InStr([login to view URL], """destination_addresses"" : [")

If cc = 0 Then

GoTo ErrorHandl

Else

Old_adr = Mid([login to view URL], cc + 29, 500)

cc = InStr(Old_adr, "]") - 3

Old_adr = Left(Old_adr, cc)

End If

Exit Function

ErrorHandl:

Dist_km = 0

Time_sec = 0

New_adr = ""

Old_adr = ""

GetDat = -1

End Function

Compétences : Excel Macros, API Google Maps, JSON

en voir plus : google maps api, free google api key, google maps api key wordpress, google maps api key free, google maps javascript api key, google places api, google api key, google maps client id example, google api key soap, selling google api key, google api soap key help, google api map object expected error issue, give google api soap key, google api click add marker, google api key webservices, google map api php add photo, google api key sale, buy google api key, google api key google pagerank, php google api key

Concernant l'employeur :
( 3 commentaires ) 3612, Switzerland

Nº du projet : #17822887

Décerné à:

SidhuSushma

Hi, Hope you are doing well! I have read your job description along and assure you that I am a perfect fit for the job. I have experience with PHP from last 6 years and I have excellant web development skills Plus

%selectedBids___i_sum_sub_4% %project_currencyDetails_sign_sub_5% USD en 1 jour
(0 Commentaires)
0.0

5 freelance font une offre moyenne de $24 pour ce travail

karlheinz

Hello, Yes, you must be getting OVER_QUERY_LIMIT with the following message: "Keyless access to Google Maps Platform is deprecated. Please use an API key with all your API calls to avoid service interruption. For f Plus

%bids___i_sum_sub_32% %project_currencyDetails_sign_sub_33% USD en 1 jour
(39 Commentaires)
6.1
sloker18

I am proficient with excel macro/VBA development, I have gone through your attached function I can modify the macro to perform the function as expected, if you are interested feel free to message me so we can go over t Plus

%bids___i_sum_sub_32% %project_currencyDetails_sign_sub_33% USD en 1 jour
(12 Commentaires)
3.1
Chitanok

Hello sir, I would like to work on your api key installation project. Would you please share your link so i can check it? Thanks chitano

%bids___i_sum_sub_32% %project_currencyDetails_sign_sub_33% USD en 1 jour
(1 Évaluation)
1.8
ilkecokay

Hello sir, i have examined your script. It is actually working on my excel, returning 1 value or 0 depending, and gets JSON data from google correctly. If you please contact me and give a little more detail about yo Plus

%bids___i_sum_sub_35% %project_currencyDetails_sign_sub_36% USD en 0 jours
(0 Commentaires)
0.0