[AutoIt] Frage/Antworte Thread

[Pünti987]

wenn ich auf den start button drücke fänngt er nicht ann zu Picken

[RoleS]

Sieht das so aus ? :

: Dein 
: Gui

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
        	EndSwitch
$deinevariable = GUICtrlRead($dievariabledeinerinputbox)
WEnd


Func start()
while(1)
send($deinevariable,0)
sleep(500)
wend
EndFunc

[VII]

Hallo Leute,

Da mir gerade etwas Langweilig war dachte ich, dass ich doch mal versuchen könnte einen mini bot zu schreiben. Nach einigen Stunden überlegen und vergeblichen suchen im WWW wende ich mich jetzt doch mal an euch.


Folgende Aufgabe:
Ich möchte solange einen Pixel abrufen bis er eine gewünschte Farbe hat und dann ein paar Tasten drücken. Nachdem diese gedrückt worden sind solange einen anderen Pixel abrufen bis er die gewünschte Farbe hat und dann wieder einige Tasten drückt.

Problem: Die 2. Pixelabfrage wird nicht durchgeführt und die Mausklicks gleich gemacht (wirkt zumidest so).

Hier mal ein kleiner Ausschnitt:

while 1
	If PixelGetColor(1132, 705) == "73792" Then
		ExitLoop

EndIf
WEnd

Sleep(2000)
Send("{F2}")
Sleep(100)
MouseClick("left", 720, 447) 


while 1
	If PixelGetColor(304, 999) == "9152110" Then
		ExitLoop

Endif
WEnd

Sleep(100)
Send("{F2}")
Sleep(100)
MouseClick("left", 720, 447) 
Sleep(100)
MouseClick("right", 1554, 94) 
Sleep(100)
MouseClick("left", 1554, 94)

Ich hoffe ihr versteht was ich machen möchte.
Bin erst seid kurzem in AutoIt unterwegs also nicht wundern wenn obiger Coder ein Totaler schwachsinn ist

Mfg
VII

[Benhero]

Kann es sein das er den Pixel sofort findet?

[Pünti987]

Originally Posted by 50Millionen

Sieht das so aus ? :

: Dein 
: Gui

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
        	EndSwitch
$deinevariable = GUICtrlRead($dievariabledeinerinputbox)
WEnd


Func start()
while(1)
send($deinevariable,0)
sleep(500)
wend
EndFunc

wenn ich das einfüge kommt schon wieder Fehlermeldung

[RoleS]

Ist ja logisch wenn du die Variablen nicht mit deinen ersetzt !!!

[VII]

Originally Posted by Benhero

Kann es sein das er den Pixel sofort findet?

Dankeschön.
Späte Stunde und müdes Hirn lässt grüßen. Habs jetzt gelöst.
Das Problem lag darinn, dass direkt nach dem MouseClick die Farbe noch "9152110" ist und erst ein paar ms danach sich ändert bevor sie wieder "9152110" annimmt.

-> kleines sleep rein und die Welt ist wieder heil

Dann werd ich mal wieder weiter machen und hoffentlich reibungslos ab jetzt

Mfg
VII

[Pünti987]

Originally Posted by 50Millionen

Ist ja logisch wenn du die Variablen nicht mit deinen ersetzt !!!

GuiCreate("Pic up Bot v 2 by Sismon",585,181,346,338)
GuiSetState()
GUICtrlcreatelabel ("Welche Taste soll Gedrückt werden",12,20)
GUICtrlcreatelabel ("Zeit abstant in milisekunden",40,50)
$number1 = GUICtrlCreateEdit ("", 240,14,125,20,0)
$number2 = GUICtrlCreateEdit ("", 240,52,125,20,0)
$addbutton1 = GUICtrlCreateButton (" Starten ", 10,70)
$subbutton2 = GUICtrlCreateButton (" Beenden ", 10,100)
$endbutton3 = GUICtrlCreateButton (" Programm Beenden ", 10,190)

$Read = GUICtrlRead($number1)
$Sleep= GUICtrlRead($number2)
While 1




$addbutton1 = GUICtrlRead($number1)
WEnd


Func start()
while(1)
send= GuiCtrlRead($number1)

sleep($number2)
wend
EndFunc

so kommt auch wieder fehlermeldung

[AlexXx99]

hi marco hab mal ne frage. Wie hast du mit autoit angefangen ? bis du dann deine eigenen Bots erstellt hast. Danke schonmal !

[Benhero]

Öhm? Du könntest Marco auch Via Pn Fragen >.< das wäre dann kein Spamm therad.

#gemeldet

[RoleS]

GuiCreate("Pic up Bot v 2 by Sismon",585,181,346,338)
GuiSetState()
GUICtrlcreatelabel ("Welche Taste soll Gedrückt werden",12,20)
GUICtrlcreatelabel ("Zeit abstant in milisekunden",40,50)
$number1 = GUICtrlCreateEdit ("", 240,14,125,20,0)
$number2 = GUICtrlCreateEdit ("", 240,52,125,20,0)
$addbutton1 = GUICtrlCreateButton (" Starten ", 10,70)
$subbutton2 = GUICtrlCreateButton (" Beenden ", 10,100)
$endbutton3 = GUICtrlCreateButton (" Programm Beenden ", 10,190)

$Read = GUICtrlRead($number1)
$Sleep= GUICtrlRead($number2)
While 1




$addbutton1 = GUICtrlRead($number1)
WEnd


Func start()
while(1)
send= GuiCtrlRead($number1)

sleep($number2)
wend
EndFunc

Sorry , aber irgendwie ist das Müll^^.

Hier ich habs dir mal verbessert:

 Spoiler

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pic Up Bot v 2 by Sismon", 583, 180, 196, 352)
$Label1 = GUICtrlCreateLabel("Welche Taste soll gedrückt werden", 8, 16, 172, 17)
$Input1 = GUICtrlCreateInput("", 224, 16, 121, 21)
$Label2 = GUICtrlCreateLabel("Zeit abstand in millisekunden", 40, 56, 140, 17)
$Input2 = GUICtrlCreateInput("", 224, 56, 121, 21)
$Button1 = GUICtrlCreateButton("Starten", 8, 88, 59, 25, 0)
$Button2 = GUICtrlCreateButton("Beenden", 8, 120, 67, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Start()
		Case $Button2
			Ende()

	EndSwitch
	$send = GUICtrlRead($Input1)
	$sleep= GUICtrlRead($Input2)
WEnd

Func Start() 
	while(1)
		send($send)
		sleep($sleep)
	WEnd
EndFunc

Func Ende()
	Exit
EndFunc

[Pünti987]

ja danke aber noch ein problem wie kann ich jetzt machen das es wenn ich auf den Beenden Button presse es auch wirklich beendet???

[RoleS]

Dürfte sich eigentlich bei dem Ende Button beenden.

[Pünti987]

ja er beendet sich nur wenn man den beenden button als erstes anklickt aber wenn ich zuerst picke Xd funzt er nicht mehr

[RoleS]

Mach noch HotKeySet("{END}","Ende2")

:
:
:
Func Ende2()
Exit
EndFunc