SendWinKey ou comment simuler la touche WIN

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Avatar de l’utilisateur
cage
Messages : 506
Inscription : ven. 16/oct./2015 18:22
Localisation : France
Contact :

SendWinKey ou comment simuler la touche WIN

Message par cage »

Bonjour a tous,

Je ne sais pas si le sujet a déjà été traité, mais voila une solution simple pour simuler l'appui de la touche Windows plus une touche alphabétique.
Je ne fais aucune vérification que la touche appuyée est bien une lettre majuscule comprise entre A et Z
C'est facile a rajouter si besoin comme la possibilité d'appuyer sur 2 touches après appui sur la touche Windows

Code : Tout sélectionner

EnableExplicit

#KEYEVENTF_KEYDOWN = 0
#KEYEVENTF_KEYUP   = 2

Procedure sendWinKey(key$)
  If FindWindow_("Progman", #NUL) <> 0
    keybd_event_(#VK_LWIN,0,#KEYEVENTF_KEYDOWN,0)
    If key$ <> #Null$
      keybd_event_(Asc(key$),0,#KEYEVENTF_KEYDOWN,0)
      keybd_event_(Asc(key$),0,#KEYEVENTF_KEYUP  ,0)
    EndIf
    keybd_event_(#VK_LWIN,0,#KEYEVENTF_KEYUP,0)
  EndIf
EndProcedure

;;; https://support.microsoft.com/fr-fr/help/12445/windows-keyboard-shortcuts
;;; https://support.microsoft.com/en-us/help/12445/windows-keyboard-shortcuts

; Exemple for : Open or close Start./Ouvrir ou fermer le menu Démarrer.
; keybd_event_(#VK_LWIN,0,#KEYEVENTF_KEYDOWN,0)
; keybd_event_(#VK_LWIN,0,#KEYEVENTF_KEYUP  ,0)

; Exemple for : Open the Quick Link menu./Ouvrir le menu Lien rapide.
; keybd_event_(#VK_LWIN,0,#KEYEVENTF_KEYDOWN,0)
; keybd_event_(#VK_X   ,0,#KEYEVENTF_KEYDOWN,0)
; keybd_event_(#VK_X   ,0,#KEYEVENTF_KEYUP  ,0)
; keybd_event_(#VK_LWIN,0,#KEYEVENTF_KEYUP  ,0)


sendWinKey("")  ; Open or close Start.............. Ouvrir ou fermer le menu Démarrer.
sendWinKey("X") ; Open the Quick Link menu......... Ouvrir le menu Lien rapide.
sendWinKey("A") ; Open Action center............... Ouvrir le centre de notifications.
sendWinKey("E") ; Open File Explorer............... Ouvrir l’Explorateur de fichiers.
sendWinKey("I") ; Open Settings.................... Ouvrir les Paramètres.
sendWinKey("L") ; Lock your PC or switch accounts.. Verrouiller le PC ou changer de compte.
sendWinKey("R") ; Open the Run dialog box.......... Ouvrir la boîte de dialogue Exécuter.
sendWinKey("S") ; Open search...................... Ouvrir la fonctionnalité de recherche.
cage
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 6.00 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Gérard sur le forum Anglais
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr