[Kod] Mauseclick Autp

[Amfetaminek]

Więc moja zabawa dnia dziś kończy się tak
F11 - stop
F9 - czyta aktualne położenie kursora wpisując je w odpowiednie pole

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiComboBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>

dim $tab
$firstload = true
$ktoryp = "left"
$kilck = 1
$praca = False
HotKeySet("{F11}","stop")
HotKeySet("{F9}","zapisprob")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AmfiProject", 300, 250, 192, 124)
$Label1 = GUICtrlCreateLabel("Ilosc klikniec", 8, 8, 65, 17)
$Input1 = GUICtrlCreateInput("", 80, 8, 41, 21)
$Button1 = GUICtrlCreateButton("Przypisz", 128, 8, 49, 25)
$save = GUICtrlCreateButton("Zapisz", 190, 8, 49, 25)
$open = GUICtrlCreateButton("Wczytaj", 250, 8, 49, 25)
$Combo1 = GUICtrlCreateCombo("", 8, 48, 65, 25)
$Label2 = GUICtrlCreateLabel("X", 8, 88, 11, 17)
$Label3 = GUICtrlCreateLabel("Y", 8, 112, 11, 17)
$Label4 = GUICtrlCreateLabel("Sleep", 8, 136, 31, 17)
$Input2 = GUICtrlCreateInput("", 48, 88, 65, 21)
$Input3 = GUICtrlCreateInput("", 48, 112, 65, 21)
$Input4 = GUICtrlCreateInput("", 48, 136, 65, 21)
;~ $List1 = GUICtrlCreateList("", 144, 40, 129, 149)
$Radio1 = GUICtrlCreateRadio("Lewy", 16, 168, 57, 17)
GUICtrlSetState($radio1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Prawy", 88, 168, 49, 17)
$Button2 = GUICtrlCreateButton("Przypisz", 16, 200, 81, 33)
$Button3 = GUICtrlCreateButton("Podgląd", 104, 200, 81, 33)
$Button4 = GUICtrlCreateButton("Start", 192, 200, 81, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;~ GUICtrlSetData($List1,"1 - Wpisz ilosc klikniec")
;~ GUICtrlSetData($List1,"2 - uzupełnij pola ")
;~ GUICtrlSetData($List1,'3 - Wybierz "przypisz"')
;~ GUICtrlSetData($List1,'4 - F9 auto zapis x= , y=')
;~ GUICtrlSetData($List1,'4 - F11 = stop')
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~aktualizacja danych po klik combo
		case $combo1
			$co=GUICtrlRead($Combo1)
			GUICtrlSetData($Input2,$tab[$co][0])
			GUICtrlSetData($Input3,$tab[$co][1])
			GUICtrlSetData($Input4,$tab[$co][2])

			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
			; Dodac opcje zaznaczajaca odpowiednie raio;
			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Czytanie ini
		case $open
			$tab2=IniRead("Save.ini","Col.1","0","")
			$tabb=$tab2
			$tab2+=1
			dim $tab[$tab2][4]
			$tab[0][0] = $tabb
			for $t = 1 to $tabb
				$tab[$t][0] = IniRead("Save.ini","Col.1",$t,"")
				$tab[$t][1] = IniRead("Save.ini","Col.2",$t,"")
				$tab[$t][2] = IniRead("Save.ini","Col.3",$t,"")
				$tab[$t][3] = IniRead("Save.ini","Col.4",$t,"")
			next
			GUICtrlSetData($Input1,$tab[0][0])
			for $t1=1 to $tab[0][0]
			GUICtrlSetData($Combo1,$t1)
			next
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Czytanie ilości kliknieć
		case $Button1
			$Ile = GUICtrlRead($Input1)
			$Ile2=$ile+1
			if $firstload = true then
			dim $tab[$ile2][4]
			$tab[0][0]= $ile
			$firstload = False
		Else
			redim $tab[$ile2][4]
			$tab[0][0]= $ile
		EndIf
		GUICtrlDelete($Combo1)
		$Combo1 = GUICtrlCreateCombo("", 8, 48, 65, 25)
		for $t1=1 to $tab[0][0]
			GUICtrlSetData($Combo1,$t1)
			next
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Przypisywanie danych
		case $Button2
			$k1 = GUICtrlRead($Combo1)
			$x = GUICtrlRead($Input2)
			$y = GUICtrlRead($Input3)
			$sleep = GUICtrlRead($Input4)
			if $k1 ="" or $k1 = 0 then
					;~ 	Error
				else
			$tab[$k1][0] = $x
			$tab[$k1][1] = $y
			$tab[$k1][2] = $sleep
			$tab[$k1][3] = $ktoryp
		endif

		 _GUICtrlComboBox_SetCurSel($combo1,$k1)
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Podgląd tablicy
		case $Button3
			_ArrayDisplay($tab)

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Lewy
		case $Radio1
			$ktoryp = "left"

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Praway
		case $Radio2
			$ktoryp = "right"
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Button Start
		case $Button4
			if $firstload = false Then
			Start()
			endif
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~zapisywanie do pliku
Case $save
	for $s1= 0 to $tab[0][0]
		IniWrite("Save.ini","col.1", $s1, $tab[$s1][0])
		IniWrite("Save.ini","col.2", $s1, $tab[$s1][1])
		IniWrite("Save.ini","col.3", $s1, $tab[$s1][2])
		IniWrite("Save.ini","col.4", $s1, $tab[$s1][3])
		next
EndSwitch
WEnd


func zapisprob()
	$k=MouseGetPos()
	GUICtrlSetData($Input2, $k[0])
	GUICtrlSetData($Input3, $k[1])
EndFunc


func Start()
	klick()
		$praca = true
	EndFunc


func stop()
	$praca = false
	endfunc


func klick()
	MouseClick($tab[$kilck][3],$tab[$kilck][0],$tab[$kilck][1])
	$kilck +=1
	if $kilck>$tab[0][0] then
		$kilck = 1
	endif
	if $tab[$kilck][2] = ""  Then
		else
		Sleep($tab[$kilck][2]*1000)
	endif
	if $praca = true then
	klick()
	endif
		endfunc

Jakieś sugestię co do tego bota ?
czy uzupełnienie czegoś ?
Oczywiście projekt nie skończony