1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Simuler la touche F1 dans un logiciel

Signaler
Messages postés
37
Date d'inscription
vendredi 13 avril 2007
Statut
Membre
Dernière intervention
20 juin 2008
 -
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 -
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
Afficher la suite

3 réponses

Réponse 1 / 3
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 67
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é)
Réponse 2 / 3
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
 18
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
Réponse 3 / 3
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 67
0x40, oui
Répondre Posez votre question