[..] Pixel color + répétition

[locos974]

Bonjour,

Je souhaite crée un petit script permettent de repéré un pixel colore, et lorsqu'il existe qu'il clique à l'endroit du pixel.

En plus de ça, je veux que cette fonction ce répète ou attend d'avoir le pixel pour continuer la suite du script.
Si cela est possible, c'est que une fois la boucle terminer ( après avoir cliquer sur le pixel ), la boucle se relance.

Merci d'avance. Locos974.

[silvere]

Code : Tout sélectionner

Do
$pixel = PixelGetColor(-1,-1)
Until $pixel = 16777215 ; on continu si $pixel = 16777215 sinon on recommence a Do

MsgBox(0,'','la suite de ton scripte')

[ZDS]

Bonjour.

@Silvere : Je pense que tu n'as rien compris à sa demande. Il demande un script qui clique automatiquement quelque part quand il trouve la couleur en question.

@Locos974 : Peut-on avoir plus d'infos sur le besoin de ce script? On est dans la section "Demande de création de Scripts", ce qui me rend un peu plus regardant et sceptique que sur les demandes d'aide générale.

A bientôt.

[Jerome]

Coucou,


En mode vite fait :

Code : Tout sélectionner

while 1
    for $x = 0 to @DesktopWidth
        for $y = 0 to @DesktopHeight
            $pixel = PixelGetColor($x, $y)
            If $pixel = $TaCouleur Then
                MouseClick("left", $x, $y)
            EndIf
        Next
    Next
    sleep(100)
WEnd

Jérôme

[PandiPanda]

Pourquoi vouloir utilisé des PixelGetColor() quand la fonction PixelSearch est la pour ca et bien plus "performante" pour cette tâche ...

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{F1}","quitter") ; pour quitter si tourne en boucle

Local $posPixel ; va contenir la positon en X($posPixel[0]) et Y($posPixel[1])
Local $maCouleur=0xFFFFFF ; la couleur recherchée

While 1
    do
        Sleep(75)
        $posPixel=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$maCouleur)
    Until Not @error
    MouseClick("left",$posPixel[0],$posPixel[1],1,1)
    Sleep(500) ; pour attendre un peu [optionnel]
    ; reprise auto de la recherche + click si trouvé la couleur
WEnd

Func quitter()
    Exit
EndFunc

[locos974]

Salut,

Edit : Es-possible qu'il repère différent pixel color et qu'il vérifie qu'il sont tous présent ? Une fois qu'il sont tous présent, il clique ?

A ce que j'ai compris sur le dernier message de Pandipanda ( son script ), il me semble que celui-ci me conviens. Je le teste, je met en résolu et si il y a un problème, j'interviendrais sur aide générale.

Merci à vous tous pour votre rapidité !

[Chokolaa]

Salut,

Code : Tout sélectionner

Do
    Dim $zone[4] = [0, 0, @DesktopWidth, @DesktopHeight] ;la zone ou on doit rechercher le pixel
    $couleur = 0xFFFFFF ;le code de la couleur
    $PixelShearch = PixelSearch($zone[0], $zone[1], $zone[2], $zone[3], $couleur)

Until @error = 0 ; quand il trouve le pixel il arête la boucle

MouseClick("left", $PixelShearch[0], $PixelShearch[1], 1, 0)

; la suite de ton script
 

[Loulouw]

Pourquoi vouloir utilisé des PixelGetColor() quand la fonction PixelSearch est la pour ca et bien plus "performante" pour cette tâche ...

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{F1}","quitter") ; pour quitter si tourne en boucle

Local $posPixel ; va contenir la positon en X($posPixel[0]) et Y($posPixel[1])
Local $maCouleur=0xFFFFFF ; la couleur recherchée

While 1
    do
        Sleep(75)
        $posPixel=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$maCouleur)
    Until Not @error
    MouseClick("left",$posPixel[0],$posPixel[1],1,1)
    Sleep(500) ; pour attendre un peu [optionnel]
    ; reprise auto de la recherche + click si trouvé la couleur
WEnd

Func quitter()
    Exit
EndFunc

Le Sleep() a une certaine importance je trouve :S cela évite beaucoup de travail pour votre ordinateur mais un simple "Sleep(75)" suffit pas besoin de mettre 1/2 seconde