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

Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
15 octobre 2007
- - Dernière réponse : baouc
Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
15 octobre 2007
- 27 août 2005 à 10:15
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.
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
21
3
Merci
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

Dire « Merci » 3

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

Codes Sources 199 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
0
Merci
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
0
Merci
Ha non désolé, ça marche !

Merci beaucoup.