Simuler l'appuis sur Bouton via sendmessage [Résolu]

Signaler
Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
15 octobre 2007
-
Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
15 octobre 2007
-
Bonjour a tous,

j'ai un gros problème et ça fait plusieurs jours que je cherche sans succès.

Mon but est d'appuyer sur un bouton d'un autre programme (externe à vb). Ce bouton permet d'ouvrir la fenetre de configuration du programme (le bouton se nomme "settings").

J'ai le handle du bouton.
Je simule l'appuis deçu avec ce code :
'********************************
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202


Public Function Appuis(hwnd As Long)
SendMessage hwnd, WM_LBUTTONDOWN, ByVal 0&, ByVal 0&
SendMessage hwnd, WM_LBUTTONUP, ByVal 0&, ByVal 0&


End Function


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

Donc là, la fenetre de configuration "settings" s'ouvre, mais mon programme (ma source vb koi !) s'arrete jusqu'a ce que je ferme cette fameuse fenetre de configuration.

J'ai donc executé pas a pas ma source pour voir où ça bloque, et en fait lorque il execute cette ligne,
SendMessage hwnd, WM_LBUTTONUP, ByVal 0&, ByVal 0&

il reste decu jusqu'à ce que je ferme la fenetre de l'autre programme qui est bien sur externe a vb.Bizarre.

Je ne peu donc rien faire avec cette fenetre (récupere handle, ...), puisque je suis obligé de la fermer pour que mon prog continue a s'exécuter.

Je vous serai très reconnaissant de bien vouloir m'aider.

3 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
26
essayes celui là à la place.

ça va éviter de bloquer ton programme mais ça veut pas dire que ça va marcher pour autant.





Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 118 internautes nous ont dit merci ce mois-ci

Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
15 octobre 2007

Merci mais avec postmessage, j'ai déjà essayé mais ça ne marche pas.

Tout ce que j'arrive a faire c'est donner le focus au bouton.
Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
15 octobre 2007

Ha non désolé, ça marche !

Merci beaucoup.