[..] Calcul de distances en pixels et clic

[leoleolth]

Bonsoir,
Comment puis-je calculer la distance en pixels entre deux coordonnées de l'écran (ainsi que les fonctions nécessaires). Et quelle fonction utiliser pour capter un clic de souris (pour ensuite incrémenter une variable qui contient le nombre de clics)?
Merci

[Sea]

Voila

Code : Tout sélectionner

#include <Misc.au3>
$firstClick = false

While 1; boucle infinie
    sleep(50)


if NOT $firstClick AND _IsPressed("01") Then
    $pos = MouseGetPos()
    $p1X = $pos[0]
    $p1Y = $pos[1]
    $firstClick = True
ElseIf $firstClick AND _IsPressed("01") Then
    $pos = MouseGetPos()
    $p2X = $pos[0]
    $p2Y = $pos[1]
    $firstClick = false
    $x = ($p1X - $p2X)
    $y = ($p1Y - $p2Y)
    $distance = Sqrt($x*$x + $y*$y)
    ConsoleWrite($distance)
EndIf

WEnd
 

[leoleolth]

Merci pour ce script intéressant qui me donne des idées, mais je cherchais 2 choses différentes:
- la distance parcourue par le curseur et
- le nombre de clics,

[Sea]

La tu as la distance parcourue entre deux clicks.

Pour compter le nombre de click tu peux regarder du coté de http://www.autoitscript.com/autoit3/doc ... yState.htm

[leoleolth]

Est-ce que ceci est correct (je n'ai pas encore pu le tester)

► Afficher le texte

Code : Tout sélectionner

#include <Misc.au3>

Local $hDLL = DllOpen("user32.dll")
Dim $clics = 0

HotKeySet("!c", "_Clics")

While 1
If _IsPressed("01", $hDLL) Then
$clics += 1
EndIf
While _IsPressed("01", $hDLL)
WEnd
WEnd

Func _Clics
MsgBox(0, "", $clics)
EndFunc
 

Quant à la distance parcourue par la souris, je souhaiterais calculer la distance parcourue en général, pas forcément entre deux clics.

[jguinch]

Salut.
Oui, le code est bon.

Pour calculer la distance parcourue, il faut calculer en permanence la position de la souris et la comparer avec la position précédente.
Pour ça, AdlibRegister sera idéal.

En regroupant ton code et celui de Sea puis en utilisant AdlibRegister, on peut avoir un truc dans le genre :

► Afficher le texte

Code : Tout sélectionner

#include <Misc.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Global $nbClics = 0
Global $mouseDown = 0


Global $travel = 0
Global $lastMPos = MouseGetPos()

GUICreate("Mouse travel", 200, 60, @DesktopWidth - 200 - 20, 10, -1, BitOr($WS_EX_TOOLWINDOW ,$WS_EX_TOPMOST) )
GUICtrlCreateLabel("Distance parcourue :", 10, 10, 100, 20)
Global $CtrlTravel = GUICtrlCreateInput("", 120, 5, 60, 20)

GUICtrlCreateLabel("Nombre de clics :", 10, 40, 100, 20)
Global $CtrlClicks = GUICtrlCreateInput("", 120, 35, 60, 20)

GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState()


AdlibRegister("_MouseTravel", 10)

While 1
    Sleep(0xFFFFFF)
WEnd




Func _MouseTravel()
    $currentMPos = MouseGetPos()
    If $currentMPos = $lastMPos Then Return 0
    
    $x = $currentMPos[0] - $lastMPos[0]
    If $x < 0 Then $x = $x * -1
    
    $y = $currentMPos[1] - $lastMPos[1]
    If $y < 0 Then $y = $y * -1
    $lastMPos = $currentMPos

    $travel += Int( Sqrt($x*$x + $y*$y) )
    
    
    If _IsPressed("01") And $mouseDown = 0 Then
        $nbClics += 1
        $mouseDown = 1
    EndIf
    If NOT _IsPressed("01") Then $mouseDown = 0

    GUICtrlSetData($CtrlTravel, $travel)
    GUICtrlSetData($CtrlClicks, $nbClics)
EndFunc

Func _Exit()
    Exit
EndFunc

[leoleolth]

Merci,
Bien que je ne maîtrise pas les gui en mode event, cela m'aide beaucoup !

[jguinch]

Le mode event n'est pas obligatoire, c'était pour l'exemple...

► Afficher le texte

GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState()

AdlibRegister("_MouseTravel", 10)

While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
Sleep(100)
WEnd