[R] Script pour que la souris suive des pixels

[Esteban]

Salut à toutes et à tous ,

Je fais ce poste pour vous exposer mon script et vous demander si il est bon et pourquoi il ne marche pas .

Alors je suppose déjà quelques uns des bugs possible (Mauvais Pixels ,...)

Ce script est censé mettre la souris sur un pixel et si le pixel disparait et qu'un autre de la liste des pixels différents apparait alors il le suis .
En gros c'est un script qui suis une boule mais cette boule change de couleur donc il s'adapte

Alors voilà le script :

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{ESC}", "stop")

While 1
    $pixel1 = PixelSearch(0, 0, 1439, 899, 0xF7F7F4)
    $pixel2 = PixelSearch(0, 0, 1439, 899, 0x0D66FF)
    $pixel3 = PixelSearch(0, 0, 1439, 899, 0xFF3D44)
    $pixel4 = PixelSearch(0, 0, 1439, 899, 0x0BFC7D)
    $pixel5 = PixelSearch(0, 0, 1439, 899, 0x35FF88)
    $pixel6 = PixelSearch(0, 0, 1439, 899, 0xFF0CC9)
    $pixel7 = PixelSearch(0, 0, 1439, 899, 0xFFFF10)
    $pixel8 = PixelSearch(0, 0, 1439, 899, 0x0DFFFF)
    $pixel9 = PixelSearch(0, 0, 1439, 899, 0x71F9FF)
    If IsArray($pixel1) = True Then
        MouseMove($pixel1[0], $pixel1[1], 1)
    ElseIf IsArray($pixel2) = True Then
        MouseMove($pixel2[0], $pixel2[1], 1)
    ElseIf IsArray($pixel3) = True Then
        MouseMove($pixel3[0], $pixel3[1], 1)
    ElseIf IsArray($pixel4) = True Then
        MouseMove($pixel4[0], $pixel4[1], 1)
    ElseIf IsArray($pixel5) = True Then
        MouseMove($pixel5[0], $pixel5[1], 1)
    ElseIf IsArray($pixel6) = True Then
        MouseMove($pixel6[0], $pixel6[1], 1)
    ElseIf IsArray($pixel7) = True Then
        MouseMove($pixel7[0], $pixel7[1], 1)
    ElseIf IsArray($pixel8) = True Then
        MouseMove($pixel8[0], $pixel8[1], 1)
    ElseIf IsArray($pixel9) = True Then
        MouseMove($pixel9[0], $pixel9[1], 1)
    EndIf
WEnd

Func stop()
    Exit
EndFunc   ;==>stop

Voilà merci d'avance de vos réponses


Cordialement
Esteban

[Jerome]

Coucou,


Perso déjà je rajouterais des petit sleep(50) par ci par la dans la boucle, histoire de libérer un peu de mémoire.


Après la syntaxe et l'enchainement me semble correct.






Jérôme

[Esteban]

Salut ,et merci de votre réponse

Mais je voulais juste savoir si le problème venait des pixels qui étaient mauvais ?
Car quand je le lance il ne suis pas la boule ...
Donc je voulais juste une confirmation

[Jerome]

Re-Coucou,


Pour être sur de vos couleurs de pixel, ce que moi je ferais c'est :
-Prendre un imprim écran quand le pixel désirer apparaît.
-Coller l'image dans paint.
-Utiliser Windows AutoIt Info pour avoir précisément le code hexa de la couleur.




Jérôme

[Esteban]

C'est exactement ce que j'ai fait ,
Et je n'ai aucuns pixels de bons ...
Que faire ?

Car je crois que l'imprim' écran modifie les pixels ...
Donc je pense que je devrais faire autrement ,mais comment ?

J'ai pensé à Freeze mon écran ,mais je ne sais pas comment faire ^^'
Donc voilà .


Merci de vos réponses .


Cordialement
Esteban .

[Jerome]

Re-Coucou,


Essaye ceci :

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{ESC}", "stop")

While 1
    $pixel1 = PixelSearch(0, 0, 1439, 899, 0xF7F7F4)
    If Not @error Then
        MouseMove($pixel1[0], $pixel1[1], 1)
    EndIf
    sleep(50)
    $pixel2 = PixelSearch(0, 0, 1439, 899, 0x0D66FF)
    If Not @error Then
        MouseMove($pixel2[0], $pixel2[1], 1)
    EndIf
    sleep(50)
    $pixel3 = PixelSearch(0, 0, 1439, 899, 0xFF3D44)
    If Not @error Then
        MouseMove($pixel3[0], $pixel3[1], 1)
    EndIf
    sleep(50)
    $pixel4 = PixelSearch(0, 0, 1439, 899, 0x0BFC7D)
    If Not @error Then
        MouseMove($pixel4[0], $pixel4[1], 1)
    EndIf
    sleep(50)
    $pixel5 = PixelSearch(0, 0, 1439, 899, 0x35FF88)
    If Not @error Then
        MouseMove($pixel5[0], $pixel5[1], 1)
    EndIf
    sleep(50)
    $pixel6 = PixelSearch(0, 0, 1439, 899, 0xFF0CC9)
    If Not @error Then
        MouseMove($pixel6[0], $pixel6[1], 1)
    EndIf
    sleep(50)
    $pixel7 = PixelSearch(0, 0, 1439, 899, 0xFFFF10)
    If Not @error Then
        MouseMove($pixel7[0], $pixel7[1], 1)
    EndIf
    sleep(50)
    $pixel8 = PixelSearch(0, 0, 1439, 899, 0x0DFFFF)
    If Not @error Then
        MouseMove($pixel8[0], $pixel8[1], 1)
    EndIf
    sleep(50)
    $pixel9 = PixelSearch(0, 0, 1439, 899, 0x71F9FF)
    If Not @error Then
        MouseMove($pixel9[0], $pixel9[1], 1)
    EndIf
    sleep(50)
WEnd

Func stop()
    Exit
EndFunc   ;==>stop

Jérôme

[Esteban]

Salut ,

Désolé pour mon temps de réponse qui fût long ^^'

Merci de ton autre réponse ,mais cela ne fonctionne toujours pas ...

Je pense que le bug vien des pixels qui sont surement incorrects ...

Malheureusement je n'arrive pas à obtenir les bons ,donc je vais abandonner malheureusement ...


Merci beaucoup de ton aide


Cordialement
Esteban