google api jason add key
$10-30 USD
货到付款
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
项目ID: #17822887
关于项目
授予:
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 更多
有4名威客正在参与此工作的竞标,均价$26/小时
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