[Tool] Auto Res 2.1.4

[theoneofgod]

You're getting there

#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

That should give you something to look through :P

[XoZioN]

Originally Posted by lbrtdy

Hey theoneofgod,
this is a great tool and I use it all the time, but I have a suggestion. Can you make a version so that the wait time can be lower than 1 second? It really helps delevel over a period of time ty

what about 0.5 or 0.1 seconds its working for me (;

[deco00]

Nice , thx for help

[Ap0calips3]

Originally Posted by XoZioN

what about 0.5 or 0.1 seconds its working for me (;

Why u need 0,1 seconds ?
After u die u need to wait 5 seconds to attak mob or beeing attaked by it , 2 seconds of autoclick is perfect .

[n3stas]

Ty. this helped to Pfarm for me.

[imdaking]

hey is there anyway this tool can be used to select multiple targets and ress them (so you can delvl multiple characters at once if they are in your party)?

[Crank Atilla]

nice thing

[draculacc9]

This Auto resser can ress how many char ???

[XoZioN]

Originally Posted by draculacc9

This Auto resser can ress how many char ???

This one can res 1 char

[Ganjabuffy01]

not working....

[theoneofgod]

Updated to 2.0.5

[ba7abak]

Thanx theoneofgod For New Updated

[Dragon124]

I have problem with version 2.0.5 I press start all is good ... and in a few minutes I get dc ... I tested this two times and is this same ... this is any bug ? I gave delay ,, 1 '' maybe this is problem ?
(sry for my english)

[Visionist]

kill client doesnt work

[theoneofgod]

Originally Posted by Dragon124

I have problem with version 2.0.5 I press start all is good ... and in a few minutes I get dc ... I tested this two times and is this same ... this is any bug ? I gave delay ,, 1 '' maybe this is problem ?
(sry for my english)

The delay is in ms, so 1000 ms = 1 second. Set the delay at 1000.

Originally Posted by Visionist

kill client doesnt work

Works fine here.