[R] Utilisation de pixelsearch

[anti95]

bonjour,
j'ai vraiment essayé de m'en sortir tous seul mais ne sachant pas grand chose j'ai énormément pataugé dans la semoule!!
je cherche à utiliser la fonction pixel search,
je tape les codes, mon rectangle de recherche, la couleur du pixel.
mais il n'arrive pas à la trouver et se bloque sur la fonction d'avant, (un mouseclick) ...
je ne sais pas du tout comment faire et ne serait ce qu'une simple petite lumière ou ligne de lumière ferait l'affaire...

merci d'avance antoine

j'en suis donc là:

Code : Tout sélectionner

Mouseclick ("left" , 67, 557 , 1)
sleep ( 1000 )

$0 = 0xFF961

While 1

_clickcolor($0)

WEnd

[Habibsbib]

Mets le code en entier, parce que la je suis un peu largué...

Autrement, normalement, je en crois pas que "clickcolor" existe.. en tout cas, moi j'aurais fait :

Code : Tout sélectionner

PixelSearch ("0xFF961", (lecadrederecherche))=$0
If not @error Then
   While
          MouseClick ($0&"")
   WEnd
EndIf

If @error Then
   MsgBox ("Pixel Perdu", "Pixel Perdu. Désolé.")
EndIf
 

[Iste]

Merci, a vous deux, de lire les règles de présentation des messages ainsi que les les règles générales du forum au cas ou ce ne serait déja fait

[sylvanie]

un sujet similaire est traîter ici :
http://www.autoitscript.fr/forum/viewto ... 84&start=0

mais peut - être est ce de là que vous êtes parti ?

[anti95]

Tout à fait sylvanie,
le problème c'est que mon script ne fonctionne pas quand il arrive à la commande Pixel...
même avec ces réponses cela n'a pas marché...
why?

[sylvanie]

Etes vous sûr de la valeur l'encodage de la couleur cherchée ?
Il serait sage de chercher du blanc ou du noir, avec par exple paint de lancé avec un fond blanc ou noir

[Habibsbib]

Bon, j'ai adapté ton programme, LA cela devrait marcher :

Code : Tout sélectionner

HotKeySet( " {ESC} ", "Quitter")
HotKeySet ("{ENTER}", "ChercherPixel")
MsgBox (1, "Chargement...", "Veuillez appuyer sur ECHAP pour quitter, ou sur ENTREE pour lancer le programme...")
Func ChercherPixel()
While 1
sleep ( 1000 )
Mouseclick ("left" , 157, 230 , 1)
sleep ( 1000 )
Mouseclick ("left" , 67, 557 , 1)
sleep ( 1000 )
$coordonnee=PixelSearch (271, 788, 506, 948, 0xFFD961 )

If not @error Then
   While
          MouseClick ("left", $coordonnee)
   WEnd
EndIf

If @error Then
   MsgBox ( 1, "Pixel Perdu", "Pixel Perdu. Désolé.")
EndIf

Mouseclick ("left" , 381, 800 , 1)
sleep (100)
Mouseclick ("left" , 381, 820 , 1)
sleep (100)
Mouseclick ("left" , 381, 840 , 1)
sleep (100)
Mouseclick ("left" , 381, 860 , 1)
sleep (100)
Mouseclick ("left" , 381, 880 , 1)
sleep (100)
Mouseclick ("left" , 381, 900 , 1)
WEnd
EndFunc
Func Quitter()
    MsgBox ( 1, "Programme Terminé", "Programme terminé. Merci. @Habibsbib for anti.")
    Exit 0
EndFunc
 

[pop45]

HAha ta même pas le temps de rentre d'appuyer sur entre que c'est déjà terminer (le script quite) MOUAHAHAHAHA

Rajoute un while entre le msgbox et la premier fonciton.....
ET ne plus ta oublier un 1 sur un while

[Tlem]

Heuuu pop45 ... Vous parlez dans quelle langue ?
Pourriez-vous éditer votre message afin de le rendre plus compréhensible .

Merci.

[anti95]

merci Sylvanie je vais essayé de suite et encore merci à Habibsbib pour toutes ces réponses!
je vous préviens dès que j'ai essayé et si ça marche!
merci!

[Habibsbib]

Voila-voila, j'ai remis à neuf mon script, et LA ca marche ; tu appuyes sur OK et la soit tu appuyes sur ENTER et tu lances le programme, soit tu quittes le programme :

Code : Tout sélectionner

HotKeySet ("{ENTER}", "ChercherPixel")
MsgBox (0, "Chargement...", "Veuillez appuyer sur Annuler pour quitter, ou sur ENTREE pour lancer le programme... Ce logiciel se fermera automatiquement après 20 secondes d'inutilisation.")
sleep (20000)
Exit 0

Func ChercherPixel()
While 1
sleep ( 1000 )
Mouseclick ("left" , 157, 230 , 1, 0)
sleep ( 1000 )
Mouseclick ("left" , 67, 557 , 1, 0)
sleep ( 1000 )
$coordonnee=PixelSearch (271, 788, 506, 948, 0xFFD961 )

If not @error Then
   While 1
          MouseClick ("left", $coordonnee)
   WEnd
EndIf

If @error Then
   MsgBox ( 0, "Pixel Perdu", "Pixel Perdu. Désolé.")
   ChercherPixel()
EndIf

Mouseclick ("left" , 381, 800 , 1, 0)
sleep (100)
Mouseclick ("left" , 381, 820 , 1, 0)
sleep (100)
Mouseclick ("left" , 381, 840 , 1, 0)
sleep (100)
Mouseclick ("left" , 381, 860 , 1, 0)
sleep (100)
Mouseclick ("left" , 381, 880 , 1, 0)
sleep (100)
Mouseclick ("left" , 381, 900 , 1, 0)
WEnd
EndFunc
 
;--------------------------------------------------------------------------------

 

Comme j'avais rien à faire d'autre,je l'ai compilé avec une icône. Je l'ai appelé "Tilt" :

Tilt.zip

Voila-voila. J'espère que tu en feras bon usage anti.

(222.48 Kio) Téléchargé 62 fois

[anti95]

Merci Beaucoup !
j'avais un peu désespérer car je n'y avais toujours pas réussi!
mais LA ça Marche, ça court même!

merci beaucoup Habibsbib!

[Habibsbib]

Alors la, je n'y croyais même plus ^^ Heureux d'avoir pu t'aider !