oui c'est possible avec les fonctions pour la souris (api)
avec un timer tu enregistre le déplacement de la souris ,ainsi que les click
le tout dans un fichier texte
sous le format que tu veux
par exemple:
tu auras dans ton fichier texte un truc qui ressemble à ca:
x y
Pos:12212/151515 <- position du curseur
clic:D <-- click droit
clic:G <-- click gauche
lors de la lecture du fichier en lisant ligne par ligne
select case Mid(MaLigne,1,4)
case "Pos:":fonctionKiDeplaceLaSouris
case "clic:"
If Mid(MaLigne,5,1) = "D" then FonctionKiSimuleBoutonDroit Else FonctionKiSimuleBoutonGaucge
end select
api:
pour simuler un click de 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)
'fonction qui donne la position de la souris
Public Declare Function GetCursorPos Lib "user32" (lpPoint As Pointapi) As Long
'fonction qui déplace ta souris
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
|