[Tool] Auto Res 2.1.4

#include <GUIListView.au3>

Dim $Start = 0, $Timer = True

$GUI = GUICreate("Auto Resser", 186, 189, 435, 386)

GUICtrlCreateGroup("", 0, 48, 185, 105, -1)

$InputKey = GUICtrlCreateInput("0", 8, 24, 33, 21)
$InputWait = GUICtrlCreateInput("500", 48, 24, 49, 21)
$InputWindow = GUICtrlCreateInput("Resser", 104, 24, 57, 21)

$ListView = GUICtrlCreateListView("char", 8, 62, 169, 84, BitOR($LVS_NOCOLUMNHEADER, ""), "")
$ListViewHandle = GUICtrlGetHandle($ListView)

$ButtonRenameWin = GUICtrlCreateButton("...", 160, 24, 19, 21)
$ButtonStart = GUICtrlCreateButton("Start", 8, 160, 75, 25)
$ButtonStop = GUICtrlCreateButton("Stop", 104, 160, 75, 25)

GUICtrlCreateLabel("Key:", 8, 8, 25, 16)
GUICtrlCreateLabel("Wait (ms):", 48, 8, 51, 16)
GUICtrlCreateLabel("Window:", 112, 8, 46, 16)

GUISetState(@SW_SHOW)
_RefreshListView()

HotKeySet("{Insert}", "Start")
HotKeySet("{End}", "Stop")

While 1
	If $Timer = True Then
		$Init = TimerInit()
		$Timer = False
	EndIf

	If $Start = True And TimerDiff($Init) > GUICtrlRead($InputWait) Then
		_SendKey2Win()
		$Timer = True		
	EndIf

	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case - 3
			Exit
		Case $ButtonRenameWin
			_RenameWindow()
		Case $ButtonStart
			$Start = 1
		Case $ButtonStop
			$Start = 0
	EndSwitch
	Sleep(10)
WEnd

Func _SendKey2Win()
	$hWnd = WinGetHandle(GUICtrlRead($InputWindow))
	ControlSend($hWnd, "", "Edit1", GUICtrlRead($InputKey))
EndFunc   ;==>_SendKey2Win

Func _RefreshListView()
	$vWinList = WinList("[CLASS:CLIENT]")
	_GUICtrlListView_DeleteAllItems($ListView)
	For $i = 1 To $vWinList[0][0]
		GUICtrlCreateListViewItem($vWinList[$i][0], $ListView)
	Next
EndFunc   ;==>_RefreshListView

Func _RenameWin()
	If _GUICtrlListView_GetSelectedCount($ListViewHandle) = 0 Then
		MsgBox(0, "Warning!", "Select a window")
	Else
		$hClientName = _GUICtrlListView_GetItemText($ListViewHandle, _GUICtrlListView_GetSelectedIndices($ListViewHandle), 0)
		WinSetTitle($hClientName, "", GUICtrlRead($InputWindow))
		_RefreshListView()
	EndIf
EndFunc   ;==>_RenameWin

Func Start()
	$auto = 1
EndFunc   ;==>Start

Func Stop()
	$auto = 0
EndFunc   ;==>Stop