Discussion :

[noemieze]

Bonjour à tous,

ça fait un bon moment que je cherche alors je fais appel à vous...
J'essaie de cliquer sur un bouton d'une appli extérieure par code.
Le lancement de l'appli fonctionne, j'obtiens les handles de la bonne fenetre, et du bouton en question. J'ai vérifier avec spy++ qu'il s'agit bien du bon handle de bouton.
Cependant l'envoi du message "clique sur le bouton" (Call SendMessage(j, BM_CLICK, 0, 0)) ne fonctionne pas. Aucune réaction.

Y a t'il une erreur dans le code? Une idée?
En vous remerciant par avance.

Noémie

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Dim aRetVal As Long
Dim i As Long, j As Long
Dim hndApi As Long
Dim ret1 As Long, ret2 As Long
Dim start As Long
 
aRetVal = ShellExecute(Me.hWnd, "open", "CheminAppli/nomAppli.exe", "", "", 1)
i = 0
start = Timer
'sans la boucle, le findWindow s'effectue avant que l'appli soit vraiment lancée
Do
    i = FindWindow("RBWindow", "Titre exact appli")
Loop While (i = 0 And (Timer < start + 1))
 
Debug.Print "i=" & i   'j'obtiens le bon handle de fenetre
i = 0
start = Timer
Do
    j = FindWindowEx(i, ByVal 0&, "RB_Pane", "")
Loop While (j = 0 And (Timer < start + 1))
 
Debug.Print "j=" & j  'j'obtiens le bon handle de bouton (qui n'a pas de caption)
ret1 = SetActiveWindow(i)
ret1 = SetForegroundWindow(i)
 
Call SendMessage(j, BM_CLICK, 0, 0)

[Invité]

Bonjour
Une idée peut être
Ton bouton déclenche bien une procédure ou une fonction ou une macro.
N'y a til pas moyen d'appeler directement cette procédure ou fonction?

[noemieze]

Tout d'abord merci pour votre réactivité!

Je ne sais pas en quel langage l'appli extérieure est développée. en tout cas c'est pas du vba. je pense que c'est une procédure qui est lancée car dans spy++ dans le détail du bouton en question il y a [window proc = 745ED0D4].

Dans ce cas peut-on lancer un procédure extérieur à mon application grace à son adresse mémoire?

merci