Function URLEncode:String(str:String)
		Local ret:String
		
		For Local i:Int = 0 Until str.Length
			Local c:String = str[i..i + 1]
			Local ascii:Int = Asc(c)
			If (ascii >= 0 And ascii <= 31) Or (ascii >= 127 And ascii <= 255) Then
				Local hexstr:String = Hex(ascii)
				Local newhexstr:String = "%" + hexstr[hexstr.Length - 2..hexstr.length]
				ret:+newhexstr
			Else
				c = Replace(c, " ", "%20")'
				c = Replace(c, "!", "%21")
				c = Replace(c, Chr(34), "%22")
				c = Replace(c, "#", "%23")'
				c = Replace(c, "$", "%24")'
				c = Replace(c, "%", "%25")'
				c = Replace(c, "&", "%26")'
				c = Replace(c, "+", "%2B")'
				c = Replace(c, ",", "%2C")'
				c = Replace(c, "/", "%2F")'
				c = Replace(c, ":", "%3A")'
				c = Replace(c, ";", "%3B")'
				c = Replace(c, "<", "%3C")'
				c = Replace(c, "=", "%3D")'
				c = Replace(c, ">", "%3E")'
				c = Replace(c, "?", "%3F")'
				c = Replace(c, "@", "%40")'
				c = Replace(c, "[", "%5B")
				c = Replace(c, "\", "%5C")
				c = Replace(c, "^", "%5E")
				c = Replace(c, "]", "%5D")
				c = Replace(c, "`", "%60")
				c = Replace(c, "{", "%7B")
				c = Replace(c, "|", "%7C")
				c = Replace(c, "}", "%7D")
				c = Replace(c, "~~", "%7E")
				ret:+c
			EndIf
		Next
	
		Return ret
	End Function