Attribute VB_Name = "Cursor"
Option Explicit

Public Position As POINTAPI  'Variable à utiliser pour SetCursorPos et GetCursorPos
Public ResultCur As Long
'Constante pour SetCursorPos et GetCursorPos

Type POINTAPI
    X As Long
    Y As Long
End Type

'Constante pour GetClipCursor

Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

'Constantes pour mouse_event
Public Const MOUSEEVENTF_ABSOLUTE = &H8000
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10

'***********************************************************************************

'Déclaration de l'API pour cacher et réafficher le pointeur de souris

'pour utilisation taper ShowCursor(true) ou ShowCursor(false)

Public Declare Function ShowCursor _
Lib "user32" ( _
    ByVal bShow As Long _
) As Long


'***********************************************************************************

'Déclaration de l'API pour positionner le pointeur de souris

'pour utilisation taper ResultCur = SetCursorPos(x,y)(x et y sont les coordonnées)

Public Declare Function SetCursorPos _
Lib "user32" ( _
    ByVal X As Long, _
    ByVal Y As Long _
) As Long


'***********************************************************************************

'Déclaration de l'API pour recupérer la position du pointeur de souris

'pour utilisation taper ResultCur = GetCursorPos(Position).les coordonnées _
du pointeur seront dans Position.x et Position.y

Public Declare Function GetCursorPos _
Lib "user32" ( _
    lpPoint As POINTAPI _
) As Long


'***********************************************************************************
'Déclaration de l'API pour faire cliquer la souris

'Utilisation :

'Le bouton gauche de la souris s'enfonce
        'Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0)
'le bouton gauche de la souris se relache
        'Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0)


Public Declare Sub mouse_event _
Lib "user32" ( _
    ByVal dwFlags As Long, _
    ByVal dx As Long, _
    ByVal dy As Long, _
    ByVal cButtons As Long, _
    ByVal dwExtraInfo As Long _
)

'***********************************************************************************

'***********************************************************************************
'voici d'autres fonction pour le curseur mais je ne sais pas les utiliser
'***********************************************************************************

Public Declare Function SetCursor _
Lib "user32" ( _
    ByVal hCursor As Long _
) As Long

Public Declare Function ClipCursor _
Lib "user32" ( _
    lpRect As Any _
) As Long

Public Declare Function GetCursor _
Lib "user32" ( _
 _
) As Long

Public Declare Function GetClipCursor _
Lib "user32" ( _
    lprc As RECT _
) As Long