Faire bouger la souris

bonjour à tous,

voila, mon problème est le suivant:

pour éviter de m'endormir sur les tâches répétitives que je dois faire à l'ordinateur, je voudrais savoir s'il existe une méthode permettant de bouger la souris à un point d'abscisse et d'ordonnée donnée, puis d'effectuer un évènement click???

merci pour votre aide

'Pour gérer les évenements souris
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)

' Pour déplacer la souris :
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long


' Pour savoir où se trouve la souris :
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

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
Public Const MOUSEEVENTF_MOVE = &H1


' Définition d'un point :
Public Type POINTAPI
X As Long
Y As Long
End Type




' Pour récupérer l'abscisse de la souris :
Public Function GetX() As Long
Dim n As POINTAPI
GetCursorPos n
GetX = n.X
End Function

' Pour récupérer l'ordonnée de la souris :
Public Function GetY() As Long
Dim n As POINTAPI
GetCursorPos n
GetY = n.Y
End Function

' Pour positionner la souris :
Public Sub SetMousePos(xPos As Long, yPos As Long)
SetCursorPos xPos, yPos
End Sub






Manu

Bonjour , merci narkotek pour la question c'est exactement ça mon probleme et merci econs pour la reponse mais avec ton code j'ai pu positionner la souris là ou je veux et non pas faire un clic ou double clic ?? si t'as le reste du code et t'as des solutions a nous proposer on sera vraiment reconnaissant