Hallo liebe User,
ich dachte mir, ich schreibe mal ein kleines Toturial, nur leider funktioniert mein Skript selber nicht :/ hoffentlich kann mir da jemand weiterhelfen?
Ich bin nicht gerade ein Profi in diesem Bereich und habe es auch schon mit ImageSearch probiert aber da komm ich noch weniger zurecht..=(
Der Bot soll einfach nur in 2 Bereichen ein Pixel suchen (linker Bereich/rechter Bereich), wenn es auftaucht soll er, je nach dem ob es im linken oder rechten Bereich ist, die linke oder rechte Pfeiltaste drücken.
lt. SyntaxCheck Prod gibt es zwar keinen Fehler (mehr) aber es funktioniert dennoch nicht. Hier mal der komplette Code:
-----------------------------------
HotKeySet ("{F4}","_Exit") ;F4 zum Beenden des Bots
HotKeySet ("{F3}","_Pause") ;F3 zum Pausieren des Bots
While 1
Sleep(1)
WEnd
$color1 = 0xFAF3E0 ;1. Farbe
$color2 = 0xFAF3E0 ;2. Farbe
$oben = 390 ;Feldgrenzen oben
$unten = 680 ;Feldgrenzen unten
$L_li = 875 ;Linkes Feld - Feldgrenze links
$L_re = 915 ;Linkes Feld - Feldgrenze rechts
$R_li = 1000 ;Rechtes Feld - Feldgrenze links
$R_re = 1050 ;Rechtes Feld - Feldgrenze rechts
$var1 = PixelSearch($L_li,$unten,$L_re,$oben,$color1,100,0 )
;Variablenausdruck 1
$var2 = PixelSearch($R_li,$unten,$R_re,$oben,$color2,100,0 )
;Variablenausdruck 2
While 1 ;Beginn der 1. Schleife
$var1 = PixelSearch($L_li,$unten,$L_re,$oben,$color1,100,0 )
If not @error Then ;wenn im 1. Feld das gesuchte Pixel erscheint, dann
Send ("{left}") ;drücke "Pfeil links"
Sleep(200)
EndIf ;Ende der Wenn-Funktion
$var2 = PixelSearch($R_li,$unten,$R_re,$oben,$color2,100,0 )
If not @error Then ;wenn im 2. Feld das gesuchte Pixel erscheint, dann
Send ("{right}") ;drücke "Pfeil rechts"
Sleep(200)
EndIf ;Ende der Wenn-Funktion
WEnd ;Ende der Schleife
Func _Exit() ;Definition des "HotKeySet" Exit - Beenden des Bots
Exit ;Bot beenden
EndFunc ;Ende der Funktions-Definition
Func _Pause()
While True
Sleep(1)
WEnd
Endfunc
----------------------------------------
Wie ihr sehen könnt habe ich (testweise) sogar die Toleranz für die Pixel auf 100 gesetzt - nichteinmal damit läuft es. Heißt für mich entfeder sucht er garnicht erst oder der Fehler liegt im Send-Befehl (was ist eher nicht glaube?).
Für eure Hilfe bei meinem 1. Tut wäre ich dankbar :-)
ich dachte mir, ich schreibe mal ein kleines Toturial, nur leider funktioniert mein Skript selber nicht :/ hoffentlich kann mir da jemand weiterhelfen?
Ich bin nicht gerade ein Profi in diesem Bereich und habe es auch schon mit ImageSearch probiert aber da komm ich noch weniger zurecht..=(
Der Bot soll einfach nur in 2 Bereichen ein Pixel suchen (linker Bereich/rechter Bereich), wenn es auftaucht soll er, je nach dem ob es im linken oder rechten Bereich ist, die linke oder rechte Pfeiltaste drücken.
lt. SyntaxCheck Prod gibt es zwar keinen Fehler (mehr) aber es funktioniert dennoch nicht. Hier mal der komplette Code:
-----------------------------------
HotKeySet ("{F4}","_Exit") ;F4 zum Beenden des Bots
HotKeySet ("{F3}","_Pause") ;F3 zum Pausieren des Bots
While 1
Sleep(1)
WEnd
$color1 = 0xFAF3E0 ;1. Farbe
$color2 = 0xFAF3E0 ;2. Farbe
$oben = 390 ;Feldgrenzen oben
$unten = 680 ;Feldgrenzen unten
$L_li = 875 ;Linkes Feld - Feldgrenze links
$L_re = 915 ;Linkes Feld - Feldgrenze rechts
$R_li = 1000 ;Rechtes Feld - Feldgrenze links
$R_re = 1050 ;Rechtes Feld - Feldgrenze rechts
$var1 = PixelSearch($L_li,$unten,$L_re,$oben,$color1,100,0 )
;Variablenausdruck 1
$var2 = PixelSearch($R_li,$unten,$R_re,$oben,$color2,100,0 )
;Variablenausdruck 2
While 1 ;Beginn der 1. Schleife
$var1 = PixelSearch($L_li,$unten,$L_re,$oben,$color1,100,0 )
If not @error Then ;wenn im 1. Feld das gesuchte Pixel erscheint, dann
Send ("{left}") ;drücke "Pfeil links"
Sleep(200)
EndIf ;Ende der Wenn-Funktion
$var2 = PixelSearch($R_li,$unten,$R_re,$oben,$color2,100,0 )
If not @error Then ;wenn im 2. Feld das gesuchte Pixel erscheint, dann
Send ("{right}") ;drücke "Pfeil rechts"
Sleep(200)
EndIf ;Ende der Wenn-Funktion
WEnd ;Ende der Schleife
Func _Exit() ;Definition des "HotKeySet" Exit - Beenden des Bots
Exit ;Bot beenden
EndFunc ;Ende der Funktions-Definition
Func _Pause()
While True
Sleep(1)
WEnd
Endfunc
----------------------------------------
Wie ihr sehen könnt habe ich (testweise) sogar die Toleranz für die Pixel auf 100 gesetzt - nichteinmal damit läuft es. Heißt für mich entfeder sucht er garnicht erst oder der Fehler liegt im Send-Befehl (was ist eher nicht glaube?).
Für eure Hilfe bei meinem 1. Tut wäre ich dankbar :-)