#include-once

; corz.org essential (Lite Version) v1.2.1.2
;
; Commonly-used AutoIt functions.

#include <GuiConstants.au3>
#include <Misc.au3>
#include <Date.au3>
#include <GuiToolTip.au3>
#include <WinAPIFiles.au3>
#include <InetConstants.au3>
#include <WinNet.au3>
; for clean ini..
#include <File.au3>
#include <String.au3>
#include <GuiEdit.au3>

; Setup a few variables..
global const $LOG_LF			= @CRLF	; for logs/saved text files/console
global const $MSG_LF			= @LF	; for dialog boxes, etc.

; These make great AutoIt Booleans for sooooooo many reasons..
global const $ON				= $GUI_CHECKED			; 1
global const $OFF				= $GUI_UNCHECKED		; 4
global const $UNSET				= $GUI_INDETERMINATE	; 2

; For "humanizing" AutoIt booleans (and for reporting/display purposes)..
global const $STR_ENABLED		= "enabled"
global const $STR_DISABLED		= "disabled"

global const $DEF_MSG_TIME		= 2000

; Handy for Win10 GUI stuff..
global const $COLOR_LTGREY		= 0xD0D0D0

; So we can do GUICtrlSetData($ctrl, $state[$some_ON/OFF_bool])
; global $state[5] = [0, $str_enabled, 0, 0, $str_disabled]
; Nice idea, but Human($pref) gets you the same result and is more easily understood.

; I use these variables meaningfully. Check them out!
; You can override these in your app, if required.
global $dump_file
global $debug_level = 10
global $max_debug_log_size = 0 ; 0 = no limit, or a number (in MB). Set in ini prefs.

global $my_name, $my_domain, $data_dir, $ini_path
global $log_string, $log_location
global $max_log_size = 0 ; 0 = no limit, or a number (in MB)

global $monitors_list[1][5]
$monitors_list[0][0] = 0
global $do_tooltips
global $tip_icon = @ScriptFullPath & ",0"
global $tip_style = 1
global $tooltip_time = 10000

; For UpdateIniFile()..
global $file_array, $new_array[1]

; Set to true during Send() operations [SendWait()]
global $am_sending

; Associative arrays in AutoIt? Hells yeah!
global $oMyError = ObjEvent("AutoIt.Error", "AAError") ; Initialize a COM error handler
; Initialize your array in your script.au3 ...
; global $associative_array
; AAInit($associative_array)

; ***	don't forget to.. 	AAWipe($associative_array)


; Enable the creation of a list of user token, for save/recall..
global $known_user_tokens[1][2]



; Constants for Special Folders in Windows..

Const $Internet_Explorer						= 0x1
Const $Programs									= 0x2
Const $Control_Panel							= 0x3
Const $Printers_and_Faxes						= 0x4
Const $My_Documents								= 0x5
Const $Favorites								= 0x6
Const $Startup									= 0x7
Const $My_Recent_Documents						= 0x8
Const $SendTo									= 0x9
Const $Recycle_Bin								= 0xa
Const $Start_Menu								= 0xb
Const $My_Music									= 0xd
Const $My_Videos								= 0xe
Const $Desktop									= 0x10
Const $My_Computer								= 0x11
Const $My_Network_Places						= 0x12
Const $NetHood									= 0x13
Const $Fonts									= 0x14
Const $Templates								= 0x15
Const $All_Users_Start_Menu						= 0x16
Const $All_Users_Programs						= 0x17
Const $All_Users_Startup						= 0x18
Const $All_Users_Desktop						= 0x19
Const $Application_Data							= 0x1a
Const $PrintHood								= 0x1b
Const $Local_Settings_Application_Data			= 0x1c
Const $All_Users_Favorites						= 0x19
Const $Local_Settings_Temporary_Internet_Files	= 0x20
Const $Cookies									= 0x21
Const $Local_Settings_History					= 0x22
Const $All_Users_Application_Data				= 0x23
Const $Windows									= 0x24
Const $System32									= 0x25
Const $Program_Files							= 0x26
Const $My_Pictures								= 0x27
Const $User_Profile								= 0x28
Const $Common_Files								= 0x2b
Const $All_Users_Templates						= 0x2e
Const $Administrative_Tools						= 0x2f
Const $Network_Connections						= 0x31
Const $CD_Burning_Folder						= 0x003b


; OpenSpecialFolder($Recycle_Bin) ..

func OpenSpecialFolder($Folder_ID)
	local $ShellObj = ObjCreate("Shell.Application")
	$ShellObj.Open($ShellObj.NameSpace($Folder_ID))
	$ShellObj = 0
endfunc

; func GetSpecialFolderPath($Folder_ID)
	; $ShellObj = ObjCreate("Shell.Application")
	; $objFolder = $ShellObj.NameSpace($Folder_ID)
	; $objFolderItem = $objFolder.ParseName("Desktop")
	; $ret  = $objFolder.GetDetailsOf($objFolderItem, 0)
	; ; $ShellObj = 0
	; return $ret
; endfunc




; Generic File & Folder Opening function.
;
; If it's a file, opens the given file in the user's editor.
; If it's a directory, opens in Explorer.
;
func OpenSomething($filepath, $use_log_viewer=false)

	debug("OpenSomething: =>" & $filepath & "<=" , @ScriptLineNumber, 7);debug

	if not FileExists($filepath) then
		debug($filepath & " not found!", @ScriptLineNumber, 1);debug
		return false
	endif

	if IsDir($filepath) then
		if not WinExists($filepath) then
			debug("Opening: =>" & $filepath & "<=" , @ScriptLineNumber, 7);debug
			Run("Explorer.exe """ & $filepath & '"')
			;ShellExecute($filepath)
		else
			WinActivate($filepath)
		endif

	else
		local $user_editor = DeTokenizeString(IniRead($ini_path, $my_name, "editor", "notepad.exe"))

		if $use_log_viewer then
			local $log_viewer = DeTokenizeString(IniRead($ini_path, $my_name, "log_viewer", ""))
			if FileExists($log_viewer) then $user_editor = $log_viewer
		endif

		if not Run($user_editor & " " & $filepath) then
			debug("ERROR! I couldn't run:" & '"' & $user_editor & '"', @ScriptLineNumber, 7);debug
			debug("You need to check your ini settings! ", @ScriptLineNumber, 7);debug
		endif
	endif
endfunc




; Functions that use it..
; These are standard in all apps that use this library..

; Open debug dump file..
func OpenDumpFile()
	OpenSomething($dump_file)
endfunc

; User data dir..
func OpenDataDir()
	OpenSomething($data_dir)
endfunc

; Edit ini prefs..
func EditIniFile()
	;OpenSomething($ini_path)
	ShellExecute($ini_path)
endfunc

; Open log file..
func OpenLogFile()
	ShellExecute($log_location)
endfunc


; Display a ToolTip message slightly up from the mouse position..
; pass $screen=true to place it instead at the centre-top of the screen.
func DisplayTooltipMessage($message, $time=$DEF_MSG_TIME, $title=$my_name, $screen=false) ; $DEF_MSG_TIME = 2000

 debug("", @ScriptLineNumber, 7);debug
 debug("DisplayTooltipMessage(" & $message & "," & $time  & "," & $title & ")", @ScriptLineNumber, 7);debug

	local $x, $y
	if not $screen then
		local $mousepos = MouseGetPos()
		$x = $mousepos[0]
		$y = $mousepos[1]-16
	else
		$x = (@DesktopWidth/2)-StringLen($message)*3
		$y = 32
	endif

	ToolTip($message, $x, $y, $title, 1)
	debug("Displaying Message: =>" & $message & "<=" , @ScriptLineNumber, 7);debug
	AdLibRegister("ClearMessage", $time)

endfunc

; Clears the above message.
func ClearMessage()
 debug("", @ScriptLineNumber, 7);debug
 debug("ClearMessage()", @ScriptLineNumber, 7);debug
	ToolTip("")
	AdLibUnRegister("ClearMessage")
endfunc



#cs

	Optional ToolTips

	Set a tooltip or don't, dependant on the global $do_tooltips variable,
	which you should set first, generally when gathering global prefs.

	This is a drop-in replacement for GUICtrlSetTip() and will happily
	work in this simple state.

	$options: these numbers can be added together..

		1 = Display as Balloon Tip
		2 = Centre the tip horizontally under the control
		And so on. See below this function for more details.

#ce
func GUICtrlSetTipOptional($control_ID, $tip_text=default, $title=default, $icon=default, $options=default)

	if $do_tooltips = $OFF then return

	if $tip_text = default then $tip_text = ""
	if $title = default then $title = "Information:"
	if $icon = default then $icon = $tip_icon
	if $options = default then $options = $tip_style

	; $options = BitOr($tip_style, $TTF_SUBCLASS, $TTF_IDISHWND, $TTF_PARSELINKS)
	; $options = $tip_style

	local $style = 0, $hicon, $ret
	$control_ID = GUICtrlGetHandle($control_ID)

	if BitAND($options, 1) then $style = $TTS_BALLOON
	$style = BitOr($style, $TTS_ALWAYSTIP)


	local $hToolTip = _GUIToolTip_Create(0, $style)

	$options = BitOr($options, $TTF_SUBCLASS, $TTF_IDISHWND)
	_GUIToolTip_AddTool($hToolTip, 0, $tip_text, $control_ID, default, default, default, default, $options, 0)

	; Time the pointer must remain stationary within a tool's bounding rectangle before the window appears.
	_GUIToolTip_SetDelayTime($hToolTip, $TTDT_INITIAL, 400)	; (500ms)
	; Time the ToolTip window remains visible if the pointer is stationary within a tool's bounding rectangle.
	_GUIToolTip_SetDelayTime($hToolTip, $TTDT_AUTOPOP, $tooltip_time) ; (5000ms)
	; Time it takes for subsequent ToolTip windows to appear as the pointer moves from one tool to another.
	_GUIToolTip_SetDelayTime($hToolTip, $TTDT_RESHOW, 150) ; (100ms)

	if not StringInStr($icon, ".") then
		_GUIToolTip_SetTitle($hToolTip, $title, $icon)
	else
		$hicon = DllStructCreate("ptr")
		$icon = StringSplit($icon, ",")
		if $icon[0] > 1 then
			$ret = DllCall("shell32.dll", _
									"uint", _
									"ExtractIconExW", _
									"wstr", $icon[$icon[0] - 1], _
									"int", -1 * (Int($icon[$icon[0]])), _
									"ptr", 0, _
									"ptr", DllStructGetPtr($hicon), _
									"uint", 1)
			if not @error and $ret[0] then
				$hicon = DllStructGetData($hicon, 1)
			else
				$hicon = 0
			endif
			_GUIToolTip_SetTitle($hToolTip, $title, $hicon)
			DllCall("user32.dll", "none", "DestroyIcon", "handle", $hIcon)
		endif
	endif

	return $hToolTip
endfunc

#cs

	[optional] Flags that control the ToolTip display:

		global Const $TTF_IDISHWND = 0x00000001		- Indicates that $iID is a window or control handle, instead of the ID of the tool
		global Const $TTF_CENTERTIP = 0x00000002	- Centers the tooltip below the control specified by $iID
		global Const $TTF_RTLREADING = 0x00000004	- Indicates that text will be displayed in opposite direction of the parent window
													  (see remarks)
		global Const $TTF_SUBCLASS = 0x00000010		- Indicates that the control should subclass the tool's window
		global Const $TTF_TRACK = 0x00000020		- Positions the tooltip window next to the tool to which it corresponds
		global Const $TTF_ABSOLUTE = 0x00000080		- Positions the window at the same coordinates provided by TTM_TRACKPOSITION.
													  (see remarks)
		global Const $TTF_TRANSPARENT = 0x00000100	- Causes the control to forward mouse messages to the parent window
		global Const $TTF_PARSELINKS = 0x00001000	- Indicates that links in the control text should be displayed as links
		global Const $TTF_DI_SETITEM = 0x00008000

		Default = BitOr($TTF_SUBCLASS, $TTF_IDISHWND)

	_GUIToolTip_Create STYLE

		$TTS_ALWAYSTIP (0x01)	- Indicates that the ToolTip control appears when the cursor is on a tool even if the
								  ToolTip control's owner window is inactive.
								  Without this style, the ToolTip appears only when the tool's owner window is active.
		$TTS_NOPREFIX (0x02)	- Prevents the system from stripping the ampersand character from a string.
								  Without this style the system automatically strips ampersand characters.
								  This allows an application to use the same string as both a menu item and as text in a ToolTip control.
		$TTS_NOANIMATE (0x10)	- Disables sliding ToolTip animation.
		$TTS_NOFADE (0x20)		- Disables fading ToolTip animation.
		$TTS_BALLOON (0x40)		- Indicates that the ToolTip control has the appearance of a cartoon "balloon"
		$TTS_CLOSE (0x80)		- Displays a close icon so that the tooltip can be cancelled

		Default: $_TT_ghTTDefaultStyle = BitOr($TTS_ALWAYSTIP, $TTS_NOPREFIX)

Icon idx..

	 [optional] Set to one of the values below:.
		 $TTI_NONE (0) - No icon [default]
		 $TTI_INFO (1) - Information icon
		 $TTI_WARNING (2) - Warning icon
		 $TTI_ERROR (3) - Error Icon
		 $TTI_INFO_LARGE (4) - Large Information Icon
		 $TTI_WARNING_LARGE (5) - Large Warning Icon
		 $TTI_ERROR_LARGE (6) - Large Error Icon
#ce




; Dynamic @Tokens..
;
;
; There are 10 path tokens, 8 time tokens and 2 dimension tokens, as well as one
; clipboard token, one date token and lastly, user-definable variable tokens.
;
; The usual error checking has been omitted here - let the user have some fun!
;
func DeTokenizeString($string, $inipath=$ini_path, $section=$my_name, $pref="date_format")

 debug("", @ScriptLineNumber, 7);debug
 debug("DeTokenizeString(" & $string & ")", @ScriptLineNumber, 7);debug

	if not $string then return $string
	if not StringInStr($string, "@") then return $string

	; Replace user @tokens first (they may contain other tokens)
	$string = DeUserTokenizeString($string)
	; If not, return the string now..
	if not StringInStr($string, "@") then return $string

	; Special @ClipBoard @Token..
	$string = StringReplace($string, "@ClipBoard", ClipGet())

	; Date/Time @tokens..
	$string = DeTokenizeTimeStrings($string)
	$string = ReplaceDateTimeToken($string)
	$string = ReplaceDateToken($string, $inipath, $section, $pref)

	; Path @tokens..
	; We still replace these when $path=false
	$string = ReplacePathToken($string)

	debug("DeTokenizeString() RETURNING: =>" & $string & "<=", @ScriptLineNumber, 7);debug
	return $string
endfunc

func DeTokenizeTimeStrings($string)
	$string = StringReplace($string, "@MSec", @MSec)
	$string = StringReplace($string, "@Sec", @Sec)
	$string = StringReplace($string, "@Min", @Min)
	$string = StringReplace($string, "@Hour", @Hour)
	$string = StringReplace($string, "@MDay", @MDay)
	$string = StringReplace($string, "@Mon", @Mon)
	$string = StringReplace($string, "@Year", @Year)
	$string = StringReplace($string, "@WDay", @WDay)
	$string = StringReplace($string, "@YDay", @YDay)
	$string = StringReplace($string, "@Time", _NowTime())

	return $string
endfunc

func ReplaceDateToken($string, $inipath=$ini_path, $section=$my_name, $pref="date_format")
	$string = StringReplace($string, "@Date", GetUserDate($inipath, $section, $pref))
	return $string
endfunc


; DateTime0		>>		DateTime5



func ReplaceDateTimeToken($string)
	local $test = StringRegExp ($string, "(@DateTime([0-5]))", $STR_REGEXPARRAYMATCH)
	if IsArray($test) and $test[0] and $test[1] then
		local $datetime = _DateTimeFormat(_NowCalc(), Int($test[1]))
		$string = StringReplace($string, $test[0], $datetime)
	endif
	return $string
endfunc



; We may be inside DeTokenizeString() here..
func GetUserDate($inipath=$ini_path, $section=$my_name, $pref="date_format")
	return DeTokenizeTimeStrings(IniRead($inipath, $section, $pref, @Year & "-" & @Mon & "-" & @Mday))
endfunc


func ReplacePathToken($string)
	if $data_dir <> "" then
		$string = StringReplace($string, "@DataDir", $data_dir)
		$string = StringReplace($string, "@ScriptsDir", $data_dir & "\Scripts")
	endif
	$string = StringReplace($string, "@Documents", @MyDocumentsDir)
	$string = StringReplace($string, "@MyDocuments", @MyDocumentsDir)
	$string = StringReplace($string, "@MyDocumentsdir", @MyDocumentsDir)
	$string = StringReplace($string, "@Desktop", @DesktopDir)
	$string = StringReplace($string, "@TempDir", @TempDir)
	$string = StringReplace($string, "@ThisApp", @ScriptFullPath)
	$string = StringReplace($string, "@KeyBind", @ScriptFullPath)
	$string = StringReplace($string, "@Me", @UserName)
	$string = StringReplace($string, "@User", @UserName)
	$string = StringReplace($string, "@UserName", @UserName)
	$string = StringReplace($string, "@ConfigEditor", GetParent(@ScriptFullPath) & "\" & $my_name & "Config.exe")

	$string = StringReplace($string, "@HomeDir", @HomeDrive & @HomePath)
	$string = StringReplace($string, "@HomeDrive", @HomeDrive)
	$string = StringReplace($string, "@HomePath", @HomePath)
	$string = StringReplace($string, "@ProgramFiles", @ProgramFilesDir)
	$string = StringReplace($string, "@UserDir", @UserProfileDir)
	$string = StringReplace($string, "@UserProfileDir", @UserProfileDir)
	; $string = StringReplace($string, "@outputfile", $outputfile)
	return $string
endfunc

;
; Debugging is like particles and waves. With a shitload of debugging lines, you
; can't read the code, but you can read the debug output OK. It's code or debug
; output, never both at once (unless you leave your debug output open and then
; remove the debug lines to study both, but hey! It's nice philosophy!).
;


; User @tokens.
;
; 16 AlphaNumeric Characters Maximum.
;
; User variables will be named "var_VARIABLE_NAME"
; They will be declared using Assign(), with the Global flag.
;
;2do.. dumb - doesn't know there are no user @tokens. or what @token are starndard @token
;2do - take this out of main Detokenize and call separately when required.
;
func DeUserTokenizeString($string)

 debug("", @ScriptLineNumber, 7);debug
 debug("DeUserTokenizeString(" & $string & ")", @ScriptLineNumber, 7);debug
 debug_PrintArray($known_user_tokens, "cel.au3 :: $known_user_tokens:", @ScriptLineNumber, 7);debug

	if not StringInStr($string, "@") then return $string

	local $this_token, $maybe_token
	local $split_string = StringSplit($string, "@")

	for $i = 2 to $split_string[0] ; first element is /definitely/ not a @token.

		$this_token = ""
		$maybe_token = $split_string[$i]

		debug("$maybe_token: =>" & $maybe_token & "<=", @ScriptLineNumber, 7);debug

		; Remove everything after the alphanumerics and underscores..
		$this_token = StringRegExpReplace($maybe_token, "(\w+).*", "\1", 1)
		debug("Test $this_token: =>" & $this_token & "<=", @ScriptLineNumber, 7);debug

		; We got the length of the first Alphanumeric string.
		; Now test if that is a valid @token..

		; This @token assigned already (we double-check here)..
		if InArray2D($known_user_tokens, $this_token, 0) and IsDeclared ("var_" & $this_token) then

			debug("SUCCESS!! Found USER Variable: =>@" & $this_token & "<=", @ScriptLineNumber, 7);debug
			; Replace the @token with the user's variable value..
			local $token_val = Eval("var_" & $this_token)
			debug("Assign USER Value: " & $this_token & " => " & $token_val & "<=", @ScriptLineNumber, 7);debug
			$split_string[$i] = StringReplace($maybe_token, $this_token, $token_val)

		else ; no var of that name assigned., or empty ("@@")!!.
			debug("No Such User Token as @" & $this_token & "!", @ScriptLineNumber, 7);debug
			; Continue on, use it as-is (was) replacing the @ we took..
			$split_string[$i] = "@" & $maybe_token

		endif

	next
	
; 2do : check changes to CRT() have not impacted ArrayJoin() with empty delimiter. TEST!
;

	; Pop all the pieces back together again..
	debug_PrintArray($split_string, "cel.au3 :: $split_string:", @ScriptLineNumber, 7);debug
	$string = ArrayJoin($split_string, "")
	debug("DeUserTokenizeString() RETURNING: =>" & $string & "<=", @ScriptLineNumber, 7);debug

	return $string

endfunc


; Tokenize a string (create macro tokens).
; Start with longest paths..
;
func TokenizeString($string, $path=true)
	if not $string then return $string
	if $path then $string = FixPathSlashes($string)
	if $data_dir <> "" then
		$string = StringReplace($string, $data_dir & "\Scripts", "@ScriptsDir")
		$string = StringReplace($string, $data_dir, "@DataDir")
	endif
	$string = StringReplace($string, @DesktopDir, "@Desktop")
	$string = StringReplace($string, @MyDocumentsDir, "@MyDocuments")
	$string = StringReplace($string, @HomeDrive & @HomePath, "@HomeDir")
	$string = StringReplace($string, @UserProfileDir, "@UserDir")
	$string = StringReplace($string, @TempDir, "@TempDir")
	$string = StringReplace($string, @ScriptFullPath, "@ThisApp")
	$string = StringReplace($string, @ProgramFilesDir, "@ProgramFiles")
	return $string
endfunc





; Fix potentially messed-up slashes..
func FixPathSlashes($string)
	if StringInStr($string, "://") then return $string ; but not for URLs
	; Watch out! We don't want to "fix" flags, like: del /f /q "C:\some/path\*.*"
	$string = StringRegExpReplace($string, "(.+)([^ ])/", "\1\2\\")
	$string = StringReplace($string, "\\", "\")
	return $string
endfunc





; Conditional Right/Left Trim
;
; If the far-right character(s) is(are) such-and-such, remove it(them).
; Handy for normalizing path ends and other stuff.
;
; Because we need this sort of thing quite a lot..
;
;	if StringRight($string, 1) = "\" then $string = StringTrimRight($string, 1)
;
; Functions work on the string byref; you simply do:
;
;	CRT("my string")
;
; The idea of the names is; quick to type.
;
; These functions return a positive integer if any changes were made, the
; integer being the number of changes performed. Otherwise 0, so you can
; optionally set a variable from their return value..
;
;	$contains_modifier = CRT("my string")
;
; or use them in conditional statements..
;
;	if CRT("my string") then ...
;
; So..
func CRT(byref $string, $character="\")
	local $ret = 0, $char_num = StringLen($character)
	if StringRight($string, $char_num) == $character then 
		while StringRight($string, $char_num) == $character
			$ret += 1
			$string = StringTrimRight($string, $char_num)
		wend
	endif
	return $ret
endfunc


; And for the left-hand side..
; The default character here is a space..
func CLT(byref $string, $character=" ")
	local $ret = 0, $char_num = StringLen($character)
	while StringLeft($string, $char_num) == $character
		$ret += 1
		$string = StringTrimLeft($string, $char_num)
	wend
	return $ret
endfunc


; And now both together..
; Note different default character.
; This double-function wrapper is mostly used for prefs lists.
;
; You can, however, send your own replacement character(s)..
;
; Either specify one character to use it for both left and right,
; or specify both left and right characters.
;
func CBT(byref $string, $character_left=default, $character_right=default)
	if $character_left = default then $character_left = ","
	if $character_right = default then $character_right = $character_left
	local $ret = 0
	$ret += CLT($string, $character_left)
	$ret += CRT($string, $character_right)
	return $ret
endfunc






; Strip off any leading white space and pad with exact number of <$pad_string>.
; Used to separate parameters on the command-line (we add a space " ").
;
func PadLeft($string, $pad_string=" ", $number=1)
	$string = StringStripWS($string, 1)
	$string = _StringRepeat($pad_string, $number) & $string
	return $string
endfunc




; Test if a file can be written to a location..
;
func TestFileWrite($tmpfile)
	local $t = FileWrite($tmpfile, "")
	if $t <> 1 then return false
	FileDelete($tmpfile)
	return true
endfunc




; BubbleSort()
;
; A very basic, but very handy array sort.
; Designed for small lists; menus and such-like, where it excels.
; Purist can kiss my butt, this is simple, and elegant.
;
; NOTE: this is for "AutoIt Arrays", where the first value is
; the total number of elements. Basically, it will be left as-is.
; Also note, this is a case-insensitive search.
;
; To use..		BubbleSort($my_array)
;
func BubbleSort(byref $bs_array)
	for $i = uBound($bs_array)-1 to 1 step -1
		for $j = 2 to $i
			if $bs_array[$j-1] > $bs_array[$j] then
				local $temp = $bs_array[$j-1]
				$bs_array[$j-1] = $bs_array[$j]
				$bs_array[$j] = $temp
			endif
		next
	next
	return $bs_array
endfunc
;
; By the way, it should be noted that I have no idea why this works.
; Technically, using strings as numbers in AutoIt should implicitly call
; Number() and all "words" would be 0. But it does work, and works great!
; Hmmm.



; InsertionSort()
;
; Slightly different results, here.
; Simple algo, good for lists of numbers, and pretty fast, too..
;
func InsertionSort(byref $is_array)
	for $i = 1 to uBound($is_array)-1
		local $index = $is_array[$i]
		local $j = $i
		while $j > 1 and $is_array[$j-1] > $index
			$is_array[$j] = $is_array[$j-1]
			$j -= 1
		wend
		$is_array[$j] = $index
	next
	return $is_array
endfunc
; mail me if you want an AutoIt version of the QuickSort algo




; ShellSort()
; Invented by Donald Shell, 1959.
;
; More efficient than a BubbleSort.
; Good for repetative sorting of smaller lists.
; Neck-and-neck with InsertionSort in most of my tests.
;
; Note: This is designed for "AutoIt Arrays" (first element it the total).
;
func ShellSort(byref $some_array)

	local $increment = 1
	while $increment > 0

		for $i = 2 to uBound($some_array)-1
			local $j = $i
			local $temp = $some_array[$i]

			while $j >= $increment and $some_array[$j-$increment] > $temp
				$some_array[$j] = $some_array[$j-$increment]
				$j = $j - $increment
			wend
			$some_array[$j] = $temp
		next

		if $increment/2 <> 0 then ; ?
			$increment = int($increment/2)
		elseif $increment = 1 then
			$increment = 0
		else
			$increment = 1
		endif
	wend
	return $some_array
endfunc




; MaxMax()
;
; Evaluates two or three numbers and returns the highest.
; Because _Max($a,(_Max($b,$c)) is just plain ugly.
;
func MaxMax($num1, $num2, $num3=1.7E-308)
	if not IsNumber($num1) or not IsNumber($num2) or not IsNumber($num3) then return
	if $num1 > $num2 then
		if $num3 > $num1 then return $num3
		return $num1
	else
		if $num3 > $num2 then return $num3
		return $num2
	endif
endfunc



; MinMin()
;
; Evaluates two or three numbers and returns the smallest.
;
func MinMin($num1, $num2, $num3=1.7E+308)
	if not IsNumber($num1) or not IsNumber($num2) or not IsNumber($num3) then return
	if $num1 > $num2 then
		if $num3 < $num2 then return $num3
		return $num2
	else
		if $num3 < $num1 then return $num3
		return $num1
	endif
endfunc


; String format, a-la C..
;
func printf($format, $var1, $var2=-1, $var3=-1)
	if $var2=-1 then
		return StringFormat($format, $var1)
	else
		return StringFormat($format, $var1, $var2, $var3)
	endif
endfunc




; Repeats a given string a given number of times..
;
func StringRepeat($string, $count)
	$count = Int($count)
	if not $count then return ""
	if not StringLen($string) then return SetError(-1, 0, "Invalid Parameters sent.")
	local $return
	while $count
		$return &= $string
		$count -= 1
	wend
	return $return
endfunc






; A pipe is the delimiter used in ListViews, to separate columns.
; Obviously, literal pipes in our ListViews would cause all sorts of issues.
;
; So, when adding them to the ListView, we translate them into this identical-
; looking Unicode character. And back again when pulling them out. Simple.
;
; This is all completely transparent to the user, unless they happen across
; these comments somehow, in which case the game is up and I'm sure they will be
; absolutely furious.
;
; On Hebrew systems it probably shows up as a Star of David and then the joke is
; on me.
;
; These two functions are for when, for some reason, we can't do..
;
;	AutoItSetOption("GUIDataSeparatorChar", "") ; A Record Separator, Chr(30).
;
; FYI, good ole ASCII provides..
;
;	Chr(28):		File separator
;	Chr(29):		Group separator
;
; ..in addition to the most appropriate separator for ListViews..
;
;	Chr(30):		Record separator
;
; By the way, if you /don't/ see a cute box with "RS" in it (or similar cute
; character), I can only assume you are using some piece-of-shit text editor not
; fit to view this code. In that case, go upgrade to something decent, eh!
; Notepad++ is free!	>>	https://notepad-plus-plus.org/
;
func Str2LV($string)
	return StringReplace($string, "|", "ǀ")		; ǀ <> | !		[U+01C0]
endfunc
func LV2Str($string)
	return StringReplace($string, "ǀ", "|")
endfunc
;
; NOTE: If you grab a task from the ListView in your code and forget to use this
; translations, you will be in for a debugging nightmare trying to figure out
; why "ǀfoo" is not equal to "|foo" when, you know, they LOOK THE SAME ...




; CleanPath()
;
; Clean-up potentially problematic file path characters..
;
func CleanPath($string, $chr="~")
	; $string = StringReplace($string, " ", "_")
	$string = StringReplace($string, "|", $chr)
	$string = StringReplace($string, '"', "'")
	$string = StringReplace($string, ":", $chr)
	$string = StringReplace($string, "*", $chr)
	$string = StringReplace($string, "/", $chr)
	$string = StringReplace($string, "\", $chr)
	$string = StringReplace($string, ">", $chr)
	$string = StringReplace($string, "<", $chr)
	$string = StringReplace($string, "?", $chr)
	return $string
endfunc


; CleanPrefName()
;
; Make a string safe to use in an ini [section pref name]..
;
func CleanPrefName($string, $translate_spaces=true)
	$string = CleanPath($string)
	if $translate_spaces then $string = StringReplace($string, " ", "_")
	$string = StringReplace($string, '"', "_")
	$string = StringReplace($string, "'", "_")
	$string = StringReplace($string, "=", "_")
	$string = StringReplace($string, "[", "_")
	$string = StringReplace($string, "]", "_")
	$string = StringReplace($string, "(", "_")
	$string = StringReplace($string, ")", "_")
	$string = StringReplace($string, ".", "_")
	$string = StringReplace($string, ",", "_")
	$string = StringReplace($string, "-", "_")
	return $string
endfunc




; BaseName()
;
; Get the base name of a file from a full path..
; In other words; returns the path name without the folders part (ie. file name only)

func BaseName($bn_path)
	$bn_path = StringReplace($bn_path, "/", "\")
	CRT($bn_path)
	local $parts = StringSplit($bn_path, "\")
	local $bn_tmp = $parts[$parts[0]]
	CRT($bn_tmp, ":")
	return $bn_tmp
endfunc



; GetParent()
;
; Returns the parent directory of a given file or directory path..

func GetParent($gp_dir)
	local $gp_full_path = StringSplit($gp_dir, "\") ; array
	return StringTrimRight($gp_dir, StringLen($gp_full_path[$gp_full_path[0]]) + 1) ; 1 = "\"
endfunc





; GetExtension()
;
; Returns the extension of a file name, e.g. "txt"
; If the file has no extension, returns a blank "" string

func GetExtension($some_name)
	local $parts = StringSplit($some_name, ".")
	local $e = $parts[$parts[0]]
	; "." was not found - extensionless file, possibly in a path with a dot..
	if $e <> $some_name and not StringInStr($e, "\") then
		return $e
	else
		return ""
	endif
endfunc


; RemoveExtension()
;
; Removes the extension of a file name (including the dot ".")
; Requires the above functions.
; Also works for folders.
;
func RemoveExtension($some_name)
	local $add = 0
	if StringInStr(BaseName($some_name), ".") then $add = 1 ; might not have an extension
	return StringTrimRight($some_name, StringLen(GetExtension($some_name)) + $add)
endfunc


; CleanName()
;
; Returns a file name minus the path AND the extension.
; Basically does two of the above functions, all-in-one..
;
func CleanName($some_name)
	return RemoveExtension(BaseName($some_name))
endfunc


; SimpleProper()
;
; Very simple version of StringProper
; Capitalizes the first letter of a given ASCII string.
;
func SimpleProper($string)
	local $first_chr = Asc(StringLeft($string, 1))
	if $first_chr < 97 or $first_chr > 122 then return $string
	$string = Chr($first_chr-32) & StringMid($string, 2)
	return $string
endfunc


; A2RBool()
;
; Convert my AutoIt boolean ($ON=1,$OFF=4) to regular boolean (on=1,off=0)
; Handy for converting prefs to functions that require regular normal booleans,
; e.g..
;
; 	WinSetOnTop($GUI, "", A2RBool($always_on_top))
;
; Basically converts 4 into 0 and anything else into 1.
;
func A2RBool($autoit_boolean)
	if $autoit_boolean == $OFF then return 0
	return 1
endfunc


; MakeTheParents()
;
; If the parent directories of a file do not exist, create them..
;
func MakeTheParents(byref $file_path)
	if not FileExists(GetParent($file_path)) then
		DirCreate(GetParent($file_path))
	endif
endfunc


; MakeAFile()
;
; If a file does not exist, create it..
;
func MakeAFile(byref $file_path)
	if not FileExists($file_path) then
		local $target_file = FileOpen($file_path, 2)
		FileClose($target_file)
	endif
endfunc



#cs
 AppendFileData()

 Append the contents of $data_file to the end of $target_file..

 $flags are the usual FileOpen flags, which apply to opening $data_file.
 Obviously you don't want to send any WRITE flags. Nincompoop!
 But this is handy for forcing binary reading, or whatever..

 Useful flags:

    $FO_READ (0) = Read mode (default)	(Auto-Detects Encoding)
    $FO_BINARY (16) = Force binary (byte) data mode.
    $FO_UNICODE or $FO_UTF16_LE (32) = Use Unicode UTF16 Little Endian reading and writing mode.
    $FO_UTF16_BE (64) = Use Unicode UTF16 Big Endian reading and writing mode.
    $FO_UTF8 (128) = Use Unicode UTF8 (with BOM) reading and writing mode.
    $FO_UTF8_NOBOM (256) = Use Unicode UTF8 (without BOM) reading and writing mode.
    $FO_ANSI (512) = Use ANSI reading and writing mode.
    $FO_UTF16_LE_NOBOM (1024) = Use Unicode UTF16 Little Endian (without BOM) reading and writing mode.
    $FO_UTF16_BE_NOBOM (2048) = Use Unicode UTF16 Big Endian (without BOM) reading and writing mode.
    $FO_FULLFILE_DETECT (16384) = When opening for reading and no BOM is present, use the entire file to
								  determine if it is UTF8 or UTF16. If this is not used then only the
								  initial part of the file (up to 64KB) is checked for performance reasons.
#ce
func AppendFileData($target_file, $data_file, $flags=0)

	$data_file = FileOpen($data_file, $flags)
	local $file_data = FileRead($data_file)
	FileClose($data_file)

	$target_file = FileOpen($target_file, 1)
	local $return = FileWrite($target_file, $file_data)
	FileClose($target_file)

	return $return

endfunc




; GetWinDrive()
;
; Returns the parent DRIVE of a given path..
;
; "I:\temp\test\musk.mp3" >> returns: I
;
; Invalid (or UNC) paths return an empty string.
;
func GetWinDrive($gd_path)
	select
		case StringMid($gd_path, 2, 1) == ":"
			return StringLeft($gd_path, 1)
		case else
			return ""
	endselect
endfunc


; LnkToReal()
;
; Convert shortcut to its real target path.
; If link is invalid, returns false.
; If file path sent is not a .lnk file, returns the path that was sent.
; So you can safely insert it into any user's path choosing operation.
;
func LnkToReal($file)
	if GetExtension($file) = "lnk" then
		local $lnk_arr = FileGetShortCut($file)
		if IsArray($lnk_arr) and FileExists($lnk_arr[0]) then return $lnk_arr[0]
	else
		return $file
	endif
	return false
endfunc





; DateToDayOfWeekISO all-in-one..
;
func DateToDayOfWeekISO($iYear, $iMonth, $iDay)
	local $i_aFactor, $i_yFactor, $i_mFactor, $i_dFactor
	$i_aFactor = Int((14 - $iMonth) / 12)
	$i_yFactor = $iYear - $i_aFactor
	$i_mFactor = $iMonth + (12 * $i_aFactor) - 2
	$i_dFactor = Mod($iDay + $i_yFactor + Int($i_yFactor / 4) - Int($i_yFactor / 100) _
								+ Int($i_yFactor / 400) + Int((31 * $i_mFactor) / 12), 7)
	if $i_dFactor >= 1 then return $i_dFactor - 1
	return 6
endfunc



; For use in logs, etc..
;
func DateTimeString($msec=false, $sec=true, $time=true)
	local $addm, $adds
	if $time then $time = " @ " & @Hour & "." & @Min
	if $sec then $adds =  ":" & @Sec
	if $msec then $addm = "." & @Msec
	return @Year & "-" & @Mon & "-" & @Mday & $time & $adds & $addm
endfunc


; For backup files, etc..
;
func FileDateStamp()
	return @Year & "-" & @Mon & "-" & @Mday & "@" & @Hour & "." & @Min
endfunc



; FolderIsEmpty()
;
; Empty the folder is?
;
; Returns 0 is folder is not empty
; Returns 1 if the given folder path is empty
; Returns 2 if the path does not exist
;
func FolderIsEmpty($fie_folder)
	if not FileExists($fie_folder) then return 2
	local $ret = 0
	local $fie_search_files = FileFindFirstFile($fie_folder & "\*.*")
	if $fie_search_files = -1 then ; No files! Good!
		if @error = 1 then
			$ret = 1
		else
			$ret = 2
		endif
	endif
	FileClose($fie_search_files)
	return $ret
endfunc



func IsWild($string)
	if StringInStr($string, "*") or StringInStr($string, "?") then return true
	return false
endfunc


; Check if a string is a directory path string and if so, add standard wildcards..
; If the supplied path is valid, return true, otherwise false.
;
func CheckDirWild(byref $pathstring)
	if IsDir($pathstring) and not IsWild($pathstring) then 
		$pathstring &= "\*"
	endif
	local $testfiles = FileFindFirstFile($pathstring)
	if $testfiles = -1 then return false
	return true
endfunc




; IsDir()
;
; Is the given path a directory?

func IsDir($some_path)
	; simple but slow..
	; (although the fastest of all the methods I've tried - a lot)
	return StringInStr(FileGetAttrib($some_path), "D") ;, 2 = slower!
endfunc





; ReadDir()
;
; Open a folder and return files with a particular $extension (no "." dot)
; as an array of file names. See RecurseDir() (below) for
; more functionality.
;
; NO Wild-Cards Allowed.
;
; Alternatively, supply full file name. Wilcards allowed.

func ReadDir($folder, $extension, $full_filename="")

	; AutoIt array handling is basic, to say the least!
	local $files[1]
	local $new_array[2]
	local $filename = "*."
	if $full_filename then
		$filename = $full_filename
		$extension = ""
	else
		CLT($extension, ".")
	endif

	local $init_dir = $folder & "\" & $filename & $extension

	; Create a "search handle" of all the *.$extension files in the folder
	local $search_files = FileFindFirstFile($init_dir)

	if $search_files = -1 then
		FileClose($search_files)
		$search_files = FileFindFirstFile($init_dir)
	endif
	local $i = 1
	do
		local $tmp = FileFindNextFile($search_files)
		$files[$i-1] = $tmp
		$i += 1 ; like php, same as $i = $i + 1
		redim $files[$i]
	until @error

	FileClose($search_files) ; close the search handle

	; This removes the extraneous/empty elements from the array
	$i = 2
	for $this_file in $files
		local $entry = StringStripWS($this_file, 3)
		if $entry then
			redim $new_array[$i]
			$new_array[0] = $i-1
			$new_array[$i-1] = $entry
			$i = $i + 1
		endif
	next

	; Wipe this array..
	$files = 0

	if $new_array[0] = "" then return 0

	; Return the array of filenames..
	return $new_array

endfunc


;
; RecurseDir()	v2.3
;
; Recursively search a directory structure for files matching a pattern
; and return its files as an array of file paths, the first value being the
; total number of file paths in the array (a-la "AutoIt Array").
;
; I spent some time testing many different routines. _GetFileList, by Jos van
; der Zande, always gave me the best results, and nicely coded, but around ten
; times slower (52s) than Larry (and Beerman's) recursion routines (4.9s) when
; recursing my home folder.**
;
; ** 1000 folders, 4773 files, 702MB. [cpu:1.3GHz, 640MB RAM] at time of writing
;
; This function is based on _GetFileList, but after a few hacks and tweaks is now
; more than fifteen times faster than the original.** The results are still as good,
; but instead of 50+ seconds to recurse my home folder, it now takes 3.3 seconds,
; making it fastest and bestest of all the AutoIt recursion routines! *tic*
;
; Note: you can now supply multiple file masks (needed for backup). It makes a lot
; of sense to grab any other extensions while we are in a directory.
; The delimiter is a comma..
;
;		RecurseDir("C:\Program Files", "*.reg,*.ini,*.cfg")
;
; When searching for multiple masks the speed improvements are *staggering*, and
; logarithmic; basically multiply the number of masks. For instance, a backup of
; all the pref files in my Program Files folder is scanned, copied, zipped and
; completed in around a minute. pretty good, considering it's over 12GB; all
; tools, no big game installs, and ten file masks to search.
;
; The optional third parameter "$top_level_only" tells RecurseDir() to only
; return matches for files in the top level directory, no deeper. (true/false)
; see also ReadDir() above.
;
; You can also supply an optional fourth parameter which is a string; the path to
; a "dump file" to dump (log) the paths of all matched files; for debugging only,
; because it will slow things down some.
;
; In v2.2 you can also supply an optional fifth parameter, "$return_dirs" which
; will do exactly that, returning an AutoIt array of all the directories in the
; path, and *only* the directories. (true/false)
;
; The optional 6th parameter ($max) is the maximum limit for returned paths,
; which is normally 1,000,000 (one million). Bigger sizes use more memory, roughly
; 10MB per million (for the initial *empty* array - before it gets filled with
; values).  The absolute maximum size for an array is around 8,388,606, so don't
; go above that, or you will get errors. Also, ensure this value is never zero.
;
; This function gets used a lot in my apps.
;
; **	A lot to do with using the "&=" operator. Those wee differences mount up.
;		Probably that operator wasn't available when the code was first written.
;

;global $quit = false

func RecurseDir($dir, $mask, $top_level_only=false, $dump="", $return_dirs=false, $mx=1000000)

	local $n_dirnames[$mx]	; Maximum number of directories which can be scanned.
	local $n_dircount = 0	; ^ Could be set much higher, if required.
	local $n_file
	local $n_search
	local $n_tfile
	local $file_array
	local $filenames
;	local $filecount
	local $dircount = 1

	; if there was an "\" on the end of the given directory, remove that..
	CRT($dir)
	debug("$dir: =>" & $dir & "<=", @ScriptLineNumber, 7);debug

	$n_dirnames[$dircount] = $dir

	if not FileExists($dir) then return 0

	; Keep on looping until all directories are scanned..
	while $dircount > $n_dircount

;		if $quit = 1 then return

		$n_dircount += 1
		$n_search = FileFindFirstFile($n_dirnames[$n_dircount] & "\*.*")
		if @Error then debug("@Error: =>" & @Error & "<=", @ScriptLineNumber, 7);debug
		debug("$n_search: =>" & $n_search & "<=", @ScriptLineNumber, 7);debug

		; Find all subdirs in this directory and store them in a array..
		while true
			$n_file = FileFindNextFile($n_search)
			if @Error then exitloop
			; Skip directory references..
			if $n_file = "." or $n_file = ".." then continueloop

			$n_tfile = $n_dirnames[$n_dircount] & "\" & $n_file

			; If it's a directory, add it to the list of directories to be processed..
			if StringInStr(FileGetAttrib($n_tfile ), "D") and not $top_level_only then
				$dircount += 1
				$n_dirnames[$dircount] = $n_tfile
			endif
		wend
		FileClose($n_search)

		; Multiple masks..
		if StringInStr($mask, ",", 2) then
			local $mask_array = StringSplit($mask, ",")
		else ; or else create a dummy array..
			local $mask_array[2] = [1, $mask]
		endif

		; Loop through the array of masks..
		for $mask_c = 1 to $mask_array[0]
			; Find all files that match this mask..
			$n_search = FileFindFirstFile($n_dirnames[$n_dircount] & "\" & $mask_array[$mask_c] )
			if $n_search = -1 then continueloop

			while true
				$n_file = FileFindNextFile($n_search)
				if @Error then exitloop ; end of dir
				if $n_file = "." or $n_file = ".." then continueloop

				$n_tfile = $n_dirnames[$n_dircount] & "\" & $n_file
				if not StringInStr(FileGetAttrib( $n_tfile ), "D") then
;					$filecount += 1
					$filenames &= $n_tfile & @LF
				endif
			wend
			FileClose($n_search)
		next
	wend

	; Flip to a string and back to remove extraneous entries.
	; This is much quicker than redimming on every loop.
	if $return_dirs then
		local $tmp_str = ""
		local $i = 1
		while $n_dirnames[$i] <> ""
			$tmp_str &= $n_dirnames[$i] & "|"
			$i += 1
		wend
		$tmp_str = StringTrimRight($tmp_str, 1)
		$n_dirnames = StringSplit($tmp_str, "|")
		return $n_dirnames
	endif

	$filenames = StringTrimRight($filenames, 1)
	if $filenames = "" then return 0
	$file_array = StringSplit($filenames, @LF)

	; Dump results to a file..
	if $dump then
		local $dumpfile = FileOpen($dump, 2)
		FileWrite($dumpfile, $filenames)
		FileClose($dumpfile)
	endif
	return($file_array)
endfunc



#cs

	IniReadCheckBoxValue()

	Slightly altered for BlobDrop and its "tristate" checkboxes..

	This function "transforms" an AutoIt or human unchecked value (4 or 0,
	respectively), into plain old 4, which AutoIt can understand. this
	function is intended as a drop-in replacement for the IniRead command,
	simply replace the function name. Of course, it's only useful when
	reading checkbox values, e.g..

		$big_switch = IniReadCheckBoxValue($ini_path, $my_name, "big_switch", $GUI_UNCHECKED)

	However I've gotten into the habit of using $GUI_CHECKED and
	$GUI_UNCHECKED as general booleans, which has proven to be very
	effective, especially when coupled with these two functions. I have them
	set to $ON and $OFF.


	global const $ON		= $GUI_CHECKED			; 1
	global const $OFF		= $GUI_UNCHECKED		; 4

	Why?

	Windows uses 1 as the value for checked checkboxes, and 4 as the value
	for unchecked checkboxes.* This makes passing the values directly in and
	out of ini files undesirable, because "4" is not a logical value, and
	most humans would expect it to be 0 (zero). The following two functions
	act as interface between the program and the ini file, making sense of
	the "human" equivalents. Other "human" values are also understood, just
	in case.


	Using these custom booleans enables us to pass values directly back-and-
	forth between user settings and GUI Controls and tray menu items DIRECTLY,
	e.g..

	TrayItemSetState($tray_menu, $some_pref)
																			#ce
func IniReadCheckBoxValue($rcbv_inifile, $rcbv_section, $rcbv_key, $rcbv_default, $three_state=false)

	; IF key NOT FOUND, returns DEFAULT
	; IF key BLANK (empty) returns INTERMEDIATE

	local $ircbv_val = IniRead($rcbv_inifile, $rcbv_section, $rcbv_key, "---")

	if $ircbv_val = "---" then $ircbv_val = $rcbv_default
	if $three_state and $ircbv_val = "" then return $GUI_INDETERMINATE

	switch $ircbv_val
		case $GUI_UNCHECKED	; 4
			return $GUI_UNCHECKED
		case "false", "off", "no", "not", "nope", "nay", "nay!", "nah", "nah!", "no way!", _
								"no sir!", "negative", "neg", "no!", "disable", "disabled"
			return $GUI_UNCHECKED
		case "true", "on", "yes", "yes!", "yay", "yay!", "yup", "hell yes!", "indeed", _
							"yes sir!", "yessir!", "affirmative", "cool", "enable", "enabled"
			return $GUI_CHECKED
		case "2", 2, "unset", "-", "maybe"
			return $GUI_INDETERMINATE
		case "0"
			return $GUI_UNCHECKED
		case "1", $GUI_CHECKED ; 1
			return $GUI_CHECKED
		case else ; some special value
			return $ircbv_val
	endswitch
endfunc




; IniWriteCheckBoxValue()
;
; This function transforms an AutoIt checkbox value into a 'human' unchecked value (4 into 0, basically)
; this is intended as a drop-in replacement for the IniWrite command, simply replace the function name.
; Of course, it's only useful when writing checkbox values that will be read by 'IniReadCheckBoxValue'
; above. Instead of 0, you can also write "no", "off", or whatever, by passing the optional 5th parameter..

func IniWriteCheckBoxValue($wcbv_inifile, $wcbv_section, $wcbv_key, $wcbv_val, $tru_val="true", $fal_val="false")
	debug("IniWriteCheckBoxValue() : "&$wcbv_inifile&" : "&$wcbv_section&" : "&$wcbv_key&" : "&$wcbv_val, @ScriptLineNumber, 8);debug
	switch $wcbv_val
		case $GUI_CHECKED ; 1
			$wcbv_val = $tru_val
		case $GUI_UNCHECKED	; 4
			$wcbv_val = $fal_val
		case $GUI_INDETERMINATE	; 2
			$wcbv_val = ""
	endswitch
	if $wcbv_val then
		IniWrite($wcbv_inifile, $wcbv_section, $wcbv_key, $wcbv_val)
	else
		; We delete empty values - then they are "unset" proper!
		IniDelete($wcbv_inifile, $wcbv_section, $wcbv_key)
	endif
endfunc


; The above functions are useful until you create a proper preferences interface for your application!
; actually, I tend to use $GUI_CHECKED and $GUI_UNCHECKED as general-purpose booleans these days.



func ProcessReadHumanCheckBoxValue($some_string)
	switch $some_string
		case $OFF	; 4
			return $OFF
		case "false", "off", "n", "no", "not", "nope", "nay", "nay!", "nah", "nah!", "no way!", "no sir!", "negative", "neg", "no!"
			return $OFF
		case "true", "on", "y", "yes", "yes!", "yay", "yay!", "yup", "hell yes!", "indeed", "yes sir!", "yessir!", "affirmative", "cool"
			return $ON
		case "0"
			return $OFF
		case $ON ; 1
			return $ON
		case else
			; one last try for positive! ..
			if StringLeft($some_string, 1) = "y" then
				return $ON
			else
				return $OFF
			endif
	endswitch
endfunc


; func ProcessWriteHumanCheckBoxValue($some_string)

	; switch $some_string
		; case $ON
			; return "enabled"
		; case $OFF
			; return "disabled"
		; case else
			; return $some_string
	; endswitch
; endfunc

; For display purposes..
func ProcessWriteHumanCheckBoxValue($some_string, $on_str=$str_enabled, $off_str=$str_disabled, $indet_str="unset")
	switch $some_string
		case $ON
			return $on_str
		case $OFF
			return $off_str
		case $GUI_INDETERMINATE, ""
			return $indet_str
		case else
			return $some_string
	endswitch
endfunc

; Alias..
func Human($some_string, $on_str=$str_enabled, $off_str=$str_disabled,$indet_str="unset")
	return ProcessWriteHumanCheckBoxValue($some_string, $on_str, $off_str, $indet_str)
endfunc



;
; IniKeyExists()
;
; Feed it a 2-dimensional array (as supplied by IniReadSeaction)
; if the key exists, IniKeyExists() returns its value; if not, it returns false.
; The search is case-insensitive, but otherwise must be an exact (not partial) match.
; sometimes handy.
;
func IniKeyExists(byref $search_array, $search_string)
	if not IsArray($search_array) then
		return false
	endif
	for $i = 1 to $search_array[0][0]
		if $search_string = $search_array[$i][0] then
			return $search_array[$i][1]
		endif
	next
	return false
endfunc



; Simply creates an empty ini section you can later fill..
;
func CreateEmptyIniSection($inipath, $inisection)
	IniWrite($inipath, $inisection, "", "")
	IniDelete($inipath, $inisection, "")
endfunc







#cs
	UpdateIniFile()

	Add any new prefs from our master ini file.

	Keep all user's old prefs (see forced_settings for exceptions).

	Optionally clean out all info comments from new ini file.

	Optionally copy certain sections "RAW".

		UpdateIniFile([clean comments {BOOL}[, forced prefs {STRING(comma-delimited list)}[, Raw Section {STRING}]]])

	NOTE: This function isn't exactly 100% portable. Your default ini file MUST
	be:

		./Resources/Default.ini

	In other words a folder next to this source called "resource" with
	"Default.ini" inisde it. You must also insure that $ini_path and $my_name
	are correctly set.


	The first parameter controls whether nor not the updated ini file will
	contain all the comments from the master ini file. For new users, these
	are probably very handy. For old-hats, they are more likely annoying. So
	let the user disable them, if required. Send $ON or $OFF, e.g..


		local $clean_ini = IniReadCheckBoxValue($ini_path, $my_name, "clean_ini", $OFF)
		if not $installed_ini then UpdateIniFile($clean_ini)

	If you have settings in your master ini file that you MUST put in the
	user's ini, overwriting their own setting (CAREFUL!) add the names of
	those settings to $forced_settings, in a comma-delimited list, e.g..

		UpdateIniFile(default, "commands,click_commands")

	The final parameter, $raw_section is the name of any sections you would
	like written (from the user's ini) as-is. This is useful for sections which
	have more than one preference with the exact same name, e.g..

		[Window Triggers]
		Downloads=WinMove(@DesktopWidth/5+4,@DesktopHeight/4-32,@DesktopWidth/1.25,@DesktopHeight/2+64)
		Chrome=^t
		Research=WinMove(0,12,@DesktopWidth/2,@DesktopHeight-20)
		Downloads={End}

	Using the normal IniWrite mechanism, the second "Downloads" would overwrite
	the first, basically destroying the setting.

		UpdateIniFile($clean_ini, default, "Window Triggers")
																			 #ce
; func UpdateIniFileOld(byref $new_version, $clean_comments=$OFF, $forced_settings="", $raw_section="")

	; if $clean_comments = default then $clean_comments = $OFF
	; if $forced_settings = default then $forced_settings = ""
	; if $raw_section = default then $raw_section = ""

	; debug("Update Ini File: " & $ini_path & $LOG_LF, @ScriptLineNumber, 7);debug

	; local $old_version = IniRead($ini_path, $my_name, "version", 0)
	; local $vcomp = _VersionCompare($new_version, $old_version)

	; ; user's ini is up-to-date..
	; switch $vcomp
		; case 0, -1	; both equal
			; return false
	; endswitch

	; if $forced_settings then
		; $forced_settings = StringSplit($forced_settings, ",")
	; endif

	; ; drop a temporary ini file somewhere..
	; local $tmp_ini = @TempDir & "\" & $my_name & ".new.ini"
	; FileInstall("./Resources/Default.ini", $tmp_ini, 1)

	; ; purge the new ini file of all comments..
	; if $clean_comments = $ON then
		; if _FileReadToArray($tmp_ini, $file_array) then
			; for $i = 1 to $file_array[0]
				; local $line = StringStripWS($file_array[$i], 3)
				; if StringLeft($line, 1) <> ";" then
					; if $line then ArrayAdd($new_array, $line)
				; endif
			; next
			; _FileWriteFromArray($tmp_ini, $new_array, 1)
		; endif
	; endif

	; ; delete all non-application prefs from the new (temp) ini
	; local $existing_sections = IniReadSectionNames($tmp_ini)

	; for $a = 1 to $existing_sections[0]
		; if $existing_sections[$a] <> $my_name then IniDelete($tmp_ini, $existing_sections[$a])
	; next

	; ; grab sections from user's old ini file..
	; $existing_sections = IniReadSectionNames($ini_path)


	; ; write user prefs to the temporary ini file.. (overwriting tmp_ini)
	; for $a = 1 to $existing_sections[0]
		; debug("Existing SECTION:: =>" & $existing_sections[$a] & "<=", @ScriptLineNumber, 7);debug

		; local $section = IniReadSection($ini_path, $existing_sections[$a])
		; debug_PrintArray($section, "$section:", @ScriptLineNumber, 7);debug

		; if IsArray($section) then

			; ; We write this section on its own - as-is,
			; ; to get any duplicated prefs (2+ commands for one window)
			; if $raw_section and $existing_sections[$a] = $raw_section then
				; IniWriteSection($tmp_ini, $existing_sections[$a], $section)
				; continueloop
			; endif

			; ; Regular ini section..
			; for $b = 1 to $section[0][0]
				; if not InArray($forced_settings, $section[$b][0]) then
					; IniWrite($tmp_ini, $existing_sections[$a], $section[$b][0], $section[$b][1])
				; endif
			; next

		; endif

	; next

	; ; Backup/rename their existing app.ini to "[@date] app.ini"
	; FileMove($ini_path, GetParent($ini_path) & "\[" & @Year & "-" & @Mon & "-" & @Mday & "@" & _
							; @Hour & "." & @Min & "]_v" & $old_version & "_" & $my_name & ".ini")

	; ; move the newly created ini into place, and delete temp file..
	; FileMove($tmp_ini, $ini_path, 1)

	; ; finally, update the version info in the ini file..
	; IniWrite($ini_path, $my_name, "version", $new_version)

; endfunc




; Update the users ini with any new settings (unless we force settings)
; Leave their old examples and comments intact.
;
func UpdateIniFile($new_version, $clean_comments=$OFF, $forced_settings="", $no_new_prefs="")

 debug("", @ScriptLineNumber, 7);debug
 debug("UpdateIniFile(" & $new_version & "," & $clean_comments  & "," & $forced_settings & ")", @ScriptLineNumber, 7);debug

	if $clean_comments = default then $clean_comments = $OFF
	if $forced_settings = default then $forced_settings = ""
	if $no_new_prefs = default then $no_new_prefs = ""

	debug("Update Ini File: " & $ini_path & $LOG_LF, @ScriptLineNumber, 7);debug

	local $old_version = IniRead($ini_path, $my_name, "version", 0)
	local $vcomp = _VersionCompare($new_version, $old_version)

	; user's ini is up-to-date..
	switch $vcomp
		case 0, -1	; both equal
			return false
	endswitch

	; Backup/rename their existing app.ini to "[@date] app.ini"
	FileCopy($ini_path, GetParent($ini_path) & "\[" & @Year & "-" & @Mon & "-" & @Mday & "@" & _
								@Hour & "." & @Min & "][v" & $old_version & "]" &  $my_name & ".ini")

	if $forced_settings then
		$forced_settings = StringSplit($forced_settings, ",")
	endif

	local $wrote = 0

	if not FileExists($ini_path) then
		FileInstall($my_name & ".ini", $ini_path)
	else
		; Create a temporary default strings.ini..
		local $tmp_ini_path = @TempDir & "\TEMP_.ini"
		FileInstall($my_name & ".ini", $tmp_ini_path)
		local $existing_sections = IniReadSectionNames($tmp_ini_path)


		; 2do.. for sections, e.g. menus, it is not desirable to add default values
		;		onto the end of their prefs. Need raw for this. But WITH comments.


		; Interrogate user ini file for missing prefs and add default/new prefs as required..
		if IsArray($existing_sections) then

			for $i = 1 to $existing_sections[0]

				local $current_section = $existing_sections[$i]
				debug("SECTION:: =>" & $current_section & "<=", @ScriptLineNumber, 7);debug

				if $current_section <> $no_new_prefs then
				debug("Writing prefs to:: =>" & $current_section & "<=", @ScriptLineNumber, 7);debug

					local $this_section_data = IniReadSection($tmp_ini_path, $current_section)
					debug_PrintArray($this_section_data, "cel.au3 :: $this_section_data:", @ScriptLineNumber, 7);debug

					if IsArray($this_section_data) then

						for $k = 1 to $this_section_data[0][0]

							local $current_setting = $this_section_data[$k][0]
							debug("$current_setting: =>" & $current_setting & "<=", @ScriptLineNumber, 7);debug

							local $user_value = IniRead($ini_path, $current_section, $current_setting, "")
							local $default_value = IniRead($tmp_ini_path, $current_section, $current_setting, "")
							debug("$user_value: =>" & $user_value & "<=", @ScriptLineNumber, 7);debug
							debug("$default_value: =>" & $default_value & "<=", @ScriptLineNumber, 7);debug

							; If empty or gone, write the setting..
							; If it's different, leave it alone - they edited it.
							; unless it's a forced pref, in which case they get the (new) default value..
							if not $user_value or InArray($forced_settings, $current_setting) then
								$wrote += 1
								IniWrite($ini_path, $current_section, $current_setting, $default_value)
							endif
						next
					endif
				endif
			next
		endif
	endif

	FileDelete($tmp_ini_path)

	; Purge the ini file of all comments..
	if $clean_comments = $ON then
		if _FileReadToArray($ini_path, $file_array) then
			for $i = 1 to $file_array[0]
				local $line = StringStripWS($file_array[$i], 3)
				if StringLeft($line, 1) <> ";" then
					if $line then ArrayAdd($new_array, $line)
				endif
			next
			local $file_handle = Fileopen($ini_path, $FO_UNICODE+$FO_OVERWRITE)
			_FileWriteFromArray($file_handle, $new_array, 1)
			FileClose($file_handle)
		endif
	endif

	; Insert this flag in your defualt.ini for a neat way to check for a "new install"..
	IniDelete($ini_path, $my_name, "new_install")

	; Finally, update the version info in the ini file..
	IniWrite($ini_path, $my_name, "version", $new_version)

	debug($ini_path & " updated. Wrote: " & $wrote & " ini settings", @ScriptLineNumber, 1);debug

endfunc




; The AutoIt built-in function moves the "new" section to the bottom of the ini
; file, which is annoying. This Blunderbuss approach works well, and leaves
; the section order as-is, meaning menus and such that rely on section order (or
; at least use it) won't find themselves reshuffled..
;
; Usage: BetterIniRenameSection(<path of ini file>, <Old Name>, <New Name>)
;
func BetterIniRenameSection($inifile, $old_name, $new_name)

	debug("", @ScriptLineNumber, 8);debug
	debug("cel.au3 :: BetterIniRenameSection($inifile=" & $inifile & ", $old_name=" & $old_name & ", $new_name=" & $new_name & "):", @ScriptLineNumber, 8);debug

	local $existing_sections = IniReadSectionNames($inifile)
	if not InArray($existing_sections, $old_name) then return SetError(1, 0, false)

	local $inifile_contents = FileRead($inifile)
	local $new_ini_string = StringReplace($inifile_contents, "[" & $old_name & "]", "[" & $new_name & "]")

	local $temp_inifile = _WinAPI_GetTempFileName(@TempDir, "cel")
	FileDelete($temp_inifile)
	FileWrite($temp_inifile, $new_ini_string)

	; Compare ini files for matching (other) section names..
	local $compare1 = ArrayJoin($existing_sections, "|")
	$compare1 = StringReplace($compare1, $old_name, "|")

	local $new_sections = IniReadSectionNames($temp_inifile)
	local $compare2 = ArrayJoin($new_sections, "|")
	$compare2 = StringReplace($compare2, $new_name, "|")

	if StringCompare($compare1, $compare2) == 0 then
		BackupFile($inifile)
		FileMove($temp_inifile, $inifile, 1)
		return true
	endif

	return SetError(2, 0, false)

endfunc






; This tiny function saves a HEAP of code..
;
func TogglePref(byref $variable)
	if $variable = $ON then
		$variable = $OFF
	else
		$variable = $ON
	endif
endfunc


; Save one of the above tray prefs to the ini and set the state of the tray to
; match the setting..
;
func SaveTrayPref($tray_control, $pref_var, $pref_name)
	IniWriteCheckBoxValue($ini_path, $my_name, $pref_name, $pref_var)
	TrayItemSetState($tray_control, $pref_var)
endfunc



; InArray()		[for single-dimension arrays]
;
; Feed it an AutoIt array and a string, returns true if $ia_string
; is one of the $ia_array's *values*. Non-AutoIt arrays work fine,
; the first element is not relied upon, it is simply ignored.
;
; The search is case-insensitive, but must be an exact (not partial) match.
; There's probably a real function for this these days. (Not yet!)
;
func InArray(byref $ia_array, $ia_string, $match_case=false)
	if not IsArray($ia_array) then return false
	local $ia_limit = UBound($ia_array) - 1
	for $i = 1 to $ia_limit ; not 0, which would return the total as a positive result if $ia_array[0]= e.g. "1"
		switch $match_case
			case true
				if $ia_string == $ia_array[$i] then return $i
			case false
				if $ia_string = $ia_array[$i] then return $i
		endswitch
	next
	return false
endfunc




; InArrayValue()		[for single-dimension arrays]
;
; Feed it an AutoIt (zero-indexed) array and a string, returns true if
; $ia_string is inside one of the $ia_array's *values*. Non-AutoIt arrays work
; fine, the first element is not relied upon, it is simply ignored.
;
; The search is case-insensitive, and can be a partial) match.
; Returns the index of the first value containing the string.
;
func InArrayValue(byref $ia_array, $ia_string)
	if not IsArray($ia_array) then return SetError(1, -8, false)
	local $ia_limit = UBound($ia_array) - 1
	for $i = 1 to $ia_limit
		if StringInStr($ia_array[$i], $ia_string) then return $i
	next
	return false
endfunc


; InArrayColumn()	[for single-dimension arrays, with columned indexes]
;
; Feed it an AutoIt array and a string, returns true if $ia_string
; is a column of one of the $ia_array's *values*. Non-AutoIt arrays work
; fine, the first element is not relied upon, it is simply ignored.
;
; Because AutoIt's array-handling is almost non-existant, and redimming
; amazingly slow, other methods need to be devised to work with indexed
; lists. A "column marker" is simply a delimiter within the value which
; can be used to further split a value into multiple values.
;
; This function is designed to find text (e.g. "path/name.ext") inside a
; value that may look like.. "path/name.ext|179|20080621114934".
;
; The search is case-insensitive, and must be an exact match for a
; particular column. Columns are numbered from 1, which is the value of
; the first column, and the correct match in the above example.
;
;	Success: Returns the index of the first value containing the string.
;	Fail: Returns false
;
func InArrayColumn(byref $ia_array, $ia_string, $col=1, $marker="*")
	if not IsArray($ia_array) then return SetError(1, -8, false)
	local $ia_limit = UBound($ia_array) - 1
	for $i = 1 to $ia_limit
		local $columns = StringSplit($ia_array[$i], $marker, $STR_ENTIRESPLIT)
		if $columns[$col] == $ia_string then return $i
	next
	return false
endfunc



; MakeDummyArray()
;
; We need an array, but only have a string, what to do? this function returns an
; "AutoIt array" with a single data element, that is, two elements; $dummy_array[1]
; containing your string, and $dummy_array[0] being the total number of data elements,
; AutoIt-style, which will always be 1, of course.
;
; Although this is simple enough to do in place, it's more readable to do use a function.
;
func MakeDummyArray($regular_string)
	local $dummy_array[2] = [1, $regular_string]
	return $dummy_array
endfunc




; Send it a regular 1-D AutoIt array and get back a 2-D array, with
; the original array filling the first column, and a second, blank column
; for you to fill with "associated" data. See also Associative Array
; Functions, below.
func OneToTwoDArray($array)
	debug("OneToTwoDArray()", @ScriptLineNumber, 9);debug
	local $new_array[1][2]
	$new_array[0][0] = $array[0]
	for $e = 1 to $array[0]
		redim $new_array[$e+1][2] ; an extra 1!
		$new_array[$e][0] = $array[$e]
		$new_array[$e][1] = ""
		debug_PrintArray($new_array, "cel.au3 :: 1D->2D Array:", @ScriptLineNumber, 9);debug
	next
	debug_PrintArray($new_array, "cel.au3 :: 1D->2D RETURNING Array:", @ScriptLineNumber, 9);debug
	return $new_array
endfunc



; TwoD2OneDArray()
;
; Convert a 2-dimensional array into a 1-dimensional array
; of all the *values* of the original 2D array..
;
; Pass true as the 2nd parameter to instead have it made from the /keys/.
;
; The 3rd parameter is any character or string of characters you with to strip
; (replace with "") from each key or value. Handy for trimming @Macros and such.
;
func TwoD2OneDArray(byref $Array2D, $keys=false, $strip="")
	if not IsArray($Array2D) then return false
	local $array[$Array2D[0][0]+1]
	$array[0] = $Array2D[0][0]
	for $i = 1 to $Array2D[0][0]

		if $keys then local $key = $Array2D[$i][0]
		local $value = $Array2D[$i][1]

		if $strip then
			if $keys then $key = StringReplace($key, $strip, "")
			$value = StringReplace($value, $strip, "")
		endif

		if $keys then
			$array[$i] = $key
		else
			$array[$i] = $value
		endif
	next
	return $array
endfunc


; Take a two-dimensional array and convert it to a one-dimensional array
; using the chosen column of data..
func TwoDCol2OneDArray($Array2D, $col=0)
	debug("TwoDCol2OneDArray()", @ScriptLineNumber, 9);debug
	debug_PrintArray($Array2D, "cel.au3 :: $Array2D:", @ScriptLineNumber, 7);debug
	if not IsArray($Array2D) then return false
	local $array[$Array2D[0][0]+1]
	$array[0] = $Array2D[0][0]
	for $i = 1 to $Array2D[0][0]
		$array[$i] = $Array2D[$i][$col]
		debug_PrintArray($array, "cel.au3 :: $array:", @ScriptLineNumber, 9);debug
	next
	debug_PrintArray($array, "cel.au3 :: 2D->1D RETURNING Array:", @ScriptLineNumber, 9);debug
	return $array
endfunc



; Takes a 2-dimensional array as input and splits it into two arrays,
; the first, all the indexes, the second, all the values.
;
func TwoD22OneDArrays(byref $Array2D)
	if not IsArray($Array2D) then return false
	local $array[$Array2D[0][0]+1]
	local $array2[$Array2D[0][0]+1]
	$array[0] = $Array2D[0][0]
	$array2[0] = $Array2D[0][0]
	for $i = 1 to $Array2D[0][0]
		$array[$i] = $Array2D[$i][0]
		$array2[$i] = $Array2D[$i][1]
	next
	local $newarray[2] = [$array, $array2]

	return $newarray
endfunc


#cs
	ArrayAdd()

	Add a single item to an AutoIt array..

	ArrayAdd() automatically increases the [0] index, but DOES NOT rely upon it.

	Enable the third parameter to NOT add items which already exist in the
	array.

	Set the fourth parameter to true, and when an item is added which
	already exists, the array is re-indexed, moving the entry to the END of
	the array. In other words, it becomes the "most recent entry".


#ce
func ArrayAdd(byref $array, $item, $unique=false, $update=false)

	if not IsArray($array) then return
	local $size = UBound($array)

	if $unique and $update = false then
		if InArray($array, $item) then return
	endif

	if $update then
		local $idx = InArray($array, $item)
		if $idx then
			for $i = $idx to $size-2
				$array[$i] = $array[$i+1]
			next
			$size -= 1
		endif

	endif

	redim $array[$size+1]
	$array[$size] = $item
	$array[0] = $size

endfunc




#cs
	ArrayRemove()

	If $item is a number, that index is removed, otherwise the array is
	searched for values matching {String} $item and that key is removed.

	Remaining elements are moved down to fill the gap and the resulting
	array is one element shorter. The [0] count element is updated with
	the new total.

	Returns true is changes were made, false otherwise.

#ce
func ArrayRemove(byref $array, $item)

 debug("", @ScriptLineNumber, 7);debug
 debug("ArrayRemove(" & $item & ")", @ScriptLineNumber, 7);debug

	if not IsArray($array) then return SetError(1, 0, false)
	debug_PrintArray($array, "cel.au3 :: Remove from this: $array:", @ScriptLineNumber, 7);debug

	local $match = false
	local $total_rows = UBound($array, $UBOUND_ROWS)-1
	debug("$total_rows: =>" & $total_rows & "<=", @ScriptLineNumber, 7);debug

	if IsNumber($item) then
		$match = $item
	else
		for $i = 1 to $total_rows

			debug("$array[$i] =>" & $array[$i] & "<=", @ScriptLineNumber, 7);debug
			if $array[$i] == $item then
				$match = $i
				; Stop here. Run through remaining rows..
				exitloop
			endif
		next
	endif

	if $match then
		for $k = $match to $total_rows-1
			; Fill /this/ row with the /next/ row's values..
			debug("$array[$k+1]: =>" & $array[$k+1] & "<=", @ScriptLineNumber, 7);debug
			$array[$k] = $array[$k+1]
		next
		Redim $array[$total_rows]
		$array[0] = $total_rows-1

		return true

	endif

endfunc

; An alias for the above function.
func ArrayDelete(byref $array, $item)
	return ArrayRemove($array, $item)
endfunc


#cs
	Very simple 2D array add.

	Param 1: The array to add to.
	Param 2: A pipe delimited list of values.

		ArrayAdd2D($my_array, "foo|bar|sheep|shoe")

	If your list has less items than there are columns, the remaining
	columns will be empty. If you list contains more items than there are
	columns, the extra items will be ignored. It's okay to send blank
	vaules.

		ArrayAdd2D($my_array, "||foo||bar")

	The index value $my_array[0][0] is automatically updated.

	Set the 3rd parameter to true to ensure no duplicate entries. Only the
	first column is checked.

	Set the 4th parameter to true to replace existing values, otherwise if a
	key already exists, it will we left alone.


		ArrayAdd2D($array, "foo|bar|sheep|shoe", $unique, $replace_existing)

#ce
func ArrayAdd2D(byref $array, $items, $unique=false, $replace=false, $delim="|")

	if not IsArray($array) then return SetError(1, 0, false)
	$items = StringSplit($items, $delim, $STR_ENTIRESPLIT)
	debug("$items[1]: =>" & $items[1] & "<=", @ScriptLineNumber, 7);debug

	local $exists = InArray2D($array, $items[1])
	debug("$exists: =>" & $exists & "<=", @ScriptLineNumber, 7);debug

	if $exists and $unique and not $replace then return SetError(2, 0, false)

	; Column 1 is empty, forget matching!
	if not $items[1] then $exists = false

	local $rows
	if $exists and $replace then $rows = $exists
	local $columns = UBound($array, $UBOUND_COLUMNS)

	if not $exists then
		$rows = UBound($array, $UBOUND_ROWS)
		redim $array[$rows+1][$columns]
		$array[0][0] += 1
		debug("$array[0][0]: =>" & $array[0][0] & "<=", @ScriptLineNumber, 7);debug

	endif

	; Add the items to this row..
	for $i = 1 to $items[0]
		$array[$rows][$i-1] = $items[$i]
		if $i = $columns then exitloop
	next

	return true

endfunc



#cs

	ArrayRemove2D(byref $array, $item, $column)

	Remove the first row of a 2D array where $array[row][$column] matches
	$item.

	Supply the array to search, a string to search for (This is a
	CaSe-sEnsItiVe search), and the column to search in for that string.

	When a match is found, the entire row is removed and the remaining rows
	are re-indexed from the removal point and the array is one row shorter.

	The count [0][0] element is not relied upon when removing rows, but it
	is updated with the correct new total, which will usually be the old
	total minus one.

	Returns true if changes were made, otherwise false.

#ce
func ArrayRemove2D(byref $array, $item, $column)

 debug("", @ScriptLineNumber, 7);debug
 debug("ArrayRemove2D([" & $item & "," & $column & "])", @ScriptLineNumber, 7);debug

	if not IsArray($array) then return SetError(1, 0, false)
	debug_PrintArray($array, "cel.au3 :: Remove from: $array:", @ScriptLineNumber, 7);debug

	local $total_columns = UBound($array, $UBOUND_COLUMNS)
	local $total_rows = UBound($array, $UBOUND_ROWS)-1
	debug("$total_columns: =>" & $total_columns & "<=", @ScriptLineNumber, 7);debug
	debug("$total_rows: =>" & $total_rows & "<=", @ScriptLineNumber, 7);debug

	for $i = 1 to $total_rows

		debug("$array[$i][$column]: =>" & $array[$i][$column] & "<=", @ScriptLineNumber, 7);debug
		if $array[$i][$column] == $item then

			; Stop here. Run through remaining rows..
			for $k = $i to $total_rows-1
				; Fill /this/ row with the /next/ row's values..
				for $m = 0 to $total_columns-1
					debug("$array[$k+1][$m]: =>" & $array[$k+1][$m] & "<=", @ScriptLineNumber, 7);debug
					$array[$k][$m] = $array[$k+1][$m]
				next
			next
			Redim $array[$total_rows][$total_columns]
			$array[0][0] = $total_rows-1
			return true
		endif
	next

endfunc



#cs

	InArray2D($array, $search_string, $search_column)

	Very Simple 2D Array Search.
	Suppy:

		param 1: The 2D Array to search.
		param 2: The string to search for (CaSe-sEnsItiVe match).
		param 3: (optional) The column to search.
				 If this is omitted, all columns are searched.

	Returns the number of the row which contained the string as one of its
	column's values. Otherwise returns false.

	If you can suppply the search column, it will increase speed slightly.
	Column numbering begins at zero (0). Example..

		global $array[1][7]

		ArrayAdd2D($array, "|apple|pear||orange")
		ArrayAdd2D($array, "dog|cat|cow|pig|goat")
		ArrayAdd2D($array, "||||nut|seed|")

		local $row = InArray2D($array, "pig", 3)
		if $row then debug("PIG IN THE DUNGEON!!!", @ScriptLineNumber, 7);debug

		Will print out "PIG IN THE DUNGEON!!!"
		$row will equal 2.
#ce
func InArray2D(byref $array, $string, $search_column=false)

	if not IsArray($array) then return false

	local $rows = UBound($array, $UBOUND_ROWS) - 1
	local $columns = UBound($array, $UBOUND_COLUMNS)

	for $i = 1 to $rows
		if $search_column then
			if $string == $array[$i][$search_column] then return $i
		else
			for $k = 0 to $columns-1
				if $string == $array[$i][$k] then return $i
			next
		endif
	next
	return false
endfunc




; Take a comma-delimited list, usually an ini pref, check it's formatted okay
; and then convert to an array. It all happens ByRef.
;
func CommaDelimListToArray(byref $my_list)
	CBT($my_list, ",")
	$my_list = StringSplit(StringReplace($my_list, ",,", ","), ",") ; now an array
endfunc






; Improvements on the UDF-supplied versions; posted in the AutoIt forum..
;
; This is the fastest FileReadToArray, but uses the most memory for big files (x64: 4.5s/1.02GB on a 106MB file, 912515 lines)
;
; #FUNCTION# ====================================================================================================================
; Name...........:	FileReadIntoArray
; Description ...:	Reads the specified file into an array.
; Syntax.........:	FileReadIntoArray($TmpFile, ByRef $aArray [, $iFlag])
; Parameters ....:	$TmpFile		- Full path and filename of the file to be read.
;					$aArray			- The array in which to store the contents of the file.
;					$iFlag			- Optional: (add the flags together for multiple operations):
;					|$iFlag = 0 Return the array count in the [0] element (create 1-based array index - the Default)
;					|$iFlag = 1 Don't return the array count (create 0-based array index)
;					|$iFlag = 2 Don't return Line empty (ignores @CR & @LF & @CRLF)
;					|$iFlag = 4 Don't return Line empty or lines containing only whitespace character (ignores @CRLF, " ", @CR, @TAB, @CR, @LF, etc.)
;					|$iFlag = 8 Strip Line leading white space
; Return values .:	Success - Returns a 1
;					Failure - Returns a 0
;					@error  - 0 = No error.
;					|1 = Error opening specified file
;					|2 = Unable to Split the file
; Authors ........:	Jonathan Bennett, Valik, Jpm, Gary, guinness, DXRW4E, Cor
; ===============================================================================================================================
func FileReadIntoArray($TmpFile, byref $aArray, $iFlag = 0)
	local $ArrayCount, $RegExp = "(?:\r\n|\n|\r)([^\r\n]*)"
	local $hFileOpen = FileOpen($TmpFile, 0)
	if $hFileOpen = -1 then return SetError(1, 0, 0)
	local $sFileRead = StringStripWS(FileRead($hFileOpen), 3)
	FileClose($hFileOpen)

	; Flags..
	if not BitAND($iFlag, 1) then $ArrayCount = "ArrayCount" & @LF
	if BitAND($iFlag, 2) then $RegExp = "(?:\r\n|\n|\r)([^\r\n]+)"
	if BitAND($iFlag, 4) then $RegExp = "s*(?:\r\n|\n|\r)([^\r\n]+)"
	if BitAND($iFlag, 8) then $RegExp = StringReplace($RegExp, ")", ")h*", 1, 1)

	$aArray = StringRegExp(@LF & $ArrayCount & $sFileRead, $RegExp, 3)

	if @error then
		if StringLen($sFileRead) then
			local $ret[2] = [1, $sFileRead]
			$aArray = $ret
		else
			return SetError(2, 0, 0)
		endif
	elseif $ArrayCount then
		$aArray[0] = UBound($aArray) - 1
	endif
	return 1
endfunc





; func ArrayAddRow(byref $array, $row_data)
	; local $size = UBound($array, $UBOUND_COLUMNS)
; endfunc



; Associative Array Functions
;
; Before you start using your associative array, you need to initialize it. Put
; this code somewhere before you start using the array, probably at the top-ish
; of your script..
;
; 	; Initialize your array in your script.au3 ...
; 	global $associative_array
; 	AAInit($associative_array)
;
; Obviously, "$associative_array" will be your own array variable.
;
; You can initialize and use multiple associative arrays in your script.
;
; There is another essential line, to initialize a COM error handler, but that
; is already added to the top of THIS script, waiting..
;
;	global $oMyError = ObjEvent("AutoIt.Error", "AAError") ;
;
func AAInit(byref $dict_obj)
	$dict_obj = ObjCreate("Scripting.Dictionary")
endfunc

; Adds a key and item pair to a Dictionary object.
func AAAdd(byref $dict_obj, $key, $val, $unique=false)
	if $unique and AAExists($dict_obj, $key) then return SetError(1, 1, -2)
	$dict_obj.Add($key, $val)
	If @error Then return SetError(1, 1, -1)
endfunc

; Removes a key and item pair from a Dictionary object..
func AARemove(byref $dict_obj, $key)
	$dict_obj.Remove($key)
	If @error Then return SetError(1, 1, -1)
endfunc

; Returns true if a specified key exists in the associative array, false if not..
func AAExists(byref $dict_obj, $key)
	return $dict_obj.Exists($key)
endfunc

; Returns a value for a specified key in the associative array..
func AAGetItem(byref $dict_obj, $key)
	return $dict_obj.Item($key)
endfunc

; Returns the total number of keys in the array..
func AACount(byref $dict_obj)
	return $dict_obj.Count
endfunc

; List all the "Key" => "Item" pairs in the array..
func AAList(byref $dict_obj, $title="Associative Array:", $level=1)
	if $level > $debug_level then return false
	debug($title & " [" & AACount($dict_obj) & " items] :=>", @ScriptLineNumber, 7);debug
	local $k = $dict_obj.Keys ; Get the keys
	; local $a = $dict_obj.Items ; Get the items
	for $i = 0 to AACount($dict_obj) -1 ; Iterate the array
		debug($k[$i] & "	==>	" & AAGetItem($dict_obj, $k[$i]))
	next
endfunc

; Wipe the array, obviously.
func AAWipe(byref $dict_obj)
	$dict_obj.RemoveAll()
endfunc

; Oh oh!
func AAError()
	Local $err = $oMyError.number
	If $err = 0 Then $err = -1
	SetError($err)
endfunc






#cs

	SaveComboSelection()

		SaveComboSelection( array{this combo box's special selection array}, string{value to store})

	Does what it says on the tin	(erm, also works for regular drop-downs!)

	If the user deletes an item, the previous item will be selected
	This makes multiple deltions easier, and more. This code is also
	more compact than checking for even a single "previous" entry on
	each combo box individually. It's neater, too.

	To use, simply create a global "AutoIt" array for the values,
	with the number of values you would like to remember (remember
	to set element 0 to the total)..

		global $previous_combo_selections[501] = [500] ; plenty!

	Make one for each combo.
	Rather than set a limit, we could use redim, but it's  slow.

	Anyway, when the user selects something, store that..

		SaveComboSelection($previous_combo_selections, $current_preset)

	And when they delete an item, recall the previous item with..

		$previous_selection = GetComboSelection($previous_combo_selections_array, $valid_names_array)

	Or use it directly..

		ControlCommand($GUI_foo, "", $Control_ID, "SelectString", _
			GetComboSelection($previous_combo_selections_array, $valid_names_array))

	If your deleted entry is still in the list at the point you need to get this information,
	simply repeat the command. Essentially, go "back two"..

		; this selects and removes the currently selected item..
		GetComboSelection($previous_combo_selections_array, $valid_names_array)

		; now the previous one..
		ControlCommand($GUI_foo, "", $Control_ID, "SelectString", _
			GetComboSelection($previous_combo_selections_array, $valid_names_array))

																			#ce
func SaveComboSelection(byref $combo_array, $value)

	for $i = 1 to $combo_array[0]
		if $combo_array[$i] = "" then
			if $combo_array[$i-1] <> $value then
				$combo_array[$i] = $value
			endif
			exitloop ; store or not, we're outta here
		endif
	next

endfunc


; GetComboSelection()
;
; Get back the user's previous drop-down selection after a delete operation..
;
; We simply iterate the saved-combo strings array backwards, deleting all non-
; valid entries until the most recent valid entry is found. Then we delete it
; from the array and return the value.
;
; In the absence of a stored value, we return the "last" value in the names
; list. If deleting newly imported/created presets, this will get you the
; most recent addition, even when it hasn't been selected this session.
;
; It would be trivial to store this array in an ini file between launches, and
; keep a selection "history", if you require that.
;
; 	$String = GetComboSelection( array{this combo box's special selection array}, array{list of current valid names in this combo})
;
func GetComboSelection(byref $combo_array, byref $names_list)

	local $new_val = ""
	local $i = $combo_array[0]

	while $i > 0
		if $combo_array[$i] <> "" then
			if not InArray($names_list, $combo_array[$i]) then
				$combo_array[$i] = ""
				$i -= 1
				continueloop
			endif
			$new_val = $combo_array[$i]
			$combo_array[$i] = ""
			exitloop
		endif
		$i -= 1
	wend
	if $new_val = "" then $new_val = $names_list[$names_list[0]]
	return $new_val
endfunc




; VisitUrl()
;
; Send the "default browser" to our URL..

; This uses the USER'S SYSTEM BROWSER! (eg. Firefox)

func VisitUrl($VisitURL="http://corz.org/")
	debug("VisitURL: =>" & $VisitURL & "<=" , @ScriptLineNumber, 7);debug
	ShellExecute($VisitURL)
	if @Error <> 0 then
		return true
	else
		return SetError (@Error, default , true)
	endif
endfunc





; ReplaceHTMLEntities()
;
;
; Probably rather slow, but, erm, fairly thorough..
;
; Note: unless you are using a proper international font, many of the entities
; below will appear as boxes, or empty. Worry not, everything is working fine.
;
; Updated with routine from Dhilip89
;
func ReplaceHTMLEntities($text)

	Local $Entity[65536]

	$Entity[34] = "quot"
	$Entity[38] = "amp"
	$Entity[39] = "apos"
	$Entity[60] = "lt"
	$Entity[62] = "gt"
	$Entity[160] = "nbsp"
	$Entity[161] = "iexcl"
	$Entity[162] = "cent"
	$Entity[163] = "pound"
	$Entity[164] = "curren"
	$Entity[165] = "yen"
	$Entity[166] = "brvbar"
	$Entity[167] = "sect"
	$Entity[168] = "uml"
	$Entity[169] = "copy"
	$Entity[170] = "ordf"
	$Entity[171] = "laquo"
	$Entity[172] = "not"
	$Entity[173] = "shy"
	$Entity[174] = "reg"
	$Entity[175] = "macr"
	$Entity[176] = "deg"
	$Entity[177] = "plusmn"
	$Entity[178] = "sup2"
	$Entity[179] = "sup3"
	$Entity[180] = "acute"
	$Entity[181] = "micro"
	$Entity[182] = "para"
	$Entity[183] = "middot"
	$Entity[184] = "cedil"
	$Entity[185] = "sup1"
	$Entity[186] = "ordm"
	$Entity[187] = "raquo"
	$Entity[188] = "frac14"
	$Entity[189] = "frac12"
	$Entity[190] = "frac34"
	$Entity[191] = "iquest"
	$Entity[192] = "Agrave"
	$Entity[193] = "Aacute"
	$Entity[194] = "Acirc"
	$Entity[195] = "Atilde"
	$Entity[196] = "Auml"
	$Entity[197] = "Aring"
	$Entity[198] = "AElig"
	$Entity[199] = "Ccedil"
	$Entity[200] = "Egrave"
	$Entity[201] = "Eacute"
	$Entity[202] = "Ecirc"
	$Entity[203] = "Euml"
	$Entity[204] = "Igrave"
	$Entity[205] = "Iacute"
	$Entity[206] = "Icirc"
	$Entity[207] = "Iuml"
	$Entity[208] = "ETH"
	$Entity[209] = "Ntilde"
	$Entity[210] = "Ograve"
	$Entity[211] = "Oacute"
	$Entity[212] = "Ocirc"
	$Entity[213] = "Otilde"
	$Entity[214] = "Ouml"
	$Entity[215] = "times"
	$Entity[216] = "Oslash"
	$Entity[217] = "Ugrave"
	$Entity[218] = "Uacute"
	$Entity[219] = "Ucirc"
	$Entity[220] = "Uuml"
	$Entity[221] = "Yacute"
	$Entity[222] = "THORN"
	$Entity[223] = "szlig"
	$Entity[224] = "agrave"
	$Entity[225] = "aacute"
	$Entity[226] = "acirc"
	$Entity[227] = "atilde"
	$Entity[228] = "auml"
	$Entity[229] = "aring"
	$Entity[230] = "aelig"
	$Entity[231] = "ccedil"
	$Entity[232] = "egrave"
	$Entity[233] = "eacute"
	$Entity[234] = "ecirc"
	$Entity[235] = "euml"
	$Entity[236] = "igrave"
	$Entity[237] = "iacute"
	$Entity[238] = "icirc"
	$Entity[239] = "iuml"
	$Entity[240] = "eth"
	$Entity[241] = "ntilde"
	$Entity[242] = "ograve"
	$Entity[243] = "oacute"
	$Entity[244] = "ocirc"
	$Entity[245] = "otilde"
	$Entity[246] = "ouml"
	$Entity[247] = "divide"
	$Entity[248] = "oslash"
	$Entity[249] = "ugrave"
	$Entity[250] = "uacute"
	$Entity[251] = "ucirc"
	$Entity[252] = "uuml"
	$Entity[253] = "yacute"
	$Entity[254] = "thorn"
	$Entity[255] = "yuml"
	$Entity[338] = "OElig"
	$Entity[339] = "oelig"
	$Entity[352] = "Scaron"
	$Entity[353] = "scaron"
	$Entity[376] = "Yuml"
	$Entity[402] = "fnof"
	$Entity[710] = "circ"
	$Entity[732] = "tilde"
	$Entity[913] = "Alpha"
	$Entity[914] = "Beta"
	$Entity[915] = "Gamma"
	$Entity[916] = "Delta"
	$Entity[917] = "Epsilon"
	$Entity[918] = "Zeta"
	$Entity[919] = "Eta"
	$Entity[920] = "Theta"
	$Entity[921] = "Iota"
	$Entity[922] = "Kappa"
	$Entity[923] = "Lambda"
	$Entity[924] = "Mu"
	$Entity[925] = "Nu"
	$Entity[926] = "Xi"
	$Entity[927] = "Omicron"
	$Entity[928] = "Pi"
	$Entity[929] = "Rho"
	$Entity[931] = "Sigma"
	$Entity[932] = "Tau"
	$Entity[933] = "Upsilon"
	$Entity[934] = "Phi"
	$Entity[935] = "Chi"
	$Entity[936] = "Psi"
	$Entity[937] = "Omega"
	$Entity[945] = "alpha"
	$Entity[946] = "beta"
	$Entity[947] = "gamma"
	$Entity[948] = "delta"
	$Entity[949] = "epsilon"
	$Entity[950] = "zeta"
	$Entity[951] = "eta"
	$Entity[952] = "theta"
	$Entity[953] = "iota"
	$Entity[954] = "kappa"
	$Entity[955] = "lambda"
	$Entity[956] = "mu"
	$Entity[957] = "nu"
	$Entity[958] = "xi"
	$Entity[959] = "omicron"
	$Entity[960] = "pi"
	$Entity[961] = "rho"
	$Entity[962] = "sigmaf"
	$Entity[963] = "sigma"
	$Entity[964] = "tau"
	$Entity[965] = "upsilon"
	$Entity[966] = "phi"
	$Entity[967] = "chi"
	$Entity[968] = "psi"
	$Entity[969] = "omega"
	$Entity[977] = "thetasym"
	$Entity[978] = "upsih"
	$Entity[982] = "piv"
	$Entity[8194] = "ensp"
	$Entity[8195] = "emsp"
	$Entity[8201] = "thinsp"
	$Entity[8204] = "zwnj"
	$Entity[8205] = "zwj"
	$Entity[8206] = "lrm"
	$Entity[8207] = "rlm"
	$Entity[8211] = "ndash"
	$Entity[8212] = "mdash"
	$Entity[8216] = "lsquo"
	$Entity[8217] = "rsquo"
	$Entity[8218] = "sbquo"
	$Entity[8220] = "ldquo"
	$Entity[8221] = "rdquo"
	$Entity[8222] = "bdquo"
	$Entity[8224] = "dagger"
	$Entity[8225] = "Dagger"
	$Entity[8226] = "bull"
	$Entity[8230] = "hellip"
	$Entity[8240] = "permil"
	$Entity[8242] = "prime"
	$Entity[8243] = "Prime"
	$Entity[8249] = "lsaquo"
	$Entity[8250] = "rsaquo"
	$Entity[8254] = "oline"
	$Entity[8260] = "frasl"
	$Entity[8364] = "euro"
	$Entity[8465] = "image"
	$Entity[8472] = "weierp"
	$Entity[8476] = "real"
	$Entity[8482] = "trade"
	$Entity[8501] = "alefsym"
	$Entity[8592] = "larr"
	$Entity[8593] = "uarr"
	$Entity[8594] = "rarr"
	$Entity[8595] = "darr"
	$Entity[8596] = "harr"
	$Entity[8629] = "crarr"
	$Entity[8656] = "lArr"
	$Entity[8657] = "uArr"
	$Entity[8658] = "rArr"
	$Entity[8659] = "dArr"
	$Entity[8660] = "hArr"
	$Entity[8704] = "forall"
	$Entity[8706] = "part"
	$Entity[8707] = "exist"
	$Entity[8709] = "empty"
	$Entity[8711] = "nabla"
	$Entity[8712] = "isin"
	$Entity[8713] = "notin"
	$Entity[8715] = "ni"
	$Entity[8719] = "prod"
	$Entity[8721] = "sum"
	$Entity[8722] = "minus"
	$Entity[8727] = "lowast"
	$Entity[8730] = "radic"
	$Entity[8733] = "prop"
	$Entity[8734] = "infin"
	$Entity[8736] = "ang"
	$Entity[8743] = "and"
	$Entity[8744] = "or"
	$Entity[8745] = "cap"
	$Entity[8746] = "cup"
	$Entity[8747] = "int"
	$Entity[8756] = "there4"
	$Entity[8764] = "sim"
	$Entity[8773] = "cong"
	$Entity[8776] = "asymp"
	$Entity[8800] = "ne"
	$Entity[8801] = "equiv"
	$Entity[8804] = "le"
	$Entity[8805] = "ge"
	$Entity[8834] = "sub"
	$Entity[8835] = "sup"
	$Entity[8836] = "nsub"
	$Entity[8838] = "sube"
	$Entity[8839] = "supe"
	$Entity[8853] = "oplus"
	$Entity[8855] = "otimes"
	$Entity[8869] = "perp"
	$Entity[8901] = "sdot"
	$Entity[8968] = "lceil"
	$Entity[8969] = "rceil"
	$Entity[8970] = "lfloor"
	$Entity[8971] = "rfloor"
	$Entity[9001] = "lang"
	$Entity[9002] = "rang"
	$Entity[9674] = "loz"
	$Entity[9824] = "spades"
	$Entity[9827] = "clubs"
	$Entity[9829] = "hearts"
	$Entity[9830] = "diams"

	local $e1 = StringRegExp($text, '&#x(.*?);', 3)
	local $e2 = StringRegExp($text, '&#(.*?);', 3)
	local $e3 = StringRegExp($text, '&(.*?);', 3)
	for $i = 0 To UBound($e1) - 1 step 1
		$text = StringReplace($text, '&#x' & $e1[$i] & ';', ChrW(Dec($e1[$i])))
	next
	for $i = 0 To UBound($e2) - 1 step 1
		$text = StringReplace($text, '&#' & $e2[$i] & ';', ChrW($e2[$i]))
	next
	for $i = 0 To UBound($e3) - 1 step 1
		$text = StringReplace($text, '&' & $e3[$i] & ';', ChrW(_ArraySearch($Entity, $e3[$i], 0, 0, 1)))
	next
	return $text
endfunc


func CreateHTMLEntities($string)
	local $len = StringLen($string)
	local $ret
	if not $len then return $string
	for $i = 1 to $len
		local $wchar = StringMid($string, $i, 1)
		$ret &= "&#" & AscW($wchar) & ";"
	next
	return $ret
endfunc


func EnCodeUrl($text)
	$text = StringReplace($text, " ", "%20")
	$text = StringReplace($text, "!", "%21")
	$text = StringReplace($text, '"', "%22")
	$text = StringReplace($text, "#", "%23")
	$text = StringReplace($text, "$", "%24")
	$text = StringReplace($text, "%", "%25")
	$text = StringReplace($text, "&", "%26")
	$text = StringReplace($text, "'", "%27")
	$text = StringReplace($text, "(", "%28")
	$text = StringReplace($text, ")", "%29")
	$text = StringReplace($text, "*", "%2A")
	$text = StringReplace($text, "+", "%2B")
	$text = StringReplace($text, ",", "%2C")
	$text = StringReplace($text, "-", "%2D")
	$text = StringReplace($text, ".", "%2E")
	$text = StringReplace($text, "/", "%2F")
	$text = StringReplace($text, "0", "%30")
	$text = StringReplace($text, "1", "%31")
	$text = StringReplace($text, "2", "%32")
	$text = StringReplace($text, "3", "%33")
	$text = StringReplace($text, "4", "%34")
	$text = StringReplace($text, "5", "%35")
	$text = StringReplace($text, "6", "%36")
	$text = StringReplace($text, "7", "%37")
	$text = StringReplace($text, "8", "%38")
	$text = StringReplace($text, "9", "%39")
	$text = StringReplace($text, ":", "%3A")
	$text = StringReplace($text, ";", "%3B")
	$text = StringReplace($text, "<", "%3C")
	$text = StringReplace($text, "=", "%3D")
	$text = StringReplace($text, ">", "%3E")
	$text = StringReplace($text, "?", "%3F")
	$text = StringReplace($text, "@", "%40")
	$text = StringReplace($text, "A", "%41")
	$text = StringReplace($text, "B", "%42")
	$text = StringReplace($text, "C", "%43")
	$text = StringReplace($text, "D", "%44")
	$text = StringReplace($text, "E", "%45")
	$text = StringReplace($text, "F", "%46")
	$text = StringReplace($text, "G", "%47")
	$text = StringReplace($text, "H", "%48")
	$text = StringReplace($text, "I", "%49")
	$text = StringReplace($text, "J", "%4A")
	$text = StringReplace($text, "K", "%4B")
	$text = StringReplace($text, "L", "%4C")
	$text = StringReplace($text, "M", "%4D")
	$text = StringReplace($text, "N", "%4E")
	$text = StringReplace($text, "O", "%4F")
	$text = StringReplace($text, "P", "%50")
	$text = StringReplace($text, "Q", "%51")
	$text = StringReplace($text, "R", "%52")
	$text = StringReplace($text, "S", "%53")
	$text = StringReplace($text, "T", "%54")
	$text = StringReplace($text, "U", "%55")
	$text = StringReplace($text, "V", "%56")
	$text = StringReplace($text, "W", "%57")
	$text = StringReplace($text, "X", "%58")
	$text = StringReplace($text, "Y", "%59")
	$text = StringReplace($text, "Z", "%5A")
	$text = StringReplace($text, "[", "%5B")
	$text = StringReplace($text, "\", "%5C")
	$text = StringReplace($text, "]", "%5D")
	$text = StringReplace($text, "^", "%5E")
	$text = StringReplace($text, "_", "%5F")
	$text = StringReplace($text, "`", "%60")
	$text = StringReplace($text, "a", "%61")
	$text = StringReplace($text, "b", "%62")
	$text = StringReplace($text, "c", "%63")
	$text = StringReplace($text, "d", "%64")
	$text = StringReplace($text, "e", "%65")
	$text = StringReplace($text, "f", "%66")
	$text = StringReplace($text, "g", "%67")
	$text = StringReplace($text, "h", "%68")
	$text = StringReplace($text, "i", "%69")
	$text = StringReplace($text, "j", "%6A")
	$text = StringReplace($text, "k", "%6B")
	$text = StringReplace($text, "l", "%6C")
	$text = StringReplace($text, "m", "%6D")
	$text = StringReplace($text, "n", "%6E")
	$text = StringReplace($text, "o", "%6F")
	$text = StringReplace($text, "p", "%70")
	$text = StringReplace($text, "q", "%71")
	$text = StringReplace($text, "r", "%72")
	$text = StringReplace($text, "s", "%73")
	$text = StringReplace($text, "t", "%74")
	$text = StringReplace($text, "u", "%75")
	$text = StringReplace($text, "v", "%76")
	$text = StringReplace($text, "w", "%77")
	$text = StringReplace($text, "x", "%78")
	$text = StringReplace($text, "y", "%79")
	$text = StringReplace($text, "z", "%7A")
	$text = StringReplace($text, "{", "%7B")
	$text = StringReplace($text, "|", "%7C")
	$text = StringReplace($text, "}", "%7D")
	$text = StringReplace($text, "~", "%7E")
	$text = StringReplace($text, " ", "%7F")
	$text = StringReplace($text, "€", "%80")
	$text = StringReplace($text, " ", "%81")
	$text = StringReplace($text, "‚", "%82")
	$text = StringReplace($text, "ƒ", "%83")
	$text = StringReplace($text, "„", "%84")
	$text = StringReplace($text, "…", "%85")
	$text = StringReplace($text, "†", "%86")
	$text = StringReplace($text, "‡", "%87")
	$text = StringReplace($text, "ˆ", "%88")
	$text = StringReplace($text, "‰", "%89")
	$text = StringReplace($text, "Š", "%8A")
	$text = StringReplace($text, "‹", "%8B")
	$text = StringReplace($text, "Œ", "%8C")
	$text = StringReplace($text, " ", "%8D")
	$text = StringReplace($text, "Ž", "%8E")
	$text = StringReplace($text, " ", "%8F")
	$text = StringReplace($text, " ", "%90")
	$text = StringReplace($text, "‘", "%91")
	$text = StringReplace($text, "’", "%92")
	$text = StringReplace($text, "“", "%93")
	$text = StringReplace($text, "”", "%94")
	$text = StringReplace($text, "•", "%95")
	$text = StringReplace($text, "–", "%96")
	$text = StringReplace($text, "—", "%97")
	$text = StringReplace($text, "˜", "%98")
	$text = StringReplace($text, "™", "%99")
	$text = StringReplace($text, "š", "%9A")
	$text = StringReplace($text, "›", "%9B")
	$text = StringReplace($text, "œ", "%9C")
	$text = StringReplace($text, " ", "%9D")
	$text = StringReplace($text, "ž", "%9E")
	$text = StringReplace($text, "Ÿ", "%9F")
	$text = StringReplace($text, " ", "%A0")
	$text = StringReplace($text, "¡", "%A1")
	$text = StringReplace($text, "¢", "%A2")
	$text = StringReplace($text, "£", "%A3")
	$text = StringReplace($text, " ", "%A4")
	$text = StringReplace($text, "¥", "%A5")
	$text = StringReplace($text, "|", "%A6")
	$text = StringReplace($text, "§", "%A7")
	$text = StringReplace($text, "¨", "%A8")
	$text = StringReplace($text, "©", "%A9")
	$text = StringReplace($text, "ª", "%AA")
	$text = StringReplace($text, "«", "%AB")
	$text = StringReplace($text, "¬", "%AC")
	$text = StringReplace($text, "¯", "%AD")
	$text = StringReplace($text, "®", "%AE")
	$text = StringReplace($text, "¯", "%AF")
	$text = StringReplace($text, "°", "%B0")
	$text = StringReplace($text, "±", "%B1")
	$text = StringReplace($text, "²", "%B2")
	$text = StringReplace($text, "³", "%B3")
	$text = StringReplace($text, "´", "%B4")
	$text = StringReplace($text, "µ", "%B5")
	$text = StringReplace($text, "¶", "%B6")
	$text = StringReplace($text, "·", "%B7")
	$text = StringReplace($text, "¸", "%B8")
	$text = StringReplace($text, "¹", "%B9")
	$text = StringReplace($text, "º", "%BA")
	$text = StringReplace($text, "»", "%BB")
	$text = StringReplace($text, "¼", "%BC")
	$text = StringReplace($text, "½", "%BD")
	$text = StringReplace($text, "¾", "%BE")
	$text = StringReplace($text, "¿", "%BF")
	$text = StringReplace($text, "À", "%C0")
	$text = StringReplace($text, "Á", "%C1")
	$text = StringReplace($text, "Â", "%C2")
	$text = StringReplace($text, "Ã", "%C3")
	$text = StringReplace($text, "Ä", "%C4")
	$text = StringReplace($text, "Å", "%C5")
	$text = StringReplace($text, "Æ", "%C6")
	$text = StringReplace($text, "Ç", "%C7")
	$text = StringReplace($text, "È", "%C8")
	$text = StringReplace($text, "É", "%C9")
	$text = StringReplace($text, "Ê", "%CA")
	$text = StringReplace($text, "Ë", "%CB")
	$text = StringReplace($text, "Ì", "%CC")
	$text = StringReplace($text, "Í", "%CD")
	$text = StringReplace($text, "Î", "%CE")
	$text = StringReplace($text, "Ï", "%CF")
	$text = StringReplace($text, "Ð", "%D0")
	$text = StringReplace($text, "Ñ", "%D1")
	$text = StringReplace($text, "Ò", "%D2")
	$text = StringReplace($text, "Ó", "%D3")
	$text = StringReplace($text, "Ô", "%D4")
	$text = StringReplace($text, "Õ", "%D5")
	$text = StringReplace($text, "Ö", "%D6")
	$text = StringReplace($text, " ", "%D7")
	$text = StringReplace($text, "Ø", "%D8")
	$text = StringReplace($text, "Ù", "%D9")
	$text = StringReplace($text, "Ú", "%DA")
	$text = StringReplace($text, "Û", "%DB")
	$text = StringReplace($text, "Ü", "%DC")
	$text = StringReplace($text, "Ý", "%DD")
	$text = StringReplace($text, "Þ", "%DE")
	$text = StringReplace($text, "ß", "%DF")
	$text = StringReplace($text, "à", "%E0")
	$text = StringReplace($text, "á", "%E1")
	$text = StringReplace($text, "â", "%E2")
	$text = StringReplace($text, "ã", "%E3")
	$text = StringReplace($text, "ä", "%E4")
	$text = StringReplace($text, "å", "%E5")
	$text = StringReplace($text, "æ", "%E6")
	$text = StringReplace($text, "ç", "%E7")
	$text = StringReplace($text, "è", "%E8")
	$text = StringReplace($text, "é", "%E9")
	$text = StringReplace($text, "ê", "%EA")
	$text = StringReplace($text, "ë", "%EB")
	$text = StringReplace($text, "ì", "%EC")
	$text = StringReplace($text, "í", "%ED")
	$text = StringReplace($text, "î", "%EE")
	$text = StringReplace($text, "ï", "%EF")
	$text = StringReplace($text, "ð", "%F0")
	$text = StringReplace($text, "ñ", "%F1")
	$text = StringReplace($text, "ò", "%F2")
	$text = StringReplace($text, "ó", "%F3")
	$text = StringReplace($text, "ô", "%F4")
	$text = StringReplace($text, "õ", "%F5")
	$text = StringReplace($text, "ö", "%F6")
	$text = StringReplace($text, "÷", "%F7")
	$text = StringReplace($text, "ø", "%F8")
	$text = StringReplace($text, "ù", "%F9")
	$text = StringReplace($text, "ú", "%FA")
	$text = StringReplace($text, "û", "%FB")
	$text = StringReplace($text, "ü", "%FC")
	$text = StringReplace($text, "ý", "%FD")
	$text = StringReplace($text, "þ", "%FE")
	$text = StringReplace($text, "ÿ", "%FF")
	return $text
endfunc


func DeCodeUrl($text)
	$text = StringReplace($text, "%20", " ")
	$text = StringReplace($text, "%21", "!")
	$text = StringReplace($text, "%22", '"')
	$text = StringReplace($text, "%23", "#")
	$text = StringReplace($text, "%24", "$")
	$text = StringReplace($text, "%25", "%")
	$text = StringReplace($text, "%26", "&")
	$text = StringReplace($text, "%27", "'")
	$text = StringReplace($text, "%28", "(")
	$text = StringReplace($text, "%29", ")")
	$text = StringReplace($text, "%2A", "*")
	$text = StringReplace($text, "%2B", "+")
	$text = StringReplace($text, "%2C", ",")
	$text = StringReplace($text, "%2D", "-")
	$text = StringReplace($text, "%2E", ".")
	$text = StringReplace($text, "%2F", "/")
	$text = StringReplace($text, "%30", "0")
	$text = StringReplace($text, "%31", "1")
	$text = StringReplace($text, "%32", "2")
	$text = StringReplace($text, "%33", "3")
	$text = StringReplace($text, "%34", "4")
	$text = StringReplace($text, "%35", "5")
	$text = StringReplace($text, "%36", "6")
	$text = StringReplace($text, "%37", "7")
	$text = StringReplace($text, "%38", "8")
	$text = StringReplace($text, "%39", "9")
	$text = StringReplace($text, "%3A", ":")
	$text = StringReplace($text, "%3B", ";")
	$text = StringReplace($text, "%3C", "<")
	$text = StringReplace($text, "%3D", "=")
	$text = StringReplace($text, "%3E", ">")
	$text = StringReplace($text, "%3F", "?")
	$text = StringReplace($text, "%40", "@")
	$text = StringReplace($text, "%41", "A")
	$text = StringReplace($text, "%42", "B")
	$text = StringReplace($text, "%43", "C")
	$text = StringReplace($text, "%44", "D")
	$text = StringReplace($text, "%45", "E")
	$text = StringReplace($text, "%46", "F")
	$text = StringReplace($text, "%47", "G")
	$text = StringReplace($text, "%48", "H")
	$text = StringReplace($text, "%49", "I")
	$text = StringReplace($text, "%4A", "J")
	$text = StringReplace($text, "%4B", "K")
	$text = StringReplace($text, "%4C", "L")
	$text = StringReplace($text, "%4D", "M")
	$text = StringReplace($text, "%4E", "N")
	$text = StringReplace($text, "%4F", "O")
	$text = StringReplace($text, "%50", "P")
	$text = StringReplace($text, "%51", "Q")
	$text = StringReplace($text, "%52", "R")
	$text = StringReplace($text, "%53", "S")
	$text = StringReplace($text, "%54", "T")
	$text = StringReplace($text, "%55", "U")
	$text = StringReplace($text, "%56", "V")
	$text = StringReplace($text, "%57", "W")
	$text = StringReplace($text, "%58", "X")
	$text = StringReplace($text, "%59", "Y")
	$text = StringReplace($text, "%5A", "Z")
	$text = StringReplace($text, "%5B", "[")
	$text = StringReplace($text, "%5C", "\")
	$text = StringReplace($text, "%5D", "]")
	$text = StringReplace($text, "%5E", "^")
	$text = StringReplace($text, "%5F", "_")
	$text = StringReplace($text, "%60", "`")
	$text = StringReplace($text, "%61", "a")
	$text = StringReplace($text, "%62", "b")
	$text = StringReplace($text, "%63", "c")
	$text = StringReplace($text, "%64", "d")
	$text = StringReplace($text, "%65", "e")
	$text = StringReplace($text, "%66", "f")
	$text = StringReplace($text, "%67", "g")
	$text = StringReplace($text, "%68", "h")
	$text = StringReplace($text, "%69", "i")
	$text = StringReplace($text, "%6A", "j")
	$text = StringReplace($text, "%6B", "k")
	$text = StringReplace($text, "%6C", "l")
	$text = StringReplace($text, "%6D", "m")
	$text = StringReplace($text, "%6E", "n")
	$text = StringReplace($text, "%6F", "o")
	$text = StringReplace($text, "%70", "p")
	$text = StringReplace($text, "%71", "q")
	$text = StringReplace($text, "%72", "r")
	$text = StringReplace($text, "%73", "s")
	$text = StringReplace($text, "%74", "t")
	$text = StringReplace($text, "%75", "u")
	$text = StringReplace($text, "%76", "v")
	$text = StringReplace($text, "%77", "w")
	$text = StringReplace($text, "%78", "x")
	$text = StringReplace($text, "%79", "y")
	$text = StringReplace($text, "%7A", "z")
	$text = StringReplace($text, "%7B", "{")
	$text = StringReplace($text, "%7C", "|")
	$text = StringReplace($text, "%7D", "}")
	$text = StringReplace($text, "%7E", "~")
	$text = StringReplace($text, "%7F", " ")
	$text = StringReplace($text, "%80", "€")
	$text = StringReplace($text, "%81", " ")
	$text = StringReplace($text, "%82", "‚")
	$text = StringReplace($text, "%83", "ƒ")
	$text = StringReplace($text, "%84", "„")
	$text = StringReplace($text, "%85", "…")
	$text = StringReplace($text, "%86", "†")
	$text = StringReplace($text, "%87", "‡")
	$text = StringReplace($text, "%88", "ˆ")
	$text = StringReplace($text, "%89", "‰")
	$text = StringReplace($text, "%8A", "Š")
	$text = StringReplace($text, "%8B", "‹")
	$text = StringReplace($text, "%8C", "Œ")
	$text = StringReplace($text, "%8D", " ")
	$text = StringReplace($text, "%8E", "Ž")
	$text = StringReplace($text, "%8F", " ")
	$text = StringReplace($text, "%90", " ")
	$text = StringReplace($text, "%91", "‘")
	$text = StringReplace($text, "%92", "’")
	$text = StringReplace($text, "%93", "“")
	$text = StringReplace($text, "%94", "”")
	$text = StringReplace($text, "%95", "•")
	$text = StringReplace($text, "%96", "–")
	$text = StringReplace($text, "%97", "—")
	$text = StringReplace($text, "%98", "˜")
	$text = StringReplace($text, "%99", "™")
	$text = StringReplace($text, "%9A", "š")
	$text = StringReplace($text, "%9B", "›")
	$text = StringReplace($text, "%9C", "œ")
	$text = StringReplace($text, "%9D", " ")
	$text = StringReplace($text, "%9E", "ž")
	$text = StringReplace($text, "%9F", "Ÿ")
	$text = StringReplace($text, "%A0", " ")
	$text = StringReplace($text, "%A1", "¡")
	$text = StringReplace($text, "%A2", "¢")
	$text = StringReplace($text, "%A3", "£")
	$text = StringReplace($text, "%A4", " ")
	$text = StringReplace($text, "%A5", "¥")
	$text = StringReplace($text, "%A6", "|")
	$text = StringReplace($text, "%A7", "§")
	$text = StringReplace($text, "%A8", "¨")
	$text = StringReplace($text, "%A9", "©")
	$text = StringReplace($text, "%AA", "ª")
	$text = StringReplace($text, "%AB", "«")
	$text = StringReplace($text, "%AC", "¬")
	$text = StringReplace($text, "%AD", "¯")
	$text = StringReplace($text, "%AE", "®")
	$text = StringReplace($text, "%AF", "¯")
	$text = StringReplace($text, "%B0", "°")
	$text = StringReplace($text, "%B1", "±")
	$text = StringReplace($text, "%B2", "²")
	$text = StringReplace($text, "%B3", "³")
	$text = StringReplace($text, "%B4", "´")
	$text = StringReplace($text, "%B5", "µ")
	$text = StringReplace($text, "%B6", "¶")
	$text = StringReplace($text, "%B7", "·")
	$text = StringReplace($text, "%B8", "¸")
	$text = StringReplace($text, "%B9", "¹")
	$text = StringReplace($text, "%BA", "º")
	$text = StringReplace($text, "%BB", "»")
	$text = StringReplace($text, "%BC", "¼")
	$text = StringReplace($text, "%BD", "½")
	$text = StringReplace($text, "%BE", "¾")
	$text = StringReplace($text, "%BF", "¿")
	$text = StringReplace($text, "%C0", "À")
	$text = StringReplace($text, "%C1", "Á")
	$text = StringReplace($text, "%C2", "Â")
	$text = StringReplace($text, "%C3", "Ã")
	$text = StringReplace($text, "%C4", "Ä")
	$text = StringReplace($text, "%C5", "Å")
	$text = StringReplace($text, "%C6", "Æ")
	$text = StringReplace($text, "%C7", "Ç")
	$text = StringReplace($text, "%C8", "È")
	$text = StringReplace($text, "%C9", "É")
	$text = StringReplace($text, "%CA", "Ê")
	$text = StringReplace($text, "%CB", "Ë")
	$text = StringReplace($text, "%CC", "Ì")
	$text = StringReplace($text, "%CD", "Í")
	$text = StringReplace($text, "%CE", "Î")
	$text = StringReplace($text, "%CF", "Ï")
	$text = StringReplace($text, "%D0", "Ð")
	$text = StringReplace($text, "%D1", "Ñ")
	$text = StringReplace($text, "%D2", "Ò")
	$text = StringReplace($text, "%D3", "Ó")
	$text = StringReplace($text, "%D4", "Ô")
	$text = StringReplace($text, "%D5", "Õ")
	$text = StringReplace($text, "%D6", "Ö")
	$text = StringReplace($text, "%D7", " ")
	$text = StringReplace($text, "%D8", "Ø")
	$text = StringReplace($text, "%D9", "Ù")
	$text = StringReplace($text, "%DA", "Ú")
	$text = StringReplace($text, "%DB", "Û")
	$text = StringReplace($text, "%DC", "Ü")
	$text = StringReplace($text, "%DD", "Ý")
	$text = StringReplace($text, "%DE", "Þ")
	$text = StringReplace($text, "%DF", "ß")
	$text = StringReplace($text, "%E0", "à")
	$text = StringReplace($text, "%E1", "á")
	$text = StringReplace($text, "%E2", "â")
	$text = StringReplace($text, "%E3", "ã")
	$text = StringReplace($text, "%E4", "ä")
	$text = StringReplace($text, "%E5", "å")
	$text = StringReplace($text, "%E6", "æ")
	$text = StringReplace($text, "%E7", "ç")
	$text = StringReplace($text, "%E8", "è")
	$text = StringReplace($text, "%E9", "é")
	$text = StringReplace($text, "%EA", "ê")
	$text = StringReplace($text, "%EB", "ë")
	$text = StringReplace($text, "%EC", "ì")
	$text = StringReplace($text, "%ED", "í")
	$text = StringReplace($text, "%EE", "î")
	$text = StringReplace($text, "%EF", "ï")
	$text = StringReplace($text, "%F0", "ð")
	$text = StringReplace($text, "%F1", "ñ")
	$text = StringReplace($text, "%F2", "ò")
	$text = StringReplace($text, "%F3", "ó")
	$text = StringReplace($text, "%F4", "ô")
	$text = StringReplace($text, "%F5", "õ")
	$text = StringReplace($text, "%F6", "ö")
	$text = StringReplace($text, "%F7", "÷")
	$text = StringReplace($text, "%F8", "ø")
	$text = StringReplace($text, "%F9", "ù")
	$text = StringReplace($text, "%FA", "ú")
	$text = StringReplace($text, "%FB", "û")
	$text = StringReplace($text, "%FC", "ü")
	$text = StringReplace($text, "%FD", "ý")
	$text = StringReplace($text, "%FE", "þ")
	$text = StringReplace($text, "%FF", "ÿ")
	return $text
endfunc



; Strip HTML tags from a string..
;
func StripHTML($web_text, $lf=$LOG_LF)
	; strip out the HTML..
	$web_text = StringReplace($web_text, "&nbsp;", " ")
	$web_text = StringRegExpReplace($web_text, '</?[^>]*?>', '')
	$web_text = StringReplace($web_text, $lf & $lf, $lf)
	return StringStripWS($web_text,3)
endfunc


; OrdAbbAppend()
;
; Used to append ordinal abbreviations onto numbers, for
; use in human-readable numeric strings, mainly dates.
;
; Feed it a number, OrdAbbAppend() returns that number,
; plus the appendment, as a string. e.g..
;
;	$foo = OrdAbbAppend(20)
;	; $foo = "20th"
;
func OrdAbbAppend($d_str)
	if $d_str < 1 then
		SetError(1)
		return ""
	endif
	local $appends[10]
	$appends[0] = "th"
	$appends[1] = "st"
	$appends[2] = "nd"
	$appends[3] = "rd"
	$appends[4] = "th"
	$appends[5] = "th"
	$appends[6] = "th"
	$appends[7] = "th"
	$appends[8] = "th"
	$appends[9] = "th"
	if StringMid($d_str, StringLen($d_str)-1, 1) == 1 then
		$appends[1] = "th"
		$appends[2] = "th"
		$appends[3] = "th"
	endif
	return $d_str & $appends[StringRight($d_str, 1)]
endfunc



; Convert seconds to readable H/M/S time..
;
func SecondsToDHMS($sec=0, $round=true)

	debug("SecondsToDHMS(sec) =>" & $sec & "<=", @ScriptLineNumber, 9);debug

	if $round then $sec = StringFormat("%.02f", $sec)

	if $sec < 0 then return -1
	select
		case  $sec < 61
			return $sec & " seconds"
		case $sec < 3601
			return StringFormat('%.01dm %.01ds', Mod(($sec / 60), 60), Mod($sec, 60))
		case $sec < 86401
			return StringFormat('%.01dh %.01dm %.01ds', Mod($sec / 3600, 24), Int(Mod(($sec / 60), 60)), Mod($sec, 60))
		case else
			return StringFormat('%.01dd %.01dh %.01dm %.01ds', Mod($sec / 86400, 7), _
						Mod($sec / 3600, 24), Int(Mod(($sec / 60), 60)), Mod($sec, 60))
	endselect
endfunc

; ; Convert seconds to readable D/H/M/S time..
; ;
; func SecondsToDHMS($sec=0)

	; if $sec < 0 then return -1
	; select
		; case  $sec < 61
			; return StringFormat("%.02f", $sec) & " seconds"
		; case $sec < 3601
			; return StringFormat('%.01dm %.01ds', Mod(($sec / 60), 60), Mod($sec, 60))
		; case $sec < 86401
			; return StringFormat('%.01dh %.01dm %.01ds', Mod($sec / 3600, 24), Int(Mod(($sec / 60), 60)), Mod($sec, 60))
		; case else
			; return StringFormat('%.01dd %.01dh %.01dm %.01ds', Mod($sec / 86400, 7), _
						; Mod($sec / 3600, 24), Int(Mod(($sec / 60), 60)), Mod($sec, 60))
	; endselect
; endfunc


;
; UserTimeToUnitTime
;
; This is an emtremely limited function designed for specific back-end tasks.
; If you want to mess with time stuff, use the functions inside <Date.au3>.
;
; This converts "user" (Human) time to an integer unit of time.
; Input a string indicating a time, returns that time in some unit. Here's ms..
;
;	input		Returned Milliseconds
;	------		---------------------
;	1000	=>	1000
;	1000ms	=>	1000
;	1s		=>	1000
;	1m		=>	60000
;	1h		=>	3600000
;	1d		=>	86400000
;
; The second parameter controls the units which will be returned.
; By default it is milliseconds. You can also ask for s, m, h & d.
;
; You can specify "full info" (3rd parameter) which will have UserTimeToUnitTime
; return an array of two values, [0] = the final units, [1] = the user (human)
; unit they arrived in, e.g. "h".
;
func UserTimeToUnitTime($user_time, $time_unit="ms", $full_info=false)

	local $ret_array[2] = [0,"ms"]

	if IsNumber($user_time) then
		if $full_info then
			$ret_array[0] = $user_time
			return $ret_array
		else
			return $user_time
		endif
	endif

	select
		case StringRight($user_time, 2) = "ms"
			CRT($user_time, "ms")
			; leave number as-is

		case StringRight($user_time, 1) = "s"
			CRT($user_time, "s")
			$user_time *= 1000

		case StringRight($user_time, 1) = "m"
			CRT($user_time, "m")
			$user_time *= (1000*60)

		case StringRight($user_time, 1) = "h"
			CRT($user_time, "h")
			$user_time *= (1000*60*60)

		case StringRight($user_time, 1) = "d"
			CRT($user_time, "d")
			$user_time *= (1000*60*60*24)
	endselect


	switch $time_unit
		; case "ms" ; also 1st for quickness
			; $user_time = $user_time
		case "s"
			$user_time = $user_time/1000
			$ret_array[1] = "s"
		case "m"
			$user_time = $user_time/1000/60
			$ret_array[1] = "m"
		case "h"
			$user_time = $user_time/1000/60/60
			$ret_array[1] = "h"
		case "d"
			$user_time = $user_time/1000/60/60/24
			$ret_array[1] = "h"
	endswitch

	$ret_array[0] = Number($user_time)

	if $full_info then
		return $ret_array
	else
		return $user_time
	endif

endfunc



; 24h > Human Time > 24h..
;
; HourToHumanTime()
;
; Feed it a 24-hour format hour (e.g. "16").
; Returns a 1-dimensional array with two values..	[4, "pm"]
;
;	[0] = hour (integer in 12-hour clock format)
;	[1] = am/pm (string)
;
func HourToHumanTime($24hour)
	local $human_hour[2]
		$human_hour[0] = Number($24hour) ; 02 -> 2
		$human_hour[1] = "am"
		if $24hour > 11 then $human_hour[1] = "pm"
		if $24hour = 00 then $human_hour[0] = 12
		if $24hour > 12 then $human_hour[0] -= 12
		$human_hour[0] = int($human_hour[0])
	return $human_hour
endfunc


; And the reverse..
;
; Feed it the twelve-hour-clock format hour, and the am/pm string ("am" or "pm")
; Returns an integer (the hour, in 24 hour clock format, padded with a zero, if
; necessary), e.g..
;
;		HumanTimeToHour(3, "am") = 03
;		HumanTimeToHour(3, "pm") = 15
;
; I use two variables here because a) it's clearer, and b)
; I've been gagging to use the word "puter" in a variable for ages.
;
func HumanTimeToHour($12hour, $am_pm)
	local $puter_hours
	switch $am_pm
		case "am"
			if $12hour = 12 then
				$puter_hours = 0
			else
				$puter_hours = $12hour
			endif
		case "pm"
			if $12hour = 12 then
				$puter_hours = 12
			else
				$puter_hours = $12hour + 12
			endif
	endswitch
	return StringFormat("%02d", $puter_hours)
endfunc




; Convert a plain ASCII file to Unicode..
func MakeUnicodeFile($file)
	local $non_unicode_text = FileRead($file)
	; only ASCII will produce the same length string as file the size..
	if FileGetSize($file) = StringLen($non_unicode_text) then
		local $unicode_file = FileOpen($file, 2 + 32) ; erase + UTF16
		FileWrite($unicode_file, $non_unicode_text)
		return true
	endif
	; or else something bad happened..
	return false
endfunc


; Normalize all line-endings
; to @CRLF, or whatever..

; this is the fastest, bestest, simplest method..
func UnifyCRLF($some_text, $LF=@CRLF)
	return StringRegExpReplace($some_text, "\R", $LF)
;    return StringRegExpReplace($string, '(*BSR_ANYCRLF)\R', @CRLF)
endfunc


; Convert newlines from preferences "\n" to actual Linefeeds, for use in logs, 
; console display, etc.. Also works the other way around.
;
; Conversion happens ByRef, so simply do..
;
;	ConvertNewlines($string)
;
func ConvertNewlines(ByRef $pref_string, $reverse=false, $LF=$LOG_LF)
	if $reverse then
		$pref_string = StringReplace($pref_string, $LF, "\n")
	else
		$pref_string = StringReplace($pref_string, "\n", $LF)
	endif
endfunc


; Feed it a number (which is always a MB value), returns value + " MB". If the
; number is > 1024 MB, it is (optionally) converted and returned + " GB", then
; " TB".
func FormatMB($mb, $round=0, $array=false)

	local $return, $unit
	$mb = Number($mb)

	select

		case $mb = 0
			$return = 0

		case $mb < 1024
			$return = Round($mb, $round)
			$unit = "MB"

		case $mb >= 1048576
			$return = Round($mb / 1048576, $round)
			$unit = "TB"

		case $mb >= 1024
			$return = Round($mb / 1024, $round)
			$unit = "GB"

	endselect

	if $array then
		local $ret[2]
		$ret[0] = $mb
		$ret[1] = $unit
		return $ret
	endif
	return $return & " " & $unit

endfunc




func BytesToByteUnit($bytes_value, $unit_required, $round=2)

 debug("", @ScriptLineNumber, 7);debug
 debug("BytesToByteUnit(" & $bytes_value & "," & $unit_required  & "," & $round & ")", @ScriptLineNumber, 7);debug

	local $return = $bytes_value
	switch $unit_required

		;case "B"

		case "KB"; Kilobyte
			$return = Round($bytes_value/1024, $round)

		case "MB" ; Megabyte
			$return = Round($bytes_value/1048576, $round)

		case "GB" ; Gigabyte
			$return = Round($bytes_value/1.073742e+009, $round)

		case "TB" ; Terabyte
			$return = Round($bytes_value/1.099512e+012, $round)

		case "PB" ; Petabyte
			$return = Round($bytes_value/1.1259e+015, $round)

		case "EB" ; Exabyte
			$return = Round($bytes_value/1.152922e+018, $round)

		case "ZB" ; Zettabyte
			$return = Round($bytes_value/1.180592e+021, $round)

		case "YB" ; Yottabyte	(named after Yoda!)
			$return = Round($bytes_value/1.208926e+024, $round)

	endswitch
	debug("Returning: =>" & $return & "<=", @ScriptLineNumber, 7);debug

	return $return

endfunc


; Create a random String.
; Returns a string of "random" upper and lower case letters to the specified length.
; Only letters are returned, no special characters.
func MakeRandomString($length=32, $seed=@Min*@Sec*@MSec)

 debug("", @ScriptLineNumber, 7);debug
 debug("MakeRandomString(" & $seed & ")", @ScriptLineNumber, 7);debug

	SRandom($seed)
	local $a[$length]
	local $x = 0
	while $a[$length-1] = ""
		local $tmp = Chr(Random(65, 122, 1))
		if StringIsAlpha($tmp) then
			$a[$x] = Asc($tmp)
			$x += 1
		endif
	wend

	$a = StringFromASCIIArray($a)
	debug("MakeRandomString() returning: =>" & $a & "<=", @ScriptLineNumber, 7);debug
	return $a
endfunc

; local $first_done = false
; if not $params then $params = 12
; for $i = 1 to Random($random_name_lower_limit, $params, 1)
	; if not $first_done then
		; $new_name &= Chr(Random(65, 90, 1))
		; $first_done = true
	; endif
	; $new_name &= Chr(Random(97, 122, 1))
; next



; Create a random "X-String", which is hexadecimal digits (0-9, A-F)
; Works great, but could obviously be improved!
func MakeRandomXString($length=32, $seed=@Min*@Sec*@MSec)
	SRandom($seed)
	local $a[$length]
	local $x = 0
	while $a[$length-1] = ""
		local $tmp = Chr(Random(48, 71, 1)) ; CAPITALS
		if StringIsXDigit($tmp) then
			$a[$x] = Asc($tmp)
			$x += 1
		endif
	wend
	$a = StringFromASCIIArray($a)
	debug("MakeRandomXString() returning: =>" & $a & "<=", @ScriptLineNumber, 7);debug
	return $a
endfunc





; From Color-Pickin-Chooser..
;

; ConvertColorValue()
;
;	ConvertColorValue(RGB_color{HEX}, mode{TEXT}, add_prefix{BOOL}, index{INT} (0=return full 6 digits), lowercase{BOOL})
;
;	To get this..		Use any of these..
;	-------------		--------------------------------------------------------
; 	RGB Integer:		"i", "RGB Integer", "RGB Int" or "int".
; 	AutoIt RGB			"a", "Autoit RGB Hex", "Autoit RGB", "AutoIt Hex", or "AutoIt".
; 	AutoIt BGR			"b", "Autoit BGR Hex", "Autoit BGR", "BGR Hex" or "bgr".
; 	Delphi Hex			"d", "Delphi" or "Delphi Hex".
; 	Visual C++ BGR		"v", "vc", "Visual C++ Hex", "Visual C++ BGR", "Visual C++", "Visual C++ BGR Hex" or "C++".
; 	RGB Float			"RGB Float", "float" or "f".
; 	HSL					"h", "Hue/Sat/Lum", "HSL" or "h/s/l".
; 	CMYK				"k", "cmyk" or "c/m/y/k".
; 	Web Hex				"w", "Web Hex", "Web", or "Hex".

func ConvertColorValue($color, $mode = "web", $prefix = false, $index = 0, $lowercase = $off)
	if StringLeft($color, 1) = "#" Then $color = StringTrimLeft($color, 1)
	local $pre = ""
	switch $mode
		case "i", "RGB Integer", "RGB Int", "int"
			switch $index
				case 0
					$color = Dec(StringLeft($color, 2)) & "," & Dec(StringMid($color, 3, 2)) & "," & Dec(StringRight($color, 2))
				case 1
					return Dec(StringLeft($color, 2))
				case 2
					return Dec(StringMid($color, 3, 2))
				case 3
					return Dec(StringRight($color, 2))
			endswitch
		case "a", "Autoit RGB Hex", "Autoit RGB", "AutoIt Hex", "AutoIt"
			$color = "0x" & $color
		case "b", "Autoit BGR Hex", "Autoit BGR", "BGR Hex", "bgr"
			$color = "0x" & StringRight($color, 2) & StringMid($color, 3, 2) & StringLeft($color, 2)
		case "d", "Delphi", "Delphi Hex"
			$color = "00" & StringRight($color, 2) & StringMid($color, 3, 2) & StringLeft($color, 2)
			$pre = "$"
		case "v", "vc", "Visual C++ Hex", "Visual C++ BGR", "Visual C++", "Visual C++ BGR Hex", "C++"
			$color = "0x00" & StringRight($color, 2) & StringMid($color, 3, 2) & StringLeft($color, 2)
		case "RGB Float", "float", "f"
			local $r = Round((1 / 255) * Dec(StringLeft($color, 2)), 2)
			local $g = Round((1 / 255) * Dec(StringMid($color, 3, 2)), 2)
			local $b = Round((1 / 255) * Dec(StringRight($color, 2)), 2)
			$color = StringFormat("%#.2f", $r) & "," & StringFormat("%#.2f", $g) & "," & StringFormat("%#.2f", $b)
		case "h", "Hue/Sat/Lum", "HSL", "h/s/l"
			$color = RGBtoHSL($color, ",", 100)
		case "k", "cmyk", "c/m/y/k"
			if $prefix = 1 then
				$color = RGBtoCMYK($color, true)
			else
				$color = RGBtoCMYK($color)
			endif
		case "w", "Web Hex", "Web", "Hex"
			$pre = "#"
	endswitch
	if not $prefix or $prefix = 4 then $pre = ""
	if $lowercase = $on then $color = StringLower($color)
	return $pre & $color
endfunc

Func RGBtoCMYK($rgb_color, $norm = 0)
	local $rc_r = ConvertColorValue($rgb_color, "i", 0, 1) / 255
	local $rc_g = ConvertColorValue($rgb_color, "i", 0, 2) / 255
	local $rc_b = ConvertColorValue($rgb_color, "i", 0, 3) / 255
	local $k = MinMin(1 - $rc_r, 1 - $rc_g, 1 - $rc_b)
	local $c = (1 - $rc_r - $k) / (1 - $k)
	local $m = (1 - $rc_g - $k) / (1 - $k)
	local $y = (1 - $rc_b - $k) / (1 - $k)
	if $norm then
		return Round($c * 100, 1) & "," & Round($m * 100, 1) & "," & Round($y * 100, 1) & "," & Round($k * 100, 1)
	else
		return Round($c, 3) & "," & Round($m, 3) & "," & Round($y, 3) & "," & Round($k, 3)
	endif
endfunc

func RGBtoHSL($rgb_color, $idx = "", $simple_array = False, $hsl_scale = 1)
	local $rh_r = ConvertColorValue($rgb_color, "i", 0, 1) / 255
	local $rh_g = ConvertColorValue($rgb_color, "i", 0, 2) / 255
	local $rh_b = ConvertColorValue($rgb_color, "i", 0, 3) / 255
	local $rh_min = MinMin($rh_r, $rh_g, $rh_b)
	local $rh_max = MaxMax($rh_r, $rh_g, $rh_b)
	local $rh_delta = $rh_max - $rh_min
	if $idx <> 1 then
		local $rh_lightness = ($rh_min + $rh_max) / 2
		if $idx = 3 then return Round($rh_lightness * $hsl_scale, 2)
		local $rh_saturation = 0
		if $rh_lightness > 0 and $rh_lightness < 1 then
			If $rh_lightness < 0.5 then
				$rh_saturation = $rh_delta / (2 * $rh_lightness)
			else
				$rh_saturation = $rh_delta / (2 - 2 * $rh_lightness)
			endif
		endif
		If $idx = 2 then return Round($rh_saturation * $hsl_scale, 2)
	endif
	local $rh_hue = 0
	if $rh_delta > 0 then
		if $rh_max = $rh_r and $rh_max <> $rh_g then
			$rh_hue += ($rh_g - $rh_b) / $rh_delta
		endif
		if $rh_max = $rh_g and $rh_max <> $rh_b then
			$rh_hue += 2 + ($rh_b - $rh_r) / $rh_delta
		endif
		if $rh_max = $rh_b and $rh_max <> $rh_r then
			$rh_hue += 4 + ($rh_r - $rh_g) / $rh_delta
		endif
		$rh_hue *= 60
	endif
	if $rh_hue < 0 then $rh_hue += 360
	if $idx = 1 then return Round($rh_hue)
	local $do_string = true
	if not $idx then
		$idx = ","
		$do_string = false
	endif
	local $hsl_arr[3]
	$hsl_arr[0] = Round($rh_hue)
	$hsl_arr[1] = Round($rh_saturation * $hsl_scale, 2)
	$hsl_arr[2] = Round($rh_lightness * $hsl_scale, 2)
	local $hsl = $hsl_arr[0] & $idx & $hsl_arr[1] & $idx & $hsl_arr[2]
	if $do_string then return $hsl
	if $simple_array then return $hsl_arr
	return StringSplit($hsl, $idx)
endfunc





; Send the $string after the Shift, Alt, Ctrl & Win (L or R) keys are released.
; Optionally, give a warning after 1 sec if any of those keys are still down.
; $flag is the same as for Send().
func SendWait($string, $flag=0, $warn="You don't need to hold the modifier keys down for so long!")

 ; debug("", @ScriptLineNumber, 7);debug
 ; debug("string(" & $string & "," & $flag  & "," & $warn & ")", @ScriptLineNumber, 7);debug

	$am_sending = true
	local $HKt = TimerInit()
	while _IsPressed("10") or _IsPressed("11") or _IsPressed("12") or _IsPressed("5B") or _IsPressed("5C")
		if $warn <> "" and TimerDiff($HKt) > 1000 then
			debug("SendWait(HOLDING_KEYS_WARNING)", @ScriptLineNumber, 7);debug

			if IniRead($ini_path, $my_name, "holding_keys_warning", $OFF) = $OFF then
				MsgBox($MB_TOPMOST, "Note..", $warn) ; 0x00040000
				IniWrite($ini_path, $my_name, "holding_keys_warning", $ON)
			endif
		endif
		Sleep(50)
	wend
	Send($string, $flag)
	$am_sending = false
	return $string
endfunc






; Fancy Custom Input Box..	(accepts drag&drop of files)

;	returns:

;	Success:	The value input by the user.
;				@error contains the X coordinate of the window when closed
;				@extended contains the X coordinate of the window when closed
;
;				If you leave the width at the default (-1), CorzFancyInputBox will
;				save and restore its own width settings. Or else specify your own.
;
;	Failure:	Empty "" value.
;				@error contains a non-0 value..
;
;				1 = The Cancel/Close button was pushed.
;				2 = The Timeout time was reached.
;
; As well as being a drop-in replacement for InputBox, you can optionally supply
; the  full path to an ini file and section name to have CorzFancyInputBox save
; the x/y/width specifications for the inputbox, recall them the next time the
; user accesses the same inputbox.
;
; If you are using the defaults ($ini_path/$my_name), you can leave out the ini prefs.
;
;
; NOTE: CorzFancyInputBox() uses the title to create a preference name. If you
; send 100 separate titles for say, 100 buttons, you will create 100 preferences (x3!)
;
; In other words, best to put any control-specific text into the *prompt*.
;
func CorzFancyInputBox($title, $prompt, $default_text="", $pass=default, $ib_w=default, $ib_h=default, $ib_x=default, $ib_y=default, _
			$timeout=default, $gui_ex=false, $style=default, $inipath=default, $sectionname=default, $sel1=default, $sel2=default)

	debug("CorzFancyInputBox(title: " & $title & ", prompt: " & $prompt  & ", default_text: " & $default_text & ", pass: " & $pass  & ", ib_w: " & $ib_w  & ", ib_h: " & $ib_h  & ", ib_x: " & $ib_x  & ", ib_y: " & $ib_y  & ", timeout: " & $timeout  & ", gui_ex: " & $gui_ex  & ", style: " & $style  & ", inipath: " & $inipath  & ", sectionname: " & $sectionname  & ", sel1: " & $sel1   & ", sel2: " & $sel2 & ")...", @ScriptLineNumber, 7);debug


	local $previous_event_mode = AutoItSetOption("GUIOnEventMode", 0)
	local $previous_coord_mode = AutoItSetOption("GUICoordMode", 1)

	local $pref_name = CleanPrefName($title)

	if not $inipath or $inipath = default then $inipath = $ini_path
	if not $sectionname or $sectionname = default then $sectionname = $my_name
	if not $style or $style = default then $style = -1
	if not $pass or $pass = default then $pass = ""

	if $ib_x = Default then $ib_x = -1
	if $ib_y = default then $ib_y = -1
	if $ib_h = default then $ib_h = 96
	if $ib_w = default then $ib_w = @DesktopWidth/2

	$ib_x = IniRead($inipath, $sectionname, "inputbox_" & $pref_name & "_x", $ib_x)
	$ib_y = IniRead($inipath, $sectionname, "inputbox_" & $pref_name & "_y", $ib_y)
	$ib_w = IniRead($inipath, $sectionname, "inputbox_" & $pref_name & "_width", $ib_w)

	if not $ib_x then $ib_x = -1
	if not $ib_y then $ib_y = -1
	if not $ib_h then $ib_h = 96
	if not $ib_w then $ib_w = @DesktopWidth/2

	debug("$ib_x: " & $ib_x, @ScriptLineNumber, 8);debug
	debug("$ib_y: " & $ib_y, @ScriptLineNumber, 8);debug
	debug("$ib_h: " & $ib_h, @ScriptLineNumber, 8);debug
	debug("$ib_w: " & $ib_w, @ScriptLineNumber, 8);debug

	if $timeout = default then $timeout = 0
	if $sel1 = default then $sel1 = 0
	if $sel2 = default then $sel2 = -1

	local $line = $prompt
	if StringInStr($prompt, $MSG_LF) then
		; Measure length of first line, up to the linebreak..
		$line = StringMid($line, 1, StringInStr($line, $MSG_LF)-1)
	endif
	debug("line to length-check: " & $line, @ScriptLineNumber, 8);debug

	local $line_length = StringLen($line)
	debug("$line_length: " & $line_length, @ScriptLineNumber, 8);debug

	local $min_w = $line_length * 7.2 ; MAGIC!
	debug("$min_w: " & $min_w, @ScriptLineNumber, 8);debug

	if $ib_w < $min_w then $ib_w = $min_w

	StringReplace($prompt, $MSG_LF, $MSG_LF)
	local $line_count = @Extended + 1
	debug("$line_count: " & $line_count, @ScriptLineNumber, 8);debug

	local $return = false
	local $error = 0
	local $inputstyle = $ES_AUTOHSCROLL
	local $exStyle = BitOr($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST)

	if $style = -1 then $style = BitOr($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX)
	if $pass <> 0 then $inputstyle = BitOr($ES_AUTOHSCROLL, $ES_PASSWORD)

	; Make the dialog..
	local $ib_GUI = GUICreate($title, $ib_w, $ib_h, $ib_x, $ib_y, $style, $exStyle, $gui_ex)

	local $lab_prompt = GUICtrlCreateLabel($prompt, 10, 5, $ib_w-10, 16*$line_count)
	GUICtrlSetFont(-1, 10)

	local $but_OK = GUICtrlCreateButton("OK", $ib_w-45, $ib_h-30, 40, 22, $BS_DEFPUSHBUTTON)
	GUICtrlSetState(-1, $GUI_ONTOP)
	GUICtrlSetTip(-1,	"Save the setting." & $MSG_LF & _
						"When you click this button (and the input is not empty)," & $MSG_LF & _
						"the size and position of this dialog will be saved for future use.")

	local $but_Cancel = GUICtrlCreateButton("Cancel", 5, $ib_h-30, 60, 22)
	GUICtrlSetState(-1, $GUI_ONTOP)
	GUICtrlSetTip(-1,	"Cancel this dialog." & $MSG_LF & _
						"Do not save the input."  & $MSG_LF & _
						"Do not save dialog's size and position.")

	local $ib_font = IniRead($inipath, $sectionname, "inputbox_font", "Consolas")
	local $inp_MyID = GUICtrlCreateInput($default_text, 70, $ib_h-30, $ib_w-125, 22, $inputstyle)
	GUICtrlSetState(-1, $GUI_FOCUS)
	GUICtrlSetFont(-1, 10 , 400, "", $ib_font)
	GUICtrlSetState(-1, $GUI_DROPACCEPTED)
	GUICtrlSetTip(-1, $prompt)

	GUICtrlSetResizing($lab_prompt, $GUI_DOCKALL)
	GUICtrlSetResizing($but_OK, $GUI_DOCKSTATEBAR+$GUI_DOCKWIDTH+$GUI_DOCKRIGHT)
	GUICtrlSetResizing($but_Cancel, $GUI_DOCKSTATEBAR+$GUI_DOCKLEFT+$GUI_DOCKWIDTH)
	GUICtrlSetResizing($inp_MyID, $GUI_DOCKSTATEBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT)


	GUISetState(@SW_SHOW, $ib_GUI)
	_GUICtrlEdit_SetSel($inp_MyID, $sel1, $sel2)
	WinMove($title, "", default, default, $ib_w, $ib_h)

	if $timeout <> 0 then local $dialog_begin = TimerInit()
	local $size_array

	while true

		switch GUIGetMsg()
			case $GUI_EVENT_RESIZED
				$size_array = WinGetPos($title)
				if not IsArray($size_array) then continueloop
				local $my_width = $size_array[2]
				if $size_array[2] < $min_w then
					WinMove($title, "", default, default, $min_w, $ib_h)
					$my_width = $min_w
				endif
				if $size_array[3] <> $ib_h then WinMove($title, "", default, default, $my_width, $ib_h)
			case $GUI_EVENT_CLOSE, $but_Cancel
				$return = false
				$error = 1
				exitloop
			case $but_OK
				$return = StringStripWS(GUICtrlRead($inp_MyID), 3)
				exitloop
		endswitch

		if $timeout <> 0 then
			if TimerDiff($dialog_begin)/1000 > $timeout then
				$return = false
				$error = 2
				exitloop
			endif
		endif

	wend

	; Return X & Y in @error & @extended.. ?
	if $return then
		local $x_coord = -1, $y_coord = -1, $ib_width
		$size_array = WinGetPos($title)	; 0-1-2-3:x-y-w-h
		if IsArray($size_array) then
			$x_coord = $size_array[0]
			$y_coord = $size_array[1]
			$ib_width = $size_array[2]
		endif
	endif

	AutoItSetOption("GUIOnEventMode", $previous_event_mode)
	AutoItSetOption("GUICoordMode", $previous_coord_mode)
	GUIDelete($ib_GUI)


	if $return then
		; Only write prefs if the user actually changed the position/dimensions from the defaults..
		if $x_coord and $x_coord <> -1 then IniWrite($inipath, $sectionname, "inputbox_" & $pref_name & "_x", $x_coord)
		if $y_coord and $y_coord <> -1 then IniWrite($inipath, $sectionname, "inputbox_" & $pref_name & "_y", $y_coord)
		if $ib_width and $ib_width <> @DesktopWidth/2 then
			IniWrite($inipath, $sectionname, "inputbox_" & $pref_name & "_width", $ib_width)
		endif
		return $return
	endif
	return SetError($error, 0, "")
endfunc



#cs
	CorzFancyMsgBox()

	A replacement for MsgBox, except with a checkbox for the user to never be
	asked about the issue again. It's basic, but does the job.

	Returns the number of the button the user clicked (1, 2, 3 or 4).

	You can set the usual $hwnd and styles (defaults should be fine).

	It will resize its height to fit the text sent (ish).

	You can have from one to four buttons, sending the text required for each
	button, or blank to produce no button. Obviously, if you want only two
	buttons, you set the value of the first two and leave the last two blank.

	If you set, for example, the value of the first and last buttons, leaving 2
	and 3 blank, you will get four buttons, two of which will be blank!

	You can also set which is the default button (1, 2, 3 or 4).

	CorzFancyMsgBox() will store the X & Y position of the dialog for future
	instances. Each dialog gets its own settings (the pref name being derived
	from the title of the message box).

	You can supply an ini path and section name to store the prefs, otherwise
	CorzFancyMsgBox() will use the app default ini and main app [name] section.

	If the user checks the "Always perform the chosen action" box, the user's
	choice is saved to the ini file and in future CorzFancyMsgBox() will simply
	return the pre-saved value.

	You can also set an icon (full path, unless it's in your PATH) and icon
	index (note: most icons inside shell32.dll use -negative IDs)..

	Handy shell32.dll icons..

		ID			Icon
		-----		-------------
		24			question mark
		-211		question mark 3D
		-28/28		stop 	(appliance)
		-220		stop	(no entry)
		-237		warning triangle
		-278		information (i)	old 2D				(default icon)
		-317		cog	(completely square, no transparency required!)
		-239		Recycle

	CorzFancyMsgBox() returns:

		The number of the button the user clicked (1, 2, 3 or 4).

		If the user clicked a button, @error and @extended are set to the final
		X and Y positions of the dialog, respectively. FYI.

		If the user cancels out of the dialog, @error will be set to 1 and the
		function will return 0 as the value.


	Examples:

	CorzFancyMsgBox("This is a notice", "You never have to see this notice again")

	$debug = CorzFancyMsgBox("Really Overwrite Files?", "Many triggers and tasks have been found to already exist in KeyBind.ini. Overwrite?" , 60, false, -1, $ini_path, "Test", "Yes", "No", "", "", 2, "shell32.dll", -237)
	debug("$debug: =>" & $debug & "<=", @ScriptLineNumber, 7);debug

#ce
func CorzFancyMsgBox($title, $text, $timeout=0, $gui_ex=false, $style=-1, $inipath=$ini_path, _
					$sectionname=$my_name, $butt1_txt="OK", $butt2_txt="", $butt3_txt="", $butt4_txt="", _
					$default_butt=1, $icon_path="shell32.dll", $icon_id=-278)

 debug("", @ScriptLineNumber, 7);debug
 debug("CorzFancyMsgBox(" & $title & "," & $text  & "," & $gui_ex & "," & $style  & "," & $inipath & "," & $sectionname  & "," & $butt1_txt & "," & $butt2_txt  & "," & $butt3_txt & "," & $butt4_txt  & "," & $default_butt & "," & $icon_path  & "," & $icon_id & ")", @ScriptLineNumber, 7);debug

	local $pref_name = CleanPrefName($title)

	; There may be a predetermined response..
	local $dont_bug_me = IniRead($inipath, $sectionname, $pref_name & "_dont_bug_me", 0)
	debug("$dont_bug_me: =>" & $dont_bug_me & "<=", @ScriptLineNumber, 7);debug
	if $dont_bug_me <> 0 then return $dont_bug_me	; the number of the saved response

	if $timeout		= default then $timeout		= 0
	if $gui_ex		= default then $gui_ex		= false
	if $style		= default then $style		= -1
	if $inipath		= default then $inipath		= $ini_path
	if $butt1_txt	= default then $butt1_txt	= "OK"
	if not $butt1_txt then $butt1_txt = "OK"
	if $sectionname	= default then $sectionname	= $my_name

	local $dt_pushed
	local $dt_warn_count = 0

	local $error, $extended
	local $last_event_mode = AutoItSetOption("GUIOnEventMode", 0)
	local $last_coord_mode = AutoItSetOption("GUICoordMode", 0) ; relative to last control


	; work out some sizes and positions..

	if $style = -1 then $style = BitOr($WS_CAPTION, $WS_SYSMENU, $WS_SIZEBOX)
	local $exStyle = BitOr($WS_EX_TOPMOST, $GUI_WS_EX_PARENTDRAG)

	local $dt_min_w = 400
	local $dt_min_h = 130
	local $dt_w
	local $dt_h = $dt_min_h

	; Not very clever. Works well within our limited range.	(under 1000 characters)
	local $text_len = StringLen($text)
	debug("$text_len: =>" & $text_len & "<=", @ScriptLineNumber, 7);debug

	local $size_array
	local $addin_height = 0
	while $addin_height < $text_len
		$dt_h += 22		; add these pixels to the GUI height
		$addin_height += 50 ; for every extra this many characters text length (slightly magic!)
		$dt_min_h += 22
	wend

	local $butt_width
	local $dt_x = IniRead($inipath, $sectionname, "msgbox_" & $pref_name & "_x", -1)
	local $dt_y = IniRead($inipath, $sectionname, "msgbox_" & $pref_name & "_y", -1)
	$dt_w = IniRead($inipath, $sectionname, "msgbox_" & $pref_name & "_width", $dt_min_w)

	; create the GUI..
	;

	local $dt_GUI = GUICreate($title, $dt_w, $dt_h, $dt_x, $dt_y, $style, $exStyle, $gui_ex)
	GUISetFont(-1, 10, 400, 0, "Segoe UI", 5)
	GUISetBkColor(0xFFFFFF)

	; icon_path
	local $icon_width = 0
	if $icon_path then $icon_width = 36


	; CheckBox::
	; Don't bug me again about this!!
	;
	GUISetCoord(10, $dt_h-66)
	local $check_dont_bug = GUICtrlCreateCheckBox("Always perform the chosen action.", 0, 0, 220, default, _
		Bitor($WS_TABSTOP, $BS_AUTOCHECKBOX), BitOr($WS_EX_TOPMOST, $WS_EX_TRANSPARENT, $GUI_WS_EX_PARENTDRAG))
	GUICtrlSetFont(-1, 8.5, 400, 0, "Segoe UI", 5)
	GUICtrlSetBkColor(-1, 0xFFFFFF)
	GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKSIZE+$GUI_DOCKLEFT)


	; the "text" label..
	;
	GUISetCoord(15+$icon_width, 6)
	GUICtrlCreatelabel($text, 0, 0, $dt_w-30-$icon_width, $dt_h-53, _
							BitOr($SS_NOTIFY, $SS_LEFT), $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetBkColor(-1, 0xFFFFFF)
	; GUICtrlSetBkColor(-1, 0xFF0000)
	GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
	GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI", 5)
	GUICtrlSetTip(-1, " You can click and drag the entire window around quickly from here ")


	; icon		"shell32.dll"
	;
	if $icon_path then
		GUISetCoord(10, 10)
		GUICtrlCreateIcon("", "", 0, -2, 32, 32, $SS_ICON, $WS_EX_TRANSPARENT)
		GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
		GUICtrlSetTip(-1, " this is an image ")
		GUICtrlSetState(-1,$GUI_DISABLE)
		GUICtrlSetImage(-1, $icon_path, $icon_id)
		GUICtrlSetResizing(-1, $GUI_DOCKSIZE+$GUI_DOCKLEFT+$GUI_DOCKTOP)

	endif

	; The Stripe
	; (F0F0F0)..
	;
	GUISetCoord(50,$dt_h-43)
	; $label_stripe = GUICtrlCreatelabel("", 0, 0, $dt_w, $dt_h, 0, $GUI_WS_EX_PARENTDRAG)
	GUICtrlCreatelabel(" ", 0, 0, $dt_w-100, 2, 0, $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetBkColor(-1, 0xF0F0F0)
	GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKHEIGHT)


	; Make The Buttons..
	;
	local $buttons = 1
	if $butt2_txt then $buttons = 2
	if $butt3_txt then $buttons = 3
	if $butt4_txt then $buttons = 4
	local $buttons_array[$buttons+1][2] = [[$buttons]]
	local $buttonstyle = BitOr($BS_CENTER, $BS_FLAT, $BS_VCENTER, $BS_NOTIFY, $WS_TABSTOP)
	local $total_width = 0, $gap = 7
	local $button_top = $dt_h-33
	local $i = 1 ; [0] => Button ID, [1] => text of button
	while $i <= $buttons
		$buttons_array[$i][1] = Eval("butt" & $i & "_txt") ; screw the manual! It works!
		$i += 1
	wend
	; create buttons, as required..
	for $i = $buttons_array[0][0] to 1 step -1
		$butt_width = (StringLen($buttons_array[$i][1])*8)+20
		GUISetCoord($dt_w-$total_width-$butt_width-$gap, $button_top)
		$buttons_array[$i][0] = GUICtrlCreateButton($buttons_array[$i][1], 0, 0, $butt_width, 25, $buttonstyle)
		GUICtrlSetFont(-1, 9, 400, 0, "Segoe UI", 5)
		GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKSIZE+$GUI_DOCKRIGHT)
		$total_width += $butt_width+$gap
		if $i = $default_butt then ControlFocus($dt_GUI, "", $buttons_array[$i][0])
	next

	; Another Dragable Area..
	;
	GUISetCoord(0,$button_top-8)
	GUICtrlCreateLabel("", 0, 0, $dt_w-$total_width-2, 50, 0, $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetTip(-1, " Yes, you can click and drag the entire window around quickly from here, too ")
	GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKSIZE+$GUI_DOCKLEFT+$GUI_DOCKRIGHT)


	; Show the dialog..
	;
	GUISetState(@SW_SHOW, $dt_GUI)
	WinMove($dt_GUI, "", default, default, $dt_w, $dt_h)

	local $msg

	while true

		$dt_pushed = 0

		$msg = GUIGetMsg()

		for $i = 1 to $buttons_array[0][0]
			if $msg = $buttons_array[$i][0] then
				$dt_pushed = $i
				exitloop
			endif
		next

		if $dt_pushed then
			exitloop
		else
			select

				case $msg = $GUI_EVENT_CLOSE
					exitloop

				case $msg = $GUI_EVENT_RESIZED
					$size_array = WinGetPos($dt_GUI)
					if not IsArray($size_array) then return false
					if $size_array[2] < $dt_min_w then WinMove($dt_GUI, "", default, default, $dt_min_w, $size_array[3])
					if $size_array[3] < $dt_min_h then WinMove($dt_GUI, "", default, default, $size_array[2], $dt_min_h)

				case $msg = $check_dont_bug

					if GUICtrlread($check_dont_bug) = $ON then

						$dt_warn_count += 1
						local $message = 	"From now on you will no longer be notified and " & $my_name & _
											" will just get on with doing whatever YOU CHOOSE NEXT..."
						if $dt_warn_count > 1 then $message = "You have been warned!"
						if $dt_warn_count > 3 then $message = "Oh! Just DECIDE will you!"
						MsgBox($MB_ICONWARNING+$MB_SYSTEMMODAL, "This is PERMANENT!!", $message)

					endif

			endselect

		endif

		Sleep(50)
	wend



	; User clicked a button (didn't cancel out)
	;
	if $dt_pushed = 0 then
		$error = 1	; user cancelled out
	else
		debug("CorzFancyMsgBox() User Clicked Button: " & $dt_pushed, @ScriptLineNumber, 7);debug
		debug("CorzFancyMsgBox() User Chooses Option: " & $buttons_array[$dt_pushed][1], @ScriptLineNumber, 7);debug

		; There may already be a response for this dialog..
		; Re-use $dont_bug_me.
		$dont_bug_me = GUICtrlRead($check_dont_bug)

		if $dont_bug_me = $ON then
			IniWrite($inipath, $sectionname, $pref_name & "_dont_bug_me", $dt_pushed)
		else
			; If you are never seeing this dialog again you don't need this lot..
			$size_array = WinGetPos($dt_GUI)	; 0-1-2-3:x-y-w-h
			if IsArray($size_array) then
				IniWrite($inipath, $sectionname, "msgbox_" & $pref_name & "_x", $size_array[0])
				IniWrite($inipath, $sectionname, "msgbox_" & $pref_name & "_y", $size_array[1])
				IniWrite($inipath, $sectionname, "msgbox_" & $pref_name & "_width", $size_array[2])
				$error = $size_array[0]
				$extended = $size_array[1]
			endif
		endif
	endif

	AutoItSetOption("GUIOnEventMode", $last_event_mode)
	AutoItSetOption("GUICoordMode", $last_coord_mode)
	GUIDelete($dt_GUI)

	return SetError($error, $extended, $dt_pushed)

endfunc




; Event-Mode version of above function..
;
func CorzFancyMsgBoxEM($title, $text, $timeout=0, $gui_ex=false, $style=-1, $inipath=$ini_path, _
					$sectionname=$my_name, $butt1_txt="OK", $butt2_txt="", $butt3_txt="", $butt4_txt="", _
					$default_butt=1, $icon_path="shell32.dll", $icon_id=-278)

 debug("", @ScriptLineNumber, 7);debug
 debug("CorzFancyMsgBoxEM(" & $title & "," & $text  & "," & $gui_ex & "," & $style  & "," & $inipath & "," & $sectionname  & "," & $butt1_txt & "," & $butt2_txt  & "," & $butt3_txt & "," & $butt4_txt  & "," & $default_butt & "," & $icon_path  & "," & $icon_id & ")", @ScriptLineNumber, 7);debug

	local $pref_name = CleanPrefName($title)

	; There may be a predetermined response..
	local $dont_bug_me = IniRead($inipath, $sectionname, $pref_name & "_dont_bug_me", 0)
	debug("$dont_bug_me: =>" & $dont_bug_me & "<=", @ScriptLineNumber, 7);debug
	if $dont_bug_me <> 0 then return $dont_bug_me	; the number of the saved response

	if $timeout		= default then $timeout		= 0
	if $gui_ex		= default then $gui_ex		= false
	if $style		= default then $style		= -1
	if $inipath		= default then $inipath		= $ini_path
	if $butt1_txt	= default then $butt1_txt	= "OK"
	if not $butt1_txt then $butt1_txt = "OK"
	if $sectionname	= default then $sectionname	= $my_name

	global $dt_open = true
	global $dt_pushed = 0
	global $dt_warn_count = 0

	local $error, $extended
	local $last_event_mode = AutoItSetOption("GUIOnEventMode", 1)
	local $last_coord_mode = AutoItSetOption("GUICoordMode", 0) ; relative to last control


	; work out some sizes and positions..

	if $style = -1 then $style = BitOr($WS_CAPTION, $WS_SYSMENU, $WS_SIZEBOX)
	local $exStyle = BitOr($WS_EX_TOPMOST, $GUI_WS_EX_PARENTDRAG)

	global $dt_min_w = 400
	global $dt_min_h = 130
	local $dt_w
	local $dt_h = $dt_min_h

	; Not very clever. Works well within our limited range.	(under 1000 characters)
	local $text_len = StringLen($text)
	debug("$text_len: =>" & $text_len & "<=", @ScriptLineNumber, 7);debug

	local $addin_height = 0
	while $addin_height < $text_len
		$dt_h += 22		; add these pixels to the GUI height
		$addin_height += 50 ; for every extra this many characters text length (slightly magic!)
		$dt_min_h += 22
	wend

	local $butt_width
	local $dt_x = IniRead($inipath, $sectionname, "msgbox_" & $pref_name & "_x", -1)
	local $dt_y = IniRead($inipath, $sectionname, "msgbox_" & $pref_name & "_y", -1)
	$dt_w = IniRead($inipath, $sectionname, "msgbox_" & $pref_name & "_width", $dt_min_w)

	; create the GUI..
	;

	global $dt_GUI = GUICreate($title, $dt_w, $dt_h, $dt_x, $dt_y, $style, $exStyle, $gui_ex)
	GUISetFont(-1, 10, 400, 0, "Segoe UI", 5)
	GUISetBkColor(0xFFFFFF)

	GUISetOnEvent($GUI_EVENT_CLOSE, "cfmbCloseDialog", $dt_GUI)
	GUISetOnEvent($GUI_EVENT_RESIZED, "cfmbResize", $dt_GUI)

	; icon_path
	local $icon_width = 0
	if $icon_path then $icon_width = 36



	; CheckBox::
	; Don't bug me again about this!!
	;
	GUISetCoord(10, $dt_h-66)
	global $check_dont_bug = GUICtrlCreateCheckBox("Always perform the chosen action.", 0, 0, 220, default, _
		Bitor($WS_TABSTOP, $BS_AUTOCHECKBOX), BitOr($WS_EX_TOPMOST, $WS_EX_TRANSPARENT, $GUI_WS_EX_PARENTDRAG))
	GUICtrlSetFont(-1, 8.5, 400, 0, "Segoe UI", 5)
	GUICtrlSetBkColor(-1, 0xFFFFFF)
	GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
	GUICtrlSetOnEvent(-1, "cfmbWarnPermanent")


	; the "text" label..
	;
	GUISetCoord(15+$icon_width, 6)
	GUICtrlCreatelabel($text, 0, 0, $dt_w-30-$icon_width, $dt_h-53, _
							BitOr($SS_NOTIFY, $SS_LEFT), $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetBkColor(-1, 0xFFFFFF)
	; GUICtrlSetBkColor(-1, 0xFF0000)
	GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
	GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI", 5)
	GUICtrlSetTip(-1, " You can click and drag the entire window around quickly from here ")


	; icon		"shell32.dll"
	;
	if $icon_path then
		GUISetCoord(10, 10)
		GUICtrlCreateIcon("", "", 0, -2, 32, 32, $SS_ICON, $WS_EX_TRANSPARENT)
		GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
		GUICtrlSetTip(-1, " this is an image ")
		GUICtrlSetState(-1,$GUI_DISABLE)
		GUICtrlSetImage(-1, $icon_path, $icon_id)
		GUICtrlSetResizing(-1, $GUI_DOCKSIZE+$GUI_DOCKLEFT+$GUI_DOCKTOP)

	endif

	; The Stripe
	; (F0F0F0)..
	;
	GUISetCoord(50,$dt_h-43)
	; $label_stripe = GUICtrlCreatelabel("", 0, 0, $dt_w, $dt_h, 0, $GUI_WS_EX_PARENTDRAG)
	GUICtrlCreatelabel(" ", 0, 0, $dt_w-100, 2, 0, $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetBkColor(-1, 0xF0F0F0)
	GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKHEIGHT)


	; Make The Buttons..
	;
	local $buttons = 1
	if $butt2_txt then $buttons = 2
	if $butt3_txt then $buttons = 3
	if $butt4_txt then $buttons = 4
	global $buttons_array[$buttons+1][2] = [[$buttons]]
	local $buttonstyle = BitOr($BS_CENTER, $BS_FLAT, $BS_VCENTER, $BS_NOTIFY, $WS_TABSTOP)
	local $total_width = 0, $gap = 7
	local $button_top = $dt_h-33
	local $i = 1 ; [0] => Button ID, [1] => text of button
	while $i <= $buttons
		$buttons_array[$i][1] = Eval("butt" & $i & "_txt") ; screw the manual! It works!
		$i += 1
	wend
	; create buttons, as required..
	for $i = $buttons_array[0][0] to 1 step -1
		$butt_width = (StringLen($buttons_array[$i][1])*8)+20
		GUISetCoord($dt_w-$total_width-$butt_width-$gap, $button_top)
		$buttons_array[$i][0] = GUICtrlCreateButton($buttons_array[$i][1], 0, 0, $butt_width, 25, $buttonstyle)
		GUICtrlSetFont(-1, 9, 400, 0, "Segoe UI", 5)
		GUICtrlSetOnEvent(-1, "cfmbPushButton")
		GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKSIZE+$GUI_DOCKRIGHT)
		;GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
		$total_width += $butt_width+$gap
		if $i = $default_butt then ControlFocus($dt_GUI, "", $buttons_array[$i][0])
	next

	; Another Dragable Area..
	;
	GUISetCoord(0,$button_top-8)
	GUICtrlCreateLabel("", 0, 0, $dt_w-$total_width-2, 50, 0, $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetTip(-1, " Yes, you can click and drag the entire window around quickly from here, too ")
	GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKSIZE+$GUI_DOCKLEFT+$GUI_DOCKRIGHT)


	; Show the dialog..
	;
	GUISetState(@SW_SHOW, $dt_GUI)
	WinMove($dt_GUI, "", default, default, $dt_w, $dt_h)

	while $dt_open
		Sleep(25)
	wend

	; User clicked a button (didn't cancel out)
	;
	if $dt_pushed = 0 then
		$error = 1	; user cancelled out
	else
		debug("CorzFancyMsgBox() User Clicked Button:: " & $dt_pushed, @ScriptLineNumber, 7);debug
		debug("CorzFancyMsgBox() User Chooses Option:: " & $buttons_array[$dt_pushed][1], @ScriptLineNumber, 7);debug

		; There may already be a response for this dialog..
		; Re-use $dont_bug_me.
		$dont_bug_me = GUICtrlRead($check_dont_bug)

		if $dont_bug_me = $ON then
			IniWrite($inipath, $sectionname, $pref_name & "_dont_bug_me", $dt_pushed)
		else
			; If you are never seeing this dialog again you don't need this lot..
			local $size_array = WinGetPos($dt_GUI)	; 0-1-2-3:x-y-w-h
			if IsArray($size_array) then
				IniWrite($inipath, $sectionname, "msgbox_" & $pref_name & "_x", $size_array[0])
				IniWrite($inipath, $sectionname, "msgbox_" & $pref_name & "_y", $size_array[1])
				IniWrite($inipath, $sectionname, "msgbox_" & $pref_name & "_width", $size_array[2])
				$error = $size_array[0]
				$extended = $size_array[1]
			endif
		endif
	endif

	AutoItSetOption("GUIOnEventMode", $last_event_mode)
	AutoItSetOption("GUICoordMode", $last_coord_mode)
	GUIDelete($dt_GUI)

	return SetError($error, $extended, $dt_pushed)

endfunc

func cfmbResize()
	local $size_array = WinGetPos($dt_GUI)
	if not IsArray($size_array) then return false
	if $size_array[2] < $dt_min_w then WinMove($dt_GUI, "", default, default, $dt_min_w, $size_array[3])
	if $size_array[3] < $dt_min_h then WinMove($dt_GUI, "", default, default, $size_array[2], $dt_min_h)
endfunc

func cfmbPushButton()
 debug("", @ScriptLineNumber, 7);debug
 debug("cfmbPushButton(" & @GUI_CtrlId & ")", @ScriptLineNumber, 7);debug
	for $i = 1 to $buttons_array[0][0]
		if @GUI_CtrlId = $buttons_array[$i][0] then
			$dt_pushed = $i
			cfmbCloseDialog()
		endif
	next
endfunc

func cfmbWarnPermanent()
	if GUICtrlread($check_dont_bug) = $OFF then return
	$dt_warn_count += 1
	local $message = 	"From now on you will no longer be notified and " & $my_name & _
						" will just get on with doing whatever YOU CHOOSE NEXT..."
	if $dt_warn_count > 1 then $message = "You have been warned!"
	if $dt_warn_count > 3 then $message = "Oh! Just DECIDE will you!"
	MsgBox($MB_ICONWARNING+$MB_SYSTEMMODAL, "This is PERMANENT!!", $message)
endfunc

func cfmbCloseDialog()
	$dt_open = false
endfunc







; Automatic Version Checking..
; See corz_essentials.au3 for more info
; requires..
;	#include <Date.au3>
;	#include <Misc.au3>
;	#include <WinAPIFiles.au3>
;	#include <InetConstants.au3>

func VersionCheckOnline($v_name, $vck_url, $dl_url, $my_ini, $my_section, $this_version, $GUI=default)

	debug("VersionCheckOnline(v)" & $this_version, @ScriptLineNumber, 6);debug

	if not @Compiled then return

	local $version_checking = IniRead($my_ini, $my_section, "version_checking", "")

	if $version_checking == 0 then return false

	if $version_checking = -1 or $version_checking = "" then	; -1 at install time
		local $do_checkver = CorzFancyInputBox("Automatic Version Checking?", $v_name & _
						" can check online for a new version of itself." & $MSG_LF & _
						"Enter the number of days between checks." & $MSG_LF & _
						"(enter 0 to disable version checking.)", "" , " M" , _
						400, 130 , (@DesktopWidth/2)-200, (@DesktopHeight/2)-50, 0, $GUI)
		if $do_checkver = "" then return false ; cancelled out of inputbox
		; They enter "fuck off!", we write "0"
		IniWrite($my_ini, $my_section, "version_checking", Number($do_checkver))
		if $do_checkver = 0 then return false
	endif

	if $version_checking > 365 then $version_checking = 365

	if $version_checking > 0 or StringLeft($version_checking, 1) = "a" then
		local $version_checked = IniRead($my_ini, $my_section, "version_checked", "2000/01/01 00:00:00")
		if StringLeft($version_checking, 1) <> "a" then
			local $days_passed = _DateDiff("D", $version_checked, _NowCalc())
			if $days_passed < $version_checking then return false
		endif
	endif

	local $daystr = "every day"
	if $version_checking > 1 then $daystr = "every " & $version_checking & " days"
	if StringLeft($version_checking, 1) = "a" then $daystr = "always"

	ProgressOn("Version Check (" & $daystr & ")" , "Checking for new version..")
	ProgressSet(25)

	$vck_url &= "&frequency=" & $version_checking & "&current=" & $this_version

	local $published_version = BackGroundDownload($vck_url, 5000, 25)
	local $errmsg, $ext_error = @extended

	if @error <> 0 or not $published_version then
		ProgressOff()
		switch $ext_error
			case 1
				$errmsg = $MSG_LF & "It looks like " & $my_domain & " is down."
			case 2
				$errmsg = $MSG_LF & "Connexion timed-out."
			case 3
				$errmsg = $MSG_LF & "Check your firewall."
		endswitch
		debug("Version Check FAILED." & $errmsg, @ScriptLineNumber, 1);debug
		MsgBox(16, "Version Check FAILED!", "Could not determine version online." & $errmsg)
		return false
	endif

	ProgressSet(50)
	IniWrite($my_ini, $my_section, "version_checked", _NowCalc())
	ProgressSet(75)

	local $vcomp = _VersionCompare($this_version, $published_version)
	switch $vcomp
		case 0, 1	; both equal (or $this_version is greater!!!)
			ProgressSet(100)
			ProgressOff()
			return false
		case -1
			ProgressSet(100)
			local $version_response = MsgBox(4+48+262144, "New Version Available", _
									"A newer version of " & $v_name & " is available." & $MSG_LF _
										&  "Would you like to visit the download page?")
			ProgressOff()
			switch $version_response

				case 6	; yes - go to download page
					ShellExecute($dl_url)
			endswitch
			return $published_version
	endswitch
endfunc






; Download a file from $dl_URL in the background, wait for $timeout milliseconds.
; This is designed to be used with VersionCheckOnline(), but could be used for any background download.
; Returns the raw file data.
; Abort, set @error to non-0 and return false if file not received.
; Type of fail is in @extended (1=server down, 2=timeout, 3=firewall blocked)
;
; NOTE: this function updates a progress dialog (set current position with $start). Optional.

func BackGroundDownload($dl_URL, $timeout=default, $start=default, $save_file=default)

	if $timeout = default then $timeout = 3000
	if $start = default then $start = 0
	if $save_file = default then $save_file = false

	Local $c_time, $TmpFile
	$TmpFile = _WinAPI_GetTempFileName(@TempDir)
	if $save_file then
		$TmpFile = $save_file
	else
	$TmpFile = _WinAPI_GetTempFileName(@TempDir)
	endif
	local $DL = InetGet($dl_URL, $TmpFile, ($INET_FORCERELOAD + $INET_FORCEBYPASS), $INET_DOWNLOADBACKGROUND)

	; We could use a sleep step for calculating time, but using small steps (eg. 25) would throw the total out of whack
	local $BG_time = TimerInit()
	local $dmsg

	do
		Sleep(10)

		$c_time = Round(TimerDiff($BG_time))

		if Mod($c_time, 100) < 11 then	; 1 larger than sleep time (above).
			if $c_time > 999 then
				ProgressSet($start+(($c_time*3)/1000), "", "Checking: timeout in " & ($timeout-$c_time) & " ms")
			endif
		endif

		if $c_time >= $timeout then
			InetClose($DL)
			$dmsg = "Failed. Connexion Timeout."
			ProgressSet(0, "", $dmsg)
			debug($dmsg, @ScriptLineNumber, 1);debug
			return SetError(1, 2, $dmsg)	; 2 = timeout
		endif

	until InetGetInfo($DL, $INET_DOWNLOADCOMPLETE)

	local $success = InetGetInfo($DL, $INET_DOWNLOADSUCCESS)
	InetClose($DL)

	if not $success then
		; Test server..
		if Ping($my_domain, 500) < 10 then
			$dmsg = "Failed. Suspect Firewall."
			ProgressSet(0, "", $dmsg)
			debug($dmsg, @ScriptLineNumber, 1);debug
			return SetError(1, 3, $dmsg) ; 3 = check firewall
		else
			$dmsg = "Failed. Suspect Server Error."
			debug($dmsg, @ScriptLineNumber, 1);debug
			ProgressSet(0, "", $dmsg)
			return SetError(1, 1, $dmsg) ; 1 = server error / 404
		endif
	endif

	local $dl_data = FileRead($TmpFile)
	ProgressSet(0, "", "Success!")

	if not $save_file then
		FileDelete($TmpFile)
		return $dl_data
	endif

endfunc







; Feed it a path, if it is a full, valid path it is returned as-is.
; If it's a relative path, it is added to the datadir path and that full path is returned.
func SetRelPathToDataDir($some_path)
	if $some_path and StringLeft($some_path, 2) <> '\\' and StringMid($some_path, 2, 1) <> ':' then
		CLT($some_path)
		$some_path = $data_dir & "\" & $some_path
		CRT($some_path)
	endif
	return $some_path
endfunc




; Fire up the user's default screensaver..
;
func StartScreenSaver()
	global $user32_dll = DllOpen("user32.dll")
	local Const $WM_SYSCOMMAND = 0x112
	local Const $SC_SCREENSAVE = 0xF140
	local $gui = GUICreate("",10,10,-100,-100)
	local $guiHandle = WinGetHandle($gui)
	DllCall($user32_dll, "long", "SendMessageA", "long", $guiHandle, "long", $WM_SYSCOMMAND, "long", $SC_SCREENSAVE, "long", 0x0)
	DllClose($user32_dll)
	GUIDelete($gui)
endfunc


; Lock the WorkStation.
; Simple, effective..
;
func LockWorkStation()
	ShellExecute("rundll32.exe", 'user32.dll,LockWorkStation') ; NOTE: CaSe is Crucial, here.
	if @Error then return SetError(@Error, @Extended, false)
	return true
endfunc





; Author:       xrxca (autoit at forums dot xrx dot ca) + wee bits by me
;
func _GetMonitors()
	$monitors_list[0][0] = 0  ;  Added so that the global array is reset if this is called multiple times
	local $handle = DllCallbackRegister("_MonitorEnumProc", "int", "hwnd;hwnd;ptr;lparam")
	DllCall("user32.dll", "int", "EnumDisplayMonitors", "hwnd", 0, "ptr", 0, "ptr", DllCallbackGetPtr($handle), "lparam", 0)
	DllCallbackFree($handle)
	local $i = 0
	for $i = 1 To $monitors_list[0][0]
		if $monitors_list[$i][1] < $monitors_list[0][1] then $monitors_list[0][1] = $monitors_list[$i][1]
		if $monitors_list[$i][2] < $monitors_list[0][2] then $monitors_list[0][2] = $monitors_list[$i][2]
		if $monitors_list[$i][3] > $monitors_list[0][3] then $monitors_list[0][3] = $monitors_list[$i][3]
		if $monitors_list[$i][4] > $monitors_list[0][4] then $monitors_list[0][4] = $monitors_list[$i][4]
	next
	return $monitors_list
endfunc   ;==>_GetMonitors
func _MonitorEnumProc($hMonitor, $hDC, $lRect, $lParam)
#forceref $lParam, $hDC
	local $Rect = DllStructCreate("int left;int top;int right;int bottom", $lRect)
	$monitors_list[0][0] += 1
	redim $monitors_list[$monitors_list[0][0] + 1][5]
	$monitors_list[$monitors_list[0][0]][0] = $hMonitor
	$monitors_list[$monitors_list[0][0]][1] = DllStructGetData($Rect, "left")
	$monitors_list[$monitors_list[0][0]][2] = DllStructGetData($Rect, "top")
	$monitors_list[$monitors_list[0][0]][3] = DllStructGetData($Rect, "right")
	$monitors_list[$monitors_list[0][0]][4] = DllStructGetData($Rect, "bottom")
	return 1 ; Return 1 to continue enumeration
endfunc



; By ascend4nt (encapsulated by cor)
; Returns the handle of the owner window directly under the mouse..
func GetWindowUnderMouse($iX,$iY)
	local $stInt64,$aRet,$stPoint=DllStructCreate("long;long")
	DllStructSetData($stPoint,1,$iX)
	DllStructSetData($stPoint,2,$iY)
	$stInt64=DllStructCreate("int64",DllStructGetPtr($stPoint))
	$aRet=DllCall("user32.dll","hwnd","WindowFromPoint","int64",DllStructGetData($stInt64,1))
	if @Error then return SetError(2,@Error,0)
	if $aRet[0]=0 Then return SetError(3,0,0)
	; The above can return 'sub' windows, or control handles, so we get the owner window..
	local $aResult = DllCall("user32.dll", "hwnd", "GetAncestor", "hwnd", $aRet[0], "uint", 2)
	if @Error then return SetError(@Error, @Extended, 0)
	return $aResult[0]
endfunc

; check wether a number is within a set range..
func NumberInRange($number, $min, $max)
	return ($number >= $min and $number <= $max);
endfunc




; Speak some text out loud..
;
; Rate is -10 to 10 or thereabouts.
; Volume 0 - 100, maybe.
; Voice is a substring of one of your available system voices (e.g. "Hazel").
;
func Speak($text, $vol=50, $rate=0, $voice="", $wait=false)
 debug("", @ScriptLineNumber, 7);debug
 debug("Speak(" & $text & "," & $vol  & "," & $rate & "," & $wait & ")", @ScriptLineNumber, 7);debug

	; Use a global variable so speech call is asynchronous. If you start a
	; new speech command, it will cut-off the old one and begin immediately.
	global $o_speech = ObjCreate("SAPI.SpVoice")
	if not IsObj($o_speech) then return false
	local $speak_flag

	if $wait then
		$speak_flag = 10	; no asynch
	else
		$speak_flag = 11	;8 = XML 	1 = SVSFlagsAsync	2: purge (seems to do this, anyway)
	endif

debug("Speak() --> DeTokenizeString -->" & $text & "<=", @ScriptLineNumber, 7);debug
	$text = DeTokenizeString($text)
	if FileExists($text) then
		$speak_flag += 4	; will read file contents when given valid file path
	endif

	; choose a voice..
	local $choose_voice = $o_speech.GetVoices().Item(0)
	if $voice then
		for $i = 0 to $o_speech.GetVoices().Count() - 1
			local $MS_voice = $o_speech.GetVoices().Item($i)
			if StringInStr($MS_voice.GetAttribute("Name"), $voice) then
				$choose_voice = $MS_voice
				exitloop
			endif
		next
	endif

	; speak the text..
	with $o_speech
		.Voice = $choose_voice
		.Rate = $rate
		.Volume = $vol
		.Speak($text, $speak_flag); with XML + purge before speak
	endwith

	return true

endfunc


; Returns an array of available system voices..
; NOTE: Unless you hack your registry, you will probably only have a small
; selection of voices to play with. See KeyBind docs for how to expand this.
func GetSpeechVoices()
	local $o_speech = ObjCreate("SAPI.SpVoice")
	if not IsObj($o_speech) then return -1
	local $this_voice
	local $voice_array[1]
	for $i = 0 to $o_speech.GetVoices().Count() - 1
		$this_voice = $o_speech.GetVoices().Item($i)
		ArrayAdd($voice_array, $this_voice.GetAttribute("Name"))
	next
	return $voice_array
endfunc




;
; Get the command-line arguments.
; Returns an array with two values..
;
;	$ret_array[0]	=>	switches
;	$ret_array[1]	=>	filename (if supplied)
;
;	Do:
;
; 	local $cmd_array = $CmdLine
; 	local $cmdline = GetCommandLine($CmdLineRaw, $cmd_array)
; 	global $switches = $cmdline[0]
; 	global $inputfile = $cmdline[1]
;
;	Note, when running inside your IDE (not @Compiled) you may not get the same
;	results as you will when @Compiled, depending on your IDE. Test the compiled
;	version!
;
func GetCommandLine($command_line, $cmd_array)
 debug("", @ScriptLineNumber, 7);debug
 debug("GetCommandLine(" & $command_line & ")", @ScriptLineNumber, 7);debug
 debug_PrintArray($cmd_array, $LOG_LF & "cel.au3 :: (" & @ScriptLineNumber & ") " & " $cmd_array: ");debug

	$command_line = StringStripWS($command_line, 3)

	local $ret_array[2]

	if $cmd_array[0] then

		for $i = 1 to $cmd_array[0]
			$cmd_array[$i] = StringStripWS($cmd_array[$i], 3)
		next

		; file path supplied..
		if StringRight($command_line, 1) <> ")" then
			$ret_array[1] = StringStripWS($cmd_array[$cmd_array[0]], 3)
			for $i = 1 to $cmd_array[0]
				if StringStripWS($cmd_array[$i], 3) <> $ret_array[1] then _
					$ret_array[0] &= StringStripWS($cmd_array[$i], 3) & " "
			next
		else
			$ret_array[1] = ""
			for $i = 1 to $cmd_array[0]
				$ret_array[0] &= StringStripWS($cmd_array[$i], 3) & " "
			next
		endif
	endif
	CRT($ret_array[0], " ")
	return $ret_array
endfunc



; UrlToText()
;
; basic HTML > text translation, for spoken web pages
; slow, and not terribly clever..
;
; feed it a URL or path to a local html file, returns the plain text, for speaking
; all formatting is removed, and "." dots are also added to break up big sections.
;
; you can send start and end points for the text stream; simply tag the words/phrases
; onto the end of the URL (or local file location) using an asterisk, e.g..
;
; $myText = UrlToText('http://news.bbc.co.uk/*Last Updated*CONTACT US')
;
; which would get you the latest headlines from the BBC, ready for feeding to Sam, or Mike
; or Mary or whoever. If you omit the end point, e.g..
;
; $myText = UrlToText('http://www.answers.com/topic/gal-pagos-tortoise-2*Synonyms')
;
; all the text from the start point to the end of the page will be returned. If you provide
; no start and end points, the text of the whole page is returned. Something to play with.
;
func UrlToText($url)
 debug("", @ScriptLineNumber, 7);debug
 debug("UrlToText(" & $url & ")", @ScriptLineNumber, 7);debug

	local $start = ""
	local $end = ""
	local $handle = ""

	if StringInStr($url, "*", 0, -1) then
		local $url_parts = StringSplit($url, "*")
		$url = $url_parts[1]
		if uBound($url_parts) > 2 then $start = $url_parts[2]
		if uBound($url_parts) > 3 then $end = $url_parts[3]
	endif

	if StringLeft($url, 4) = "http" then
		InetGet($url, @TempDir & "\UrlToText.tmp", 1)
		; if no file or emp
		$handle = FileOpen(@TempDir & "\UrlToText.tmp", 0)
	else
		$handle = FileOpen($url, 0)
	endif
	local $web_text = FileRead($handle)
	if StringInStr($web_text, "<") then
		; we'll break shit up for speaking..
		$web_text = StringRegExpReplace($web_text, '</(div|p|tr|table)>', '. ')
		; strip out the HTML..
		$web_text = StringRegExpReplace($web_text, '\s', ' ')
		$web_text = StringRegExpReplace($web_text, '<(?i)head(.*?)</(?i)head>', '') ; best done individually..
		$web_text = StringRegExpReplace($web_text, '<(?i)script(.*?)</(?i)script>', '')
		$web_text = StringRegExpReplace($web_text, '<(?i)style(.*?)</(?i)style>', '')
		$web_text = StringRegExpReplace($web_text, '</?[^>]*?>', '')
		$web_text = ReplaceHTMLEntities($web_text)
	endif

	; speak from..
	if $start then
		$web_text = StringTrimLeft($web_text, StringInStr($web_text, $start)-1)
	endif

	; speak to..
	local $strlen = StringLen($web_text)
	local $end_pos = StringInStr($web_text, $end)
	if $end_pos = 0 then $end_pos = $strlen
	if $end then
		$web_text = StringTrimRight($web_text, $strlen-$end_pos+1)
	endif
	FileClose($handle)
	FileDelete(@TempDir & "\UrlToText.tmp")
	return StringStripWS($web_text, 4)
endfunc





; DoLog()

; Logs stuff..
;
; The optional second parameter tells DoLog to append, or not.
; $dl_append will most likely receive the output from a checkbox..
; 1 (append) or 4 [or anything else] (create new log)
;
; To stop and close the log, send "out" as your log string
; the optional third parameter '$log_extra' goes at top of log,
; and, if required, you must send it along with your "out" command, eg..
;
; DoLog("out", 0, "command-line: " & $my_arguments & $LOG_LF & $LOG_LF)
;
;
; and now the function itself..

func DoLog($dl_string, $dl_append=4, $log_extra="")

	debug("Log extra: " & $log_extra, @ScriptLineNumber, 10 );debug

	if $dl_string = "out" then
		if $log_string then
			if $dl_append = $ON then
				$dl_append = $FO_APPEND + $FO_CREATEPATH
			else
				$dl_append = $FO_OVERWRITE  + $FO_CREATEPATH
			endif


			local $my_log_file = FileOpen($log_location, $dl_append)
			FileWriteLine($my_log_file, $my_name & _
				" log:  " & DateTimeString() & ".. " & $LOG_LF & _
				"--------------------------------------------------------------------------------" & $LOG_LF)
			if not $log_extra then
				FileWriteLine($my_log_file, "command-line: " & $CmdLineRaw & $LOG_LF & $LOG_LF)
			endif
			FileWriteLine($my_log_file, $log_extra)
			FileWriteLine($my_log_file, $log_string & $LOG_LF)
			FileClose($my_log_file)
			$log_string = ""
		endif
	else
		$log_string &= UnifyCRLF($dl_string) & $LOG_LF
	endif
	return $dl_string
endfunc







;;	Debugging Functions..



; debug()
;
; Provides quick debug report in your console/log..
;
; If your text editor can do it (probably), this is a great
; way to get debug output without halting the script execution..
;
; Newbies: you set your global $debug_level and bugs of that level
; and below are logged. Stuff you always want to see will have a low
; level, and stuff you rarely want to see (it's large, etc.) will
; have a higher level.
;
; Debug levels go from 1 to 10, though typically in my apps there is
; also level 11, where gobs of generally unnecessary output is
; produced. An occasionally useful nod to Spinal Tap, I suppose.
;
; NOTE: if you call debug() in a compiled script you will get
; the debug() output debug_dump()ed to a log, instead.
;
; The Au3Stripper Parameter "/rsln" ensures these line numbers are
; preserved in the compiled script, so debug output is fairly useful.
; A typical debug line might look like this:
;
; (1103/2899) : ==> $do_output: enabled
;
; The numbers in braces refer to (original script line / stripped
; script line). The one on the left is probably the most useful.
;

func debug($d_string, $ln=false, $level=1, $max_size=$max_debug_log_size)

	if $level > $debug_level then return false

	; This is unlikely to catch actual arrays under normal circumstances (there is a string prepended to input!)..
	if IsArray($d_string) then return debug_PrintArray($d_string, "cel.au3 :: NOT A STRING!", $ln, $level, 0, $max_size);debug
	if @Compiled then return debug_dump($d_string, $ln, $level, true, $max_size)

	local $pre = ""

	; We add the line numbers so that:
	; a) We know where shit happens, and..
	; b) if your text editor supports it, we can click those lines in the console output
	; and go directly to that line in the script. If your text editor/IDE does not support
	; this feature, upgrade your editor. The time you are wasting ...

	; Notepad++
	if $ln and $ln <> -1 then $pre = "(" & $ln & ") " & @Tab
	; ; Editplus..
	; if $ln then $pre = ".\" & @ScriptName & "(" & $ln & "): ==> "
	; etc..
	; if $ln then $pre = """" & @ScriptFullPath & """(" & $ln & "): ==> "

	if $pre then $pre &= "[ " & _NowCalcDate() & " @ " & _NowTime() & "::" & @Msec & " ][l:" & $level & "]" & @Tab
	ConsoleWrite($pre & $d_string & $LOG_LF)
endfunc


; debug_dump()
;
; Like debug (), but to a file..
func debug_dump($d_string, $ln=false, $level=1, $append=true, $max_size=$max_debug_log_size)

	if $level > $debug_level then return false
	if IsArray($d_string) then return debug_dumpArray($d_string, "$ARRAY:", $append, $level, $max_size)

	local $pre, $code = 129 ; + UTF-8
	if $append = false then $code = 130
	if $ln and $ln <> -1 then $pre = "(" & $ln & ") : ==> "
	CheckLogSize($max_size)
	local $fileh = FileOpen($dump_file, $code)
	FileWriteLine($fileh, $pre & $d_string & $LOG_LF)
	FileClose ($fileh)
endfunc


; LogError()
;
; It should be "errer", really.
; Log an (usually, exit) error to a file
;
func debug_LogError($error_string)
	FileWriteLine(@ScriptDir & "\error.log", "")
	FileWriteLine(@ScriptDir & "\error.log", _
	"--------------------------------------------------------------------------------")
	FileWriteLine(@ScriptDir & "\error.log",  @Year & "/" & @Mon & "/" & @MDay _
											& "  " & @Hour & ":" & @Min & ":" & @Sec )
	FileWriteLine(@ScriptDir & "\error.log", "")
	FileWriteLine(@ScriptDir & "\error.log", "command-line: " & $CmdLineRaw)
	FileWriteLine(@ScriptDir & "\error.log", "")
	FileWriteLine(@ScriptDir & "\error.log", $error_string)
endfunc



; debug_PrintArray()
; debug_PrintArray()
;
; Debug output of an array, in the console
; (your text editor/IDE can probably display this for you, if you so desire)..
func debug_PrintArray(byref $array, $tring="array", $ln="", $level=1, $limit=0, $max_size=$max_debug_log_size, $forcedump=false, $string=false)

	if $level > $debug_level then return false

	local $pre
	$pre = "(" & $ln & ") " & @Tab
	if $pre then $pre &= "[ " & _NowCalcDate() & " @ " & _NowTime() & "::" & @Msec & " ][l:" & $level & "]" & @Tab
	if not IsArray($array) then return ConsoleWrite($LOG_LF & $pre & $tring & ": NOT an array!" & _
						$LOG_LF & $pre & "it's a string: " & "->" & $array & "<-" & $LOG_LF & $LOG_LF)

	; 2+dimensional array sent..
	if UBound($array, 0) > 1 then return debug_Print2DArray($array, $tring, $ln, $level, $limit, $max_size, $forcedump, $string)

	local $pa_string = ""
	local $count = 0
	for $element in $array
		$pa_string &= '[' & $count & '] : ' & $element & $LOG_LF
		$count += 1
		if $count = $limit then exitloop
	next

	if $string then return $LOG_LF & $pre & $tring & ": " & $LOG_LF & $pa_string & $LOG_LF

	if @Compiled or $forcedump then
		debug_dump($LOG_LF & $pre & $tring & ": " & $LOG_LF & $pa_string & $LOG_LF, $ln, $level, true, $max_size)
	else
		ConsoleWrite($LOG_LF & $pre & $tring & ": " & $LOG_LF & $pa_string & $LOG_LF)
	endif

endfunc


; Like debug_PrintArray, but will handle arrays with more than two columns..
;
; For if you know what you should have, and want to see it.
; Only works for the kind of arrays returned by IniReadSection() and similar
; functions, or ones you created yourself, needs $array[0][0] to be meaningful..
func debug_Print2DArray(byref $array, $tring="array", $ln="", $level=1, $limit=0, $max_size=$max_debug_log_size, $forcedump=false, $string=false) ; $limit for compatability only
	if @Compiled and ($level > $debug_level) then return 0
	local $pre
	if $ln then $pre = "(" & $ln & ") " & @Tab
	if not IsArray($array) then return debug($pre & $tring & ": NOT an array!" & $LOG_LF & _
				$pre & "it's a string: " & "->" & $array & "<-" & $LOG_LF, @ScriptLineNumber, 5);debug
	; 1-dimensional array sent..
	if UBound($array, 0) < 2 then return debug_PrintArray($array, $tring, $ln, $level, $limit, $ln)

	if $pre then $pre &= "[ " & _NowCalcDate() & " @ " & _NowTime() & "::" & @Msec & " ][l:" & $level & "]" & @Tab
	$limit += 1
	local $cols = UBound($array, 2)
	local $pa_string = ""
	for $i = 0 to UBound($array, 1)-1
			$pa_string &= '[' & $i & ']	[0] = ' & $array[$i][0] & '	'
		for $j = 1 to $cols-1
			$pa_string &= '	[' & $j & '] = ' & $array[$i][$j] & '	'
		next
		$pa_string &= $LOG_LF
	next
	if $string then return $LOG_LF & $pre & $tring & ": " & $LOG_LF & $pa_string & $LOG_LF
	if @Compiled or $forcedump then
		debug_dump($LOG_LF & $pre & $tring & ": " & $LOG_LF & $pa_string & $LOG_LF, $ln, $level, true, $max_size)
	else
		ConsoleWrite($LOG_LF & $pre & $tring & ": " & $LOG_LF & $pa_string & $LOG_LF)
	endif
endfunc


; debug_dumpArray()
; Debug output of an array, to a file..
func debug_dumpArray(byref $array, $title="array", $append=true, $level=1, $max_size=$max_debug_log_size)

	if not IsArray($array) then return 0
	if $level > $debug_level then return false
	if UBound($array, 0) > 1 then return debug_Print2DArray($array, $title, "", $level, 0, $max_size)

	CheckLogSize($max_size)
	local $code = 129 ; + UTF-8
	if $append = false then $code = 130
	local $fileh = FileOpen($dump_file, $code)
	local $da_string = $title & $LOG_LF
	local $count = 0
	for $element in $array
		$da_string &= '[' & $count & '] : ' & $element & $LOG_LF
		$count += 1
	next
	FileWrite($fileh, $da_string)
	FileClose($fileh)
endfunc



; If the log reaches a preset size, backup and start again..
func CheckLogSize($max_size=$max_debug_log_size)
	if $max_size <> 0 then
		if FileGetSize($dump_file) > ($max_size * 1048576) then	; Bytes > MB = * 1048576 (1024*1024)
			BackupFile($dump_file)
		endif
	endif
endfunc


; Provides a time-stamped backup of a file..
func BackupFile($file)
	local $backup = GetParent($file) & "\[" & FileDateStamp() & "]_" & RemoveExtension(Basename($file)) & "." & GetExtension($file)
	local $ret = FileMove($file, $backup)
	Run(@ComSpec & " /c " & 'compact.exe /C "' & $dump_file & '"', "", @SW_HIDE)
	return $ret
endfunc


; _IsPressed (is a key pressed?)
; Author(s):	ezzetabi and Jon / Valik
func ce_IsPressed($Key)
	local $kp = DllCall('user32.dll', "int", "GetAsyncKeyState", "int", '0x' & $Key)
	if not @error and BitAND($kp[0], 0x8000) = 0x8000 then return 1
	return 0
endfunc



; Is some window visible?
func WinVisible($GUI)
	return BitAnd(WinGetState($GUI), 2)
endfunc



; Just for fun, reverses a StringSplit - handy if you have split a string to
; manipulate and now want it back as a string..
; Pass it an AutioIt array, as returned by StringSplit
;
; This also makes a great part 1 of a 1-2 WriteArrayToFromFile type function.
; (see above for exactly that)
;
func ArrayJoin($array, $join_str=$LOG_LF)
	debug_PrintArray($array, "cel.au3 :: ArrayJoin():", @ScriptLineNumber, 8);debug
	debug("$join_str: " & $join_str, @ScriptLineNumber, 8);debug

	local $ret_str
	for $i = 1 to $array[0]
		if $array[$i] <> "" then
			$ret_str &= $array[$i] & $join_str
		endif
	next
	CRT($ret_str, $join_str)
	debug("$ret_str: " & $ret_str, @ScriptLineNumber, 8);debug

	return $ret_str
endfunc



; Return total available free memory..
func GetFreeMem()
	local $mem_stats = MemGetStats()
	local $free = $mem_stats[2] * 1024	; convert to bytes
	return $free
endfunc


func GetFreeMemHuman()
	local $mem_stats = MemGetStats()
	local $free = $mem_stats[2] / 1024	; convert to MB
	return FormatMB($free, 2)
endfunc


; close some running process..
func CloseProcess($process_name)
	SetError(0)
	local $closed = ProcessClose($process_name)
	if @Error then $closed = ProcessWaitClose($process_name)
	if @Error then $closed = Run(@ComSpec & " /c " & 'taskkill /F /T /IM ' & $process_name, "", @SW_HIDE)
	debug("Closed " & $process_name & ": " & $closed, @ScriptLineNumber, 7);debug
	return $closed
endfunc



; Cute little System Info Box..
; Designed to be included as an About Box Easter Egg.
;
func SysInfoBox()

	local $last_event_mode = AutoItSetOption("GUIOnEventMode", 0)
	local $last_coord_mode = AutoItSetOption("GUICoordMode", 0)

	local $si_x = IniRead($ini_path, $my_name, "si_x", -1)
	local $si_y = IniRead($ini_path, $my_name, "si_y", -1)
	local $si_w = IniRead($ini_path, $my_name, "si_w", 800)
	local $si_h = IniRead($ini_path, $my_name, "si_h", 388)
	if $si_w < 400 Then $si_w = 400
	local $label_width = 140
	local $info_width = $si_w - $label_width - 20
	; local $path_adds = ""

	local $gui_sysinfo = GUICreate("System Information", $si_w, $si_h, $si_x, $si_y, _
			BitOR($WS_CLIPSIBLINGS, $WS_CAPTION, $WS_SYSMENU, $WS_SIZEBOX), $WS_EX_TOPMOST)
	GUISetIcon(@AutoItExe, 0, $gui_sysinfo)

	GUISetCoord($si_w-33, 10)
	local $label_env = GUICtrlCreateLabel("ENV", 0, 0, 30, 20)
	GUICtrlSetResizing(-1, $GUI_DOCKMENUBAR+$GUI_DOCKWIDTH+$GUI_DOCKRIGHT)
	GUICtrlSetTip(-1, " Click here to see this system's Environment Variables (aka. 'ENV VAR'). ")

	GUISetCoord(10, -10)
	local $computername = GUICtrlCreateLabel("Computer Name:", 0, 20, $label_width)
	GUICtrlCreateLabel("Memory:", $label_width + 220, 0, 60)

	GUISetCoord(10, 10)
	GUICtrlCreateLabel("Current UserName:", 0, 20, $label_width)
	GUICtrlCreateLabel("Operating System:", 0, 20, $label_width)
	GUICtrlCreateLabel("System %" & "PATH%:", 0, 20, $label_width) ; In case AutoItSetOption("ExpandEnvStrings", 1)
	local $ip = GUICtrlCreateLabel("Local IP Address:", 0, 20, $label_width)
	local $combo_info_drives = GUICtrlCreateCombo("", 0, 22, 100, 200)
	local $my_drives = DriveGetDrive("FIXED")
	for $i = 1 to $my_drives[0]
		GUICtrlSetData($combo_info_drives, $my_drives[$i])
	next
	ControlCommand($gui_sysinfo, "", $combo_info_drives, "SelectString", @HomeDrive)
	local $startupdir = GUICtrlCreateLabel("Startup Directory:", 0, 28, $label_width)
	GUICtrlCreateLabel("Windows Directory:", 0, 20, $label_width)
	GUICtrlCreateLabel("System Folder:", 0, 20, $label_width)
	GUICtrlCreateLabel("Desktop Directory:", 0, 20, $label_width)
	GUICtrlCreateLabel("'My Documents' Directory:", 0, 20, $label_width)
	GUICtrlCreateLabel("Program Files Directory:", 0, 20, $label_width)
	GUICtrlCreateLabel("Start Menu Directory:", 0, 20, $label_width)
	GUICtrlCreateLabel("Temporary File Directory:", 0, 20, $label_width)
	GUICtrlCreateLabel("Desktop:", 0, 20, $label_width)
	GUICtrlCreateLabel("Date [Y-M-D]:", 0, 20, $label_width)
	GUICtrlCreateLabel("Time [H:M:S]:", 0, 20, $label_width)
	local $myini = GUICtrlCreateLabel("My ini:", 0, 20, $label_width)

	GUISetCoord($label_width + 10, -12)
	local $current_drive = GUICtrlRead($combo_info_drives)
	local $inp_computername = GUICtrlCreateInput(@ComputerName, 0, 20, 200, 20)
	local $input_freemem = GUICtrlCreateInput(GetFreeMemHuman(), $label_width * 2, 0, 120, 20)

	for $i = $computername to $input_freemem
		GUICtrlSetResizing($i, $GUI_DOCKALL)
		GUICtrlSetTip($i, " Click the labels to select all the input text. " & $msg_lf & " NOTE: Some update dynamically and will quickly deselect themselves! ")
	next

	GUISetCoord($label_width + 10, 10)
	local $input_username = GUICtrlCreateInput(@UserName, 0, 20, $info_width, 20)
	local $vbit = "x86"
	if @AutoItX64 = 1 then $vbit = "x64"
	local $os_string = StringReplace(@OSVersion, "_", " ") & " (" & $vbit & ") " & @OSServicePack & " [" & @OSType & "][cpu:" & StringLower(@CPUArch) & "]"
	GUICtrlCreateInput($os_string, 0, 20, $info_width, 20)
	GUICtrlCreateInput(EnvGet("PATH"), 0, 20, $info_width, 20)
	GUICtrlCreateInput(@IPAddress1, 0, 20, $info_width, 20)
	local $input_drive_label = GUICtrlCreateInput(DriveGetLabel($current_drive & "\"), 0, 23, 150, 20)
	local $input_totalspace = GUICtrlCreateInput(FormatMB(DriveSpaceTotal($current_drive & "\"), 2), 155, 0, 100, 20)
	local $input_freespace = GUICtrlCreateInput(FormatMB(DriveSpaceFree($current_drive & "\"), 2) & " Free", 105, 0, 150, 20)
	GUISetCoord($label_width + 10, 138)
	GUICtrlCreateInput(@StartupDir, 0, 0, $info_width, 20)
	GUICtrlCreateInput(@WindowsDir, 0, 20, $info_width, 20)
	GUICtrlCreateInput(@SystemDir, 0, 20, $info_width, 20)
	GUICtrlCreateInput(@DesktopDir, 0, 20, $info_width, 20)
	GUICtrlCreateInput(@MyDocumentsDir, 0, 20, $info_width, 20)
	GUICtrlCreateInput(@ProgramFilesDir, 0, 20, $info_width, 20)
	GUICtrlCreateInput(@StartMenuDir, 0, 20, $info_width, 20)
	GUICtrlCreateInput(@TempDir, 0, 20, $info_width, 20)
	GUICtrlCreateInput(@DesktopWidth & "px" & " x " & @DesktopHeight & "px " & _
						@DesktopDepth & "bit [" & @DesktopRefresh & "Hz]", 0, 20, $info_width, 20)
	local $input_date = GUICtrlCreateInput(@YEAR & "-" & @MON & "-" & @MDAY, 0, 20, $info_width, 20)
	local $input_time = GUICtrlCreateInput(@HOUR & ":" & @MIN & ":" & @SEC, 0, 20, $info_width, 20)
	local $input_ini = GUICtrlCreateInput($ini_path, 0, 20, $info_width, 20)

	for $i = $input_username To $input_ini
		GUICtrlSetResizing($i, $GUI_DOCKALL+$GUI_DOCKRIGHT)
	next

	for $i = $inp_computername To $input_ini
		GUICtrlSetFont($i, 8.5, 400, 0, "Consolas", 5)
	next

	for $i = $input_drive_label To $input_freespace
		GUICtrlSetResizing($i, $GUI_DOCKALL)
	next


	GUISetState()
	local $last_sec = @Sec
	local $link = false

	while true

		if @Sec<> $last_sec then

			GUICtrlSetData($input_time, @HOUR & ":" & @MIN & ":" & @SEC)
			if @SEC < 2 and @HOUR = 0 and @MIN = 0 then
				GUICtrlSetData($input_date, @YEAR & "-" & @MON & "-" & @MDAY)
			endif

			$current_drive = GUICtrlRead($combo_info_drives)
			GUICtrlSetData($input_drive_label, DriveGetLabel($current_drive & "\"))

			local $capacity = DriveSpaceTotal($current_drive & "\")
			local $free_space = DriveSpaceFree($current_drive & "\")
			GUICtrlSetData($input_totalspace, FormatMB($capacity, 2))
			GUICtrlSetData($input_freespace, FormatMB($free_space, 2) & " Free")
			if $free_space < ($capacity / 10) then
				GUICtrlSetBkColor($input_freespace, 0xff0000)
			else
				GUICtrlSetBkColor($input_freespace, default)
			endif

			GUICtrlSetData($input_freemem, GetFreeMemHuman() & " Free")

			$last_sec = @Sec
		endif


		local $msg = GUIGetMsg()

		switch $msg

			case $label_env
				GUISetState(@SW_DISABLE, $gui_sysinfo)
				DisplayEnvVars()
				GUISetState(@SW_ENABLE, $gui_sysinfo)

			case $gui_event_close
				exitloop

			case $combo_info_drives
				$current_drive = GUICtrlRead($combo_info_drives)
				GUICtrlSetData($input_drive_label, DriveGetLabel($current_drive & "\"))
				GUICtrlSetData($input_totalspace, FormatMB(DriveSpaceTotal($current_drive & "\"), 2))
				GUICtrlSetData($input_freespace, FormatMB(DriveSpaceFree($current_drive & "\"), 2) & " Free")

			case $computername to $ip
				GUICtrlSetState($msg + 19, $gui_focus)

			case $startupdir to $myini
				GUICtrlSetState($msg + 21, $gui_focus)

		endswitch

		; Visual indication of clickable link..
		local $mouse = GUIGetCursorInfo($gui_sysinfo)
		if $mouse[4] <> $link then
			if $mouse[4] = $label_env and $link = false then
				$link = $mouse[4]
				GUICtrlSetColor($label_env, 0x008DFF)
				GUISetCursor(0, 1, $gui_sysinfo)
			else
				GUICtrlSetColor($label_env, default)
				GUISetCursor()
				$link = false
			endif
		endif

		Sleep(100)
	wend


	local $size_array = WinGetPos($gui_sysinfo)
	if IsArray($size_array) then
		if $si_x <> $size_array[0] and $size_array[0] >= 0 and $size_array[0] < (@DesktopWidth - 25) then IniWrite($ini_path, $my_name, "si_x", $size_array[0])
		if $si_y <> $size_array[1] and $size_array[1] >= 0 and $size_array[1] < (@DesktopHeight - 25) then IniWrite($ini_path, $my_name, "si_y", $size_array[1])
		$size_array = WinGetClientSize($gui_sysinfo)
		if IsArray($size_array) then
			if $size_array[0] <> $si_w and $size_array[0] >= 100 then IniWrite($ini_path, $my_name, "si_w", $size_array[0])
			if $size_array[1] <> $si_h and $size_array[1] >= 100 then IniWrite($ini_path, $my_name, "si_h", $size_array[1])
		endif
	endif

	GUIDelete($gui_sysinfo)
	AutoItSetOption("GUIOnEventMode", $last_event_mode)
	AutoItSetOption("GUICoordMode", $last_coord_mode)

endfunc


; GUI readout of the System Environment Variables..
;
func DisplayEnvVars()

	local $PID = Run(@ComSpec & " /c set", @SystemDir, @SW_HIDE, $STDOUT_CHILD)
	local $env_vars
	while true
		$env_vars &= StdoutRead($PID)
		if @Error then exitloop
	wend
	$env_vars = StringStripWS($env_vars, 3)

	DisplayText($env_vars, "Environment Variables", 700, 600)

endfunc


; Simple GUI to display some text for the user.
;
; Perhaps a readme, or license agreement.
; With an option to copy the text to the ClipBoard.
;
func DisplayText($text, $title="For Reading..", $width=650, $height=$width, $inipath=$ini_path, $sectionname=$my_name)

	local $last_event_mode = AutoItSetOption("GUIOnEventMode", 0)
	local $last_coord_mode = AutoItSetOption("GUICoordMode", 0)

	; local $height = $width
	local $GUI_styles = BitOR($WS_CLIPSIBLINGS, $WS_CAPTION, $WS_SYSMENU, $WS_SIZEBOX)
	local $edit_styles = BitOr($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOHSCROLL, $ES_MULTILINE, $WS_TABSTOP)

	local $prefname = "display_txt_" & CleanPrefName($title)
	local $dt_x = IniRead($inipath, $sectionname, $prefname & "_x", -1)
	local $dt_y = IniRead($inipath, $sectionname, $prefname & "_y", -1)

	local $GUI_txt_display = GUICreate($title, $width, $height, $dt_x, $dt_y, $GUI_styles, $WS_EX_TOPMOST)
	local $edit_env = GUICtrlCreateEdit($text, 5, 5, $width-10, $height-40, $edit_styles)


	local $butt_copy = GUICtrlCreateButton("Copy To ClipBoard", $width-155, $height-35, 105, 25)
	local $butt_done = GUICtrlCreateButton("OK", 110, 0, 35, 25)

	GUICtrlSetResizing($edit_env, $GUI_DOCKBORDERS)
	GUICtrlSetResizing($butt_copy, $GUI_DOCKSTATEBAR+$GUI_DOCKWIDTH+$GUI_DOCKRIGHT)
	GUICtrlSetResizing($butt_done, $GUI_DOCKSTATEBAR+$GUI_DOCKWIDTH+$GUI_DOCKRIGHT)

	ControlFocus($GUI_txt_display, "", $edit_env)
	Send("{Right}")

	GUISetState(@SW_SHOW, $GUI_txt_display)

	while true
		switch GUIGetMsg()
			case $butt_done, $gui_event_close
				exitloop
			case $butt_copy
				ClipPut($text)
				DisplayTooltipMessage("Data Successfully Copied to the ClipBoard", 3000, "Success!", true)
		endswitch
		Sleep(25)
	wend

	local $size_array = WinGetPos($GUI_txt_display)
	if IsArray($size_array) then
		IniWrite($inipath, $sectionname, $prefname & "_x", $size_array[0])
		IniWrite($inipath, $sectionname, $prefname & "_y", $size_array[1])
	endif

	GUIDelete($GUI_txt_display)
	AutoItSetOption("GUIOnEventMode", $last_event_mode)
	AutoItSetOption("GUICoordMode", $last_coord_mode)

	return true

endfunc