XL 2016 [VBA] Verrouiller la session Windows en VBA ?

[F22Raptor]

Bonjour à tous,
Je me demandais s'il exister un code VBA simple, qui permette de verrouiller la session Windows.
Etant donné que ça correspond à la combinaison de touches WIN+L, peut-être un sendkeys ? Mais comment, par Sendkeys, envoyer une combinaison de touches, en même temps, et pas WIN suivi de L ?

Qu'en pensez-vous ?

 

[Lolote83]

bonsoir @Lolote83
elle sont sensées faire quoi ces touches combinées

Passer d'un écran a l'autre. Exemple. Ouvre une appli sur l'écran de gauche et fait Win + Shift + Droite, l'appli ouverte sera alors sur l'écran de droite. Et vice versa

 

[patricktoulon]

si c'est pour ça alors peut être que ceci fera l'affaire

Sub DeplacerFenetreEcranDroite_VBS()
    Dim  strCmd$
      strCmd = "wscript.exe /E:vbscript /B ""Execute(""CreateObject(\""WScript.Shell\"").SendKeys """"^{+}{RIGHT}"""")"""
          CreateObject("WScript.Shell").Run strCmd, 0, False
   End Sub

 

[patricktoulon]

sinon 100% fiable avec l' api

Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_LWIN As Byte = &H5B   ' Touche Windows gauche
Const VK_SHIFT As Byte = &H10  ' Touche Shift
Const VK_RIGHT As Byte = &H27  ' Flèche droite

Sub Deplacer_la_Fenetre_a_Ecran_Droite()
    keybd_event VK_LWIN, 0, 0, 0   ' appuie sur Win
    keybd_event VK_SHIFT, 0, 0, 0  ' appuie sur Shift
    keybd_event VK_RIGHT, 0, 0, 0  ' appuie sur Flèche Droite
   
    keybd_event VK_RIGHT, 0, 2, 0  ' relache la touche Flèche Droite
    keybd_event VK_SHIFT, 0, 2, 0  ' relache la toucheShift
    keybd_event VK_LWIN, 0, 2, 0   ' relache la toucheWin
End Sub

avec ça tu es tranquille 😉

 

[patricktoulon]

Bonjour @Lolote83
tu me diras si les deux marchent
comme ça je les met dans ma biblio

 

[Lolote83]

Bonjour @patricktoulon,
Yes, je te tiens au jus. Peu de temps aujourd'hui, mais j'essaye rapidement
@+ Lolote83

 

[Lolote83]

R

Bonjour @Lolote83
tu me diras si les deux marchent
comme ça je les met dans ma biblio

Re bonjour Patrick,
Quel serait la commande pour la flèche Gauche ?
Sachant que pour la droite c'est : Const VK_RIGHT As Byte = &H27 ' Flèche droite

Donc pour Flèche gauche : Const VK_LEFT As Byte = ???? ' Flèche Gauche

A priori, la méthode 1 ne fonctionne pas
Merci
@+ Lolote83

 

[Staple1600]

Bonjour le fil

@Lolote83
Ma contribution du jour 😉

Virtual-Key Codes (Winuser.h) - Win32 apps

The following table shows the symbolic constant names, hexadecimal values, and mouse or keyboard equivalents for the virtual-key codes used by the system. The codes are listed in numeric order.

learn.microsoft.com

Ce serait &H25 non ?

 

[patricktoulon]

re
je m'en doutais pour la v1 elle doit être exécuté par un vbs
mais faut il avoir le focus sur la fenêtre en question
donc pour la VK_LEFT normalement c'est &H25

VK_LEFT	&H25	Flèche gauche
VK_UP	&H26	Flèche vers le haut
VK_RIGHT	&H27	Flèche droite
VK_DOWN	&H28	Flèche vers le bas

 

[Lolote83]

re
je m'en doutais pour la v1 elle doit être exécuté par un vbs
mais faut il avoir le focus sur la fenêtre en question
donc pour la VK_LEFT normalement c'est &H25

VK_LEFT	&H25	Flèche gauche
VK_UP	&H26	Flèche vers le haut
VK_RIGHT	&H27	Flèche droite
VK_DOWN	&H28	Flèche vers le bas

OK, je teste pour la gauche

 

[Staple1600]

Re

@patricktoulon & @Lolote83
C'est que qu'on pouvait lire au message#22
Apparemment le sort d'invisibilité a encore frappé...

 

[Lolote83]

Re

@patricktoulon & @Lolote83
C'est que qu'on pouvait lire au message#22
Apparemment le sort d'invisibilité a encore frappé...

OUPS, pas rafraichi assez tôt
Non, le sort d'invisibilité n'a pas frappé, c'est juste un manque de rapidité
Merci pour ton retour en tout cas
@+ Lolote83

 

[patricktoulon]

Bonjour @Staple1600
non mais il arrive que l'on se croise et malheureusement et la page n'est pas raffraichie

 

[Lolote83]

Re bonjour à tous.
Ca marche PRESQUE
Si on fait la manip à la mano (WIN + SHIFT + FLECHE), la fenêtre va de gauche à droite (d'un écran à l'autre) et vice-versa (Voir video1)
Si on fait la manip via VBA, la fenêtre va bien de gauche à droite mais reste sur l'écran actuel (voir vidéo2)
@+ Lolote83

 

[Staple1600]

Re

Okette

Je me permets au passage, cette question "existentielle" (destinée à qui voudra bien la lire)
[question existentielle ou plutôt question gain/bénéfice]
Dans un monde où il existe des raccourcis-clavier qui offrent l'avantage d'un gain de temps, quel est l'intérêt de rédiger un code VBA (donc d'appuyer N fois sur N touches de son clavier) pour faire l'équivalent d'un touche Windows + L ?

Il existe même dans ce même monde, un jour dédié aux raccourcis dans Excel (que je fête encore chaque année)

Spoiler: Plus de détails sur le IKSD

Alors oui, je le demande pourquoi cette aversion envers son clavier et ses jolies touches galbées ?
[/question existentielle ou plutôt question gain/bénéfice][/SPOILER]

 

[patricktoulon]

ben par ce que ça nous plait voila 🤣 🤣 🤣 🤣
@Lolote83 il est possible que l'on tape trop vite

Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' Pause

Const VK_LWIN As Byte = &H5B   ' Touche Windows gauche
Const VK_RIGHT As Byte = &H27  ' Flèche droite
Const KEYEVENTF_KEYUP As Long = &H2 ' Relâchement de touche

Sub Deplacer_la_Fenetre_dans_l_Ecran_de_Droite()
    keybd_event VK_LWIN, 0, 0, 0   ' Appuie sur Win
    keybd_event VK_RIGHT, 0, 0, 0  ' Appuie sur Flèche Droite
    Sleep 100  ' Pause pour bien détecter
    keybd_event VK_RIGHT, 0, KEYEVENTF_KEYUP, 0  ' Relâche Flèche Droite
    keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0   ' Relâche Win
End Sub