[..] Problème mouseclick

[baddark]

Bonjour,

J'ai un petit problème avec la fonction mouseclick :s, je vous explique

Tout d'abord, ma fonction récupère la position actuel du curseur

Code : Tout sélectionner

Func GetPos() ;récupérer la position du curseur
    Local $a
   
    $a = GUIGetCursorInfo()
    GUICtrlSetData($x_location, $a[0])
    $x_location = $a[0]
    GUICtrlSetData($y_location, $a[1])
    $y_location = $a[1]
EndFunc

Puis le mouseclick effectue un ou plusieurs clicks à l'endroit indiqué précédemment selon la configuration, j'ai mis un Opt("MouseCoordMode", 2) en début de code afin d'avoir les bon coordonnées sélectionné peut importe la position de la fenêtre, le premier click est au bon endroit mais par contre, les suivant sont décalé d'environ 300 pixel à droite et 20 en bas, pourquoi ce décalage ?

De plus, lorsque mon logiciel n'est pas au premier plan, une erreur dans cette fonction apparait : subscript used with non-Array variable.

[jbnh]

Pour l'erreur, c'est normal qu'il y ai une si la fenêtre avec laquelle tu souhaites travailler n'est pas active.
Le bout de code que tu nous a donné semble correct, l'erreur doit donc être autre part.

Dis nous en plus.

[baddark]

Effectivement, j'avais oublier l'active window :s

Je ne comprends vraiment pas pourquoi il y a ce décalage, j'ai vérifier avec un msgbox, les cordonnées sont pourtant les memes :s

cela ne peut venir du opt() ? J'ai l'impression que le curseur veux compenser la largeur/hauteur de la fenêtre, si j'active mon mouseclick le curseur se décale vers le bords de l'écran le plus proche :/ c'est a n'y rien comprendre, dois-je envoyé tout mon code ?

[jumby]

Bonjour,

Comme il a été dit, le bout de code que tu nous a fourni plus haut semble correct.

Avoir plus de code ne pourrait que nous aider.

En revanche, tu utilises Mousecoordmode 2. Dans la doc, y est écrit :
MouseCoordMode Sets the way coords are used in the mouse functions, either absolute coords or coords relative to the current active window:
0 = relative coords to the active window
1 = absolute screen coordinates (default)
2 = relative coords to the client area of the active window

Personnelement, j'aurais choisi le paramètre 0. Je n'arrive pas bien à saisir la différence (si elle existe) entre le paramètre 0 et 2.

Testes avec le paramètre 0, ça ne mange pas de pain.

[baddark]

Et bien en fait je n'y comprend rien non plus, mais j'ai mis 2 car avec les autres, même les clicks simple sont complètement décalé :/

Je pense que le 2 se base par rapport au coin en haut a gauche.

► Afficher le texte

Code : Tout sélectionner

Func GetPos() ;récupérer la position du curseur
    Local $a
   
    $a = GUIGetCursorInfo()
    GUICtrlSetData($x_location, $a[0])
    $x_location = $a[0]
    GUICtrlSetData($y_location, $a[1])
    $y_location = $a[1]
EndFunc
    
Func touche_saisi() ; différente vérification et cliquage
    $i = 0
    GetPos()
    While($i < $compteur)
        MouseClick($souris, $x_location, $y_location, $click, 50)
        Msgbox(0, "", $x_location&" "&$y_location)
        $i = $i + 1
        Sleep($intervalle)
    WEnd
EndFunc

        $souris = GuiCtrlRead($list_souris)
        $click = GuiCtrlRead($list_simple)
        $compteur = GuiCtrlRead($nbr_click)
        $tch1 = GuiCtrlRead($autoclick_tch1)
        $tch2 = GuiCtrlRead($autoclick_tch2)
        $heure = GuiCtrlRead($heure_list)
        $min = GuiCtrlRead($min_list)
        $sec = GuiCtrlRead($sec_list)
        $intervalle = $heure * 3600 + $min * 60 + $sec & "000"
        
        if($souris = "Gauche") Then
            $souris = "left"
        elseif($souris = "Milieu") Then
            $souris = "middle"
        elseif($souris = "Droit") Then
            $souris = "right"
        Endif
        if($click = "Simple") Then
            $click = 1
        elseif($click = "Double") Then
            $click = 2
        Endif
        If($tch1 = "Maj") Then
            $tch1 = "+"
        ElseIf($tch1 = "Ctrl") Then
            $tch1 = "^"
        ElseIf($tch1 = "Alt") Then
            $tch1 = "!"
        ElseIf($tch1 = "Ctrl + Alt") Then
            $tch1 = "!^"
        EndIf
        if($tch1 = "Rien") Then
            $touche = "{"&$tch2&"}"
        Else
            $touche = $tch1 & "{"&$tch2&"}"
        EndIf
        HotKeySet($touche, "touche_saisi")
 

Tout ce qui concerne le mouseclick est ici il me semble

[orax]

Dans le code

Code : Tout sélectionner

    GUICtrlSetData($x_location, $a[0])
    $x_location = $a[0]
    GUICtrlSetData($y_location, $a[1])
    $y_location = $a[1]

vous utilisez les variables $x_location et $y_location comme des "contrôles ID" avec GUICtrlSetData et ensuite vous utilisez ces mêmes variables pour y mettre des coordonnées... Bizarre votre truc.

Bref, de cette manière ça marche (avec Mousecoordmode à 2) :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt("Mousecoordmode",2)

Global $x, $y,$x_location,$y_location

Example()

Func Example()
    Local $msg
    
    HotKeySet("{Esc}", "touche_saisi")

    GUICreate("Press Esc to Get Pos", 400, 400)
    $x = GUICtrlCreateLabel("0", 10, 10, 50)
    $y = GUICtrlCreateLabel("0", 10, 30, 50)
    GUISetState()

    ; Run the GUI until the dialog is closed
    Do
        $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE
EndFunc

Func GetPos() ;récupérer la position du curseur
    Local $a
   
    $a = GUIGetCursorInfo()
    If @error Then Return SetError(1)
;~     GUICtrlSetData($x_location, $a[0])
    $x_location = $a[0]
;~     GUICtrlSetData($y_location, $a[1])
    $y_location = $a[1]
EndFunc
   
Func touche_saisi() ; différente vérification et cliquage
    $i = 0
    GetPos()
    If @error Then Return
    Sleep(1000)
        MouseClick("left", $x_location, $y_location, 1, 50)
        Msgbox(0, "", $x_location&" "&$y_location)
        $i = $i + 1
EndFunc

Edité : code édité...

[baddark]

Merci mais cela ne fonctionne pas :s j'avais pas fais attention, effectivement c'est très improbable.

Je viens de découvrir autre chose quand j'appuie sur F3 (la touche d'activation du mouseclick) et que mon curseur est dans la fenêtre de mon autoclick, les coordonnées sont les bons mais dès que je sors de cette fenêtre, seul le premier est bon :/

C'est très bizarre !