Wers brauchen kann,
Code
;http://www.google.com/apis/maps/documentation/reference.html
$sKey = " hier den Key holen! -> http://www.google.com/apis/maps/signup.html"
$sQuerry = 'Hörwarthstr 4, München' ; Umlaute müsen nicht URL konforn konvertiert werden
$oHttp = ObjCreate("winHttp.winHttpRequest.5.1";)
$oHttp.open ("GET", "http://maps.google.com/maps/geo?output=csv&key=" & $sKey & "&q=" & $sQuerry)
$oHttp.send ()
$aValue = StringSplit($oHttp.ResponseText, ",";)
Switch $aValue[1]
Case 200
MsgBox(0, "G_GEO_SUCCESS (200)", "Latitude=" & $aValue[3] & @CRLF & "Longitude=" & $aValue[4])
Case 400
MsgBox(0, "G_GEO_BAD_REQUEST (400)", "A directions request could not be successfully parsed.";)
Case 500
MsgBox(0, "G_GEO_SERVER_ERROR (500)", "A geocoding or directions request could not be successfully processed, yet the exact reason for the failure is not known.";)
Case 601
MsgBox(0, "G_GEO_MISSING_QUERY (601)", "The HTTP q parameter was either missing or had no value. For geocoding requests, this means that an empty address was specified as input. For directions requests, this means that no query was specified in the input.";)
Case 602
MsgBox(0, "G_GEO_UNKNOWN_ADDRESS (602)", "No corresponding geographic location could be found for the specified address. This may be due to the fact that the address is relatively new, or it may be incorrect.";)
Case 603
MsgBox(0, "G_GEO_UNAVAILABLE_ADDRESS (603)", "The geocode for the given address or the route for the given directions query cannot be returned due to legal or contractual reasons.";)
Case 604
MsgBox(0, "G_GEO_UNKNOWN_DIRECTIONS (604)", "The GDirections object could not compute directions between the points mentioned in the query. This is usually because there is no route available between the two points, or because we do not have data for routing in that region.";)
Case 610
MsgBox(0, "G_GEO_BAD_KEY (610)", "The given key is either invalid or does not match the domain for which it was given.";)
Case 620
MsgBox(0, "G_GEO_TOO_MANY_QUERIES (620)", "The given key has gone over the requests limit in the 24 hour period.";)
EndSwitch
Alles anzeigen
Gruß
Paule