Simuler les touches Windows flèche droite

**Superpat9999** · 30/01/2024, 12h15

Bonjour,
Sur le forum j'ai trouvé cette excellente discussion :https://www.developpez.net/forums/d3...ouche-windows/
Avec un code qui fonctionne pour Windows+M
Je souhaite le même code pour Windows+Flèche droite.
Je ne sais pas trouver la constante qui remplacerait le M

Code :

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

1
2
3
4
5
6
7
8
9
Sub SendWindows_M()
        Const KEYEVENTF_KEYUP As Long = &H2
        Const VK_RWIN As Long = &H5C
        Const VK_LWIN As Long = &H5B
        keybd_event VK_LWIN, 0&, 0&, 0&                                        ' Enfoncer touche Win Gauche
        keybd_event Asc("M"), 0&, 0&, 0&                                       ' Enfoncer la touche M
        keybd_event Asc("M"), 0&, KEYEVENTF_KEYUP, 0&                          ' Relever touche M
        keybd_event VK_LWIN, 0&, KEYEVENTF_KEYUP, 0&                           ' Relever touche Win Gauche
End Sub

**tee_grandbois** · 30/01/2024, 14h20

bonjour,
en cherchant un peu, je suis tombé sur ça : https://doc.pcsoft.fr/fr-FR/?6510001...indows_32_bits
le tout étant de trouver à quelle constante correspondait la flèche droite, il semble que ce soit VK_RIGHT, par déduction le reste suit:
son code décimal est (39) donc avec la fonction Hex(39) on a 27
et en adaptant le code donné:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub SendWindows_KR()
        Const KEYEVENTF_KEYUP As Long = &H2
        Const VK_RWIN As Long = &H5C
        Const VK_LWIN As Long = &H5B
        Const VK_RIGHT As Long = &H27                                          ' Déclarer flèche droite
 
        keybd_event VK_LWIN, 0&, 0&, 0&                                        ' Enfoncer touche Win Gauche
        keybd_event VK_RIGHT, 0&, 0&, 0&                                       ' Enfoncer flèche Droite
        keybd_event VK_RIGHT, 0&, KEYEVENTF_KEYUP, 0&                          ' Relever flèche Droite
        keybd_event VK_LWIN, 0&, KEYEVENTF_KEYUP, 0&                           ' Relever touche Win Gauche
End Sub

résultat: la fenêtre où le code est appelé se positionne à droite et les autres, à gauche en vignettes

autre chose, ton code n'est pas complet si tu ne postes pas l'API qui va avec (pour ceux qui essaieraient ton code sans lire le lien ...):

Code :

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

1
2
3
4
5
6
Option Explicit
#If VBA7 Then
  Declare PtrSafe Sub keybd_event Lib "User32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As LongPtr, ByVal dwExtraInfo As LongPtr)
#Else
  Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#End If

PS: pour info, la fonction keybd_event a été remplacée par SendInput
tu pourrais éventuellement solliciter le bon forum (je ne sais pas trop lequel ...) pour avoir le nouveau code

**Superpat9999** · 30/01/2024, 14h55

Merci tee_grandbois, c'est parfait.
Quand je vois ton code, je me dis que c'est simple, quand je cherche c'est toujours compliqué !

en cherchant un peu, je suis tombé sur ça : https://doc.pcsoft.fr/fr-FR/?6510001...indows_32_bits
le tout étant de trouver à quelle constante correspondait la flèche droite, il semble que ce soit VK_RIGHT, par déduction le reste suit:
son code décimal est (39) donc avec la fonction Hex(39) on a 27

https://www.to-convert.com/fr/nombre...en-decimal.php

Code :

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

1
2
PS: pour info, la fonction <a href="https://learn.microsoft.com/fr-fr/windows/win32/api/winuser/nf-winuser-keybd_event" target="_blank">keybd_event</a> a été remplacée par <a href="https://learn.microsoft.com/fr-fr/windows/win32/api/winuser/nf-winuser-sendinput" target="_blank">SendInput</a>
tu pourrais éventuellement solliciter le bon forum (je ne sais pas trop lequel ...) pour avoir le nouveau code

Comment as-tu trouvé que "keybd_event", n'était plus d'actualité ?

Je regarderai plus tard "keybd_event", mais pour le moment le code fonctionne parfaitement.