diff --git a/URLDownloadToVar.ahk b/URLDownloadToVar.ahk new file mode 100644 index 0000000..2c9cc4b --- /dev/null +++ b/URLDownloadToVar.ahk @@ -0,0 +1,61 @@ +;---ENVIRONMENT--------------------------------------------------------------------- +#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases. +;#Warn ; Enable warnings to assist with detecting common errors. +;DetectHiddenWindows, On +#SingleInstance, Force +SendMode Input ; Recommended for new scripts due to its superior speed and reliability. +SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory. +;SetKeyDelay, 500 +CoordMode, ToolTip, Screen +CoordMode, Mouse, Screen +;#NoTrayIcon +;Menu, Tray, Icon, ..\Icons\ICONNAMEHERE + +;---Notes/Extra Info/#Includes------------------------------------------------------ + + +;---VARIABLES----------------------------------------------------------------------- + + +;---MAIN SCRIPT--------------------------------------------------------------------- +/* +; Example Code: +#include URLDownloadToVar.ahk +URL = https://www.bitchute.com/video/WdxitRyWLZQ/ +URLContents := URLDownloadToVar(URL) +TextFileName := yyyy . MM . dd . "_URLToVarDownload" +FileAppend, URLContents, %A_ScriptDir%/%TextFileName%.txt +run, %A_ScriptDir%/%TextFileName%.txt + +*/ + +/* +; Example 2 +#SingleInstance,Force +url=https://api.coindesk.com/v1/bpi/currentprice.json ; Plce URL here +Gui,Add,Edit,w800 h500,% URLDownloadToVar(url) +Gui,show, +return + +*/ + +; Example 2 +/*#SingleInstance,Force +url=https://fdrpodcasts.com/api/?method=QueryPodcasts&keyword=4500 ; Plce URL here +url := URLDownloadToVar(url) +url := StrReplace(URL, "\/", "/") + +Msgbox % "url: " url + +Gui,Add,Edit,w800 h500,% URLDownloadToVar(url) +Gui,show, +return + +*/ + +URLDownloadToVar(url){ + hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1") + hObject.Open("GET",url) + hObject.Send() + return hObject.ResponseText +} \ No newline at end of file