Simuler la touche F1 dans un logiciel

Question

Bonjour a tous,


Je suis a la recherche d'un code me permettant de simuler la touche F1 dans une autre fenetre ou logiciel. J'ai deja testé deux codes mais sans resultats.


1er code:

Private Sub Command1_Click()
mhNotepadWnd = FindWindow(vbNullString, "Calculatrice")
SendMessage mhNotepadWnd, WM_COMMAND, &H10040, ByVal 0&
End Sub
'Ce code fonctionne pour notepad mais pas pour la calculatrice ou Internet exploreur

2eme code:

Private Sub Command2_Click()
ReturnValue = Shell("notepad.exe", 1)
AppActivate ReturnValue
SendKeys "{F1}"
End Sub
'Ce code fonctionne mais il ouvre une nouvelle appli et dans mon cas l'appli est deja ouverte

Si quelqu'un veux bien m'aider.
Merci

Renfield · Answer

voir API : SetForeGroundwindow

sinon, pour la calculatrice:
SendMessage mhNotepadWnd, WM_COMMAND, &H13D, ByVal 0&
(ben ouais, l'ID est a adapter a chauqe programme, comme je l'ai expliqué)

mortalino · Answer

lol, et si j'ai bonne mémoire, l'id est 40 pour le bloc notes 

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Renfield · Answer

0x40, oui

Simuler la touche F1 dans un logiciel

3 réponses

Votre réponse

Discussions similaires