EncodeDecode example.ahk

#Requires AutoHotkey v1.1.33+
#requires 32 bit version of AutoHotkey
MsgBox % URiEncode("https://the-Automator.com?Src=news&id=1211")


uriDecode(str) {
	Loop
		If RegExMatch(str, "i)(?<=%)[\da-f]{1,2}", hex)
			StringReplace, str, str, `%%hex%, % Chr("0x" . hex), All
	Else Break
		Return, str
}

UriEncode(Uri, full = 0){
	oSC := ComObjCreate("ScriptControl")
	oSC.Language := "JScript"
	Script := "var Encoded = encodeURIComponent(""" . Uri . """)"
	oSC.ExecuteStatement(Script)
	encoded := oSC.Eval("Encoded")
	Return encoded
}

;********************forces 32-bit version***********************************
if ((A_PtrSize != 4 || !A_IsUnicode) && !A_IsCompiled){
	SplitPath,A_AhkPath,, ahkDir
	if (!FileExist(correct := ahkDir "\AutoHotkeyU32.exe"))
	{
		MsgBox, % 0x10, "Error", "Could not find the 32bit unicode version of Autohotkey in:`n" correct
		ExitApp
	}
	Run,"%correct%" "%A_ScriptName%",%A_ScriptDir%
	ExitApp
}