baouc
Messages postés26Date d'inscriptionmercredi 12 février 2003StatutMembreDernière intervention15 octobre 2007
-
26 août 2005 à 19:22
baouc
Messages postés26Date d'inscriptionmercredi 12 février 2003StatutMembreDernière intervention15 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.
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 26 août 2005 à 19:43
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