Comment simuler le clic de la souris ?

Le 09/02/2023 à 23:03

Bonjour à tous,

J'ai trouvé comment déplacer à volonté le curseur de la souris par programmation (Cf. https://forum.excel-pratique.com/excel/comment-par-programmation-deplacer-a-volonte-le-curseur-de-la...).

Maintenant le souhaiterais toujours par programmation simuler le clic de la souris (pour ouvrir Paint par exemple).

Il y a cette page Internet intéressante (https://codes-sources.commentcamarche.net/forum/affich-1055139-simulation-souris), mais je n'y arrive pas...

Mille merci

Le 10/02/2023 à 08:05

Bonjour Excel-75011

Si ce que vous souhaitez est pour ouvrir des applications, il y a plus simple que gérer la souris

Avec l'objet Shell par exemple
https://learn.microsoft.com/fr-fr/previous-versions/visualstudio/visual-studio-2008/xe736fyk(v=vs.90...

A+

Le 10/02/2023 à 08:59

BrunoM45,

Merci pour votre réponse mais je veux aussi faire plein d'autres choses...

Le 10/02/2023 à 10:08

Finalement j'ai trouvé la solution en VB7 64 bits, que voici :

Public Declare PtrSafe 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)

Appui du bouton gauche de la souris : Call mouse_event (&H2, 0, 0, 0, 0)

Relâchement du bouton gauche de la souris : Call mouse_event (&H4, 0, 0, 0, 0)

Appui du bouton droit de la souris : Call mouse_event (&H8, 0, 0, 0, 0)

Relâchement du bouton droit de la souris : Call mouse_event (&H10, 0, 0, 0, 0)

Au plaisir...