Limit: 100 requests per hour
Code: Select all
#NoEnv
#SingleInstance, Force
MsgBox % ExpandURL("tinyurl.com/ahk-unhtml")
MsgBox % ExpandURL("ahkscript.org")
ExpandURL(URL:="") {
Local WinHttpReq
WinHttpReq := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WinHttpReq.Open("GET", "http://expandurl.com/api/v1/?url=" . URL, "True")
WinHttpReq.Send()
WinHttpReq.WaitForResponse()
Return WinHttpReq.ResponseText
}