Code d'une touche

[SPH]

Voila le probleme que j'ai rencontré quand quelqu'un m' demandé un programme pour emuler l'appuie d'une touche :
Le type voulais emuler la touche F9, donc, j'ai fais ca :

Code : Tout sélectionner

keybd_event_(#VK_F9,0,0,0) 
keybd_event_(#VK_F9,0,#KEYEVENTF_KEYUP,0)

Ca appuie puis relache F9.

Alors je me suis dit que j'allais demander par un input quelle touche le type voulait emuler. Et bien je n'ai pas pu faire la transition entre le input et la valeur "#VK_"

Regardez :

Code : Tout sélectionner

PrintN("Quelle touche voulez vous appuyer ?")
touche$=Input()
; que mettre ici !!!
keybd_event_(#VK_latouche,0,0,0) 
keybd_event_(#VK_latouche,0,#KEYEVENTF_KEYUP,0)

Au input, on peux en effet mettre : a; 7; space; f11...
mais comment faire la transition ????

[brossden]

Je pense que le code qui suis pourra t'aider

Code : Tout sélectionner

Touche.s = UCase(InputRequester("Choix de la Fonction","Quelle touche voulez vous appuyer ?",""))
Select Touche
  Case "F1"
    Latouche=#VK_F1
  Case "F2"
    Latouche=#VK_F2
  Case "F3"
    Latouche=#VK_F3
  Case "F4"
    Latouche=#VK_F4
  Case "F5"
    Latouche=#VK_F5
  Case "F6"
    Latouche=#VK_F6
  Case "F7"
    Latouche=#VK_F7
  Case "F8"
    Latouche=#VK_F8
  Case "F9"
    Latouche=#VK_F9
  Case "F10"
    Latouche=#VK_F10
  Case "F11"
    Latouche=#VK_F11
  Case "F12"
    Latouche=#VK_F12
     
EndSelect 
; Pour les autres touches voir :
;http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/WindowsUserInterface/UserInput/VirtualKeyCodes.asp


keybd_event_(Latouche,0,0,0)
keybd_event_(Latouche,0,1,0) 

[SPH]

Oui, je ne voyais que ca. Des espece de data referenceant tout...