Skript:
Code: Select all
; Shortet (kürzt) eine lange Url mit goo.gl:
; vgl.: http://www.autohotkey.com/community/viewtopic.php?t=69643
Googl(URL)
{
Googl := ComObjCreate("WinHttp.WinHttpRequest.5.1")
Googl.Open("POST", "https://www.googleapis.com/urlshortener/v1/url?key=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx")
Googl.SetRequestHeader("Content-Type", "application/json")
Googl.Send("{""longUrl"": """ URL """}")
Zwi := Googl.ResponseText
IfInString, Zwi, "Invalid Value"
Fehler = 1
If (Fehler>0)
{
MsgBox , 16, goo.gl, Fehler bei der Ermittlung der gekürzten Url!, 10
Return
}
Return RegExReplace(Zwi,"s).*""id"": ""(.*?)"".*","$1")
}
Code: Select all
{
"error": {
"errors": [
{
"domain": "usageLimits",
"reason": "accessNotConfigured",
"message": "Project marked for deletion.",
"extendedHelp": "https://console.developers.google.com"
}
],
"code": 403,
"message": "Project marked for deletion."
}
}