Discussion :

[Kloun]

Bonjour,

Dans une appli, je fais des SendKeys.
L'inconvénient du SendKeys, c'est que ça fonctionne sur la fenêtre qui a le focus.
Or, pour diverses raisons, je ne peux assurer que la fenêtre à laquelle je veux envoyer le SendKeys a le focus (et j'ai essayé pas mal de choses).
Y a t-il une alternative pour envoyer une séquence de touche à une appli (identifiée via son handle) à coup sûr (sans doute avec les APIs) ?

Merci.

[loufab]

Bonjour,

Un sendkey a souvent une équivalence vba. Le tout est de savoir ce que tu fais avec.

Sinon pour continuer à utiliser le sendkey vérifie simplement que la fenêtre active

Code :

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

screen.activeform

est bien celle que tu attends, dans le cas contraire un

Code :

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

screen.activeform.setfocus

remettra les choses dans l'ordre.

Cordialement,

[Kloun]

Quand je parle de "fenêtre", je veux plutôt dire "application".
Il semblerait qu'il faille utiliser PostMessage ou SendMessage, mais les exemples concrets sont difficiles à trouver...

[Jean-Philippe André]

salut,
si tes applis sont elles mêmes en VBA, tu peux lancer des paramètres par batch.

[Kloun]

Ca serait trop facile.
En l'occurence, c'est SAP qu'il faut piloter (connexion, lancement de transaction, attente de fin ...).
Avec le SendKeys, ça fonctionne nickel SI (en gros) personne (ni aucune autre application) n'intervient sur le PC.

[Kloun]

Après pas mal de recherche et de test, j'en arrive à la conclusion qu'il est possible d'utiliser SendMessage SI on connait le handle du contrôle qui doit recevoir le message.
Ce qui, en pratique, n'est pas faisable.

[riri2938]

Bonjour, je cherchais depuis un petit moment une altenative à Sendkeys car effectivement cela ne marche pas très bien quand on travaille sur une autre application (en l'occurrence sur internet pour moi) et j'ai trouvé ce code qui fonctionne plutôt bien.

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
 
Public Declare Sub keybd Lib "user32" Alias "keybd_event" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
 
Public Sub appui_touche(t As Long)
'appuie sur la touche
keybd t, 0, 0, 0
'relache la touche
keybd t, 0, 2, 0
End Sub
 
Sub test()
'Pour simuler capslock, on aura :
appui_touche (20)
'Pour simuler impr-ecran, on aura :
appui_touche (44)
'Pour simuler entrée, on aura :
appui_touche (13)
End Sub

Voila je te livre en l'état et t'invite à l'essayer.
Pour moi cela a marché en tout cas

En prime les codes des virtual keys de windows

[Kloun]

Salut,

keybd_event, c'est une alternative, mais malheureusement, ça ne convient pas car ça "envoie" les touches à la fenêtre qui a le focus.

Le SendMessage est mieux car on "envoie" les touches à un handle particulier.

Mais j'ai encore un problème avec Shift, Ctrl et Alt.

[gwems]

besoin d info .... je comprend pas cmt fonctionne le keybd_event ..... :s

et je capte pas ou declarer quoi
t aura compris que je debute ..

regarde ds ce forum la discution "filtre via combo"

merci

[mchurlet]

Bonjour, je cherchais depuis un petit moment une altenative à Sendkeys car effectivement cela ne marche pas très bien quand on travaille sur une autre application (en l'occurrence sur internet pour moi) et j'ai trouvé ce code qui fonctionne plutôt bien.

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
 
Public Declare Sub keybd Lib "user32" Alias "keybd_event" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
 
Public Sub appui_touche(t As Long)
'appuie sur la touche
keybd t, 0, 0, 0
'relache la touche
keybd t, 0, 2, 0
End Sub
 
Sub test()
'Pour simuler capslock, on aura :
appui_touche (20)
'Pour simuler impr-ecran, on aura :
appui_touche (44)
'Pour simuler entrée, on aura :
appui_touche (13)
End Sub

Voila je te livre en l'état et t'invite à l'essayer.
Pour moi cela a marché en tout cas

En prime les codes des virtual keys de windows

J'ai bien cru avoir trouvé la solution à mon problème mais malheureusement le code me donne une erreur :
Assistant Débogage managé 'PInvokeStackImbalance' *: 'Un appel à la fonction PInvoke 'Navigateur!Navigateur.fMain::keybd' a déséquilibré la pile. Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée. Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible.'

En VB.Net
Je sais que le sujet date mais je cherche toujours cette solution...