PureBasic

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 200, 200,"Souris", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   
    SetClassLong_(WindowID(0), #GCL_STYLE, GetClassLong_(WindowID(0), #GCL_STYLE) | #CS_DBLCLKS) ; Active la gestion du double clic
   
    Repeat
        Event = WaitWindowEvent()
       
        If Event = #WM_LBUTTONDOWN
            Debug "Bouton gauche appuyé"
           
        ElseIf Event = #WM_LBUTTONUP
            Debug "Bouton gauche relaché"
           
        ElseIf Event = #WM_LBUTTONDBLCLK
            Debug "Double clic gauche"
           
        ElseIf Event = #WM_RBUTTONDOWN
            Debug "Bouton droit appuyé"
           
        ElseIf Event = #WM_RBUTTONUP
            Debug "Bouton droit relaché"
           
        ElseIf Event = #WM_RBUTTONDBLCLK
            Debug "Double clic droit"
           
        EndIf
       
    Until Event = #WM_CLOSE
EndIf 

Code : Tout sélectionner

 n=5000

Dim Pos.POINT(n)

MessageRequester("CursorPos","Bougez la souris pdt quelques secondes")

For i=0 To n   
    GetCursorPos_(Pos(i))
    Delay(1)
Next

MessageRequester("CursorPos","Replay")

For i=0 To n   
    SetCursorPos_(Pos(i)\x,Pos(i)\y)
    Delay(1)
Next