Enregistreur d'événements souris

Télécharger le projet
Commenter

Description

C'est un petit prog. qui enregistre des événements souris et qui les reproduit. Possibilité de sauver une macro en .txt...
Lorsque la capture est lancée, il faut double cliquer sur le petit icône 'flèche' à côté de l'horloge puis sur 'Arrêter' pour stopper l'enregistrement.

Source / Exemple : 


' Utilisation de l'API Windows pour capturer et reproduire des événements..

' Capture les coordonnées de la souris
Public Declare Function GetCursorPos Lib "User32" _
         (lpPoint As PointAPI) As Long

Public Type PointAPI
    X As Long
    Y As Long
End Type

' Déplace la souris à un coordonnées donné
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)

Public Const MOUSEEVENTF_ABSOLUTE = &H8000
Public Const MOUSEEVENTF_MOVE = &H1

' Capture des touches
Public Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As Integer

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40

Conclusion :


@+ et amusez-vous bien.. :-)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Skywalker13)