Si vous n'êtes pas en mesure d'attribuer une combinaison de touches de raccourci particulière à un raccourci, il se peut qu'il ait déjà été enregistré. Mais quel raccourci utilise actuellement le raccourci clavier et à partir de quel chemin de dossier? Vous pouvez le découvrir en exécutant le script joint à ce message.
Ce script recherche récursivement des raccourcis dans le menu Bureau et Démarrer (emplacements par utilisateur et par machine), Lancement rapide, Barre des tâches - Épinglé par l'utilisateur et tous leurs sous-dossiers, et affiche la liste des raccourcis avec des affectations de raccourcis clavier dans une fenêtre contextuelle comme dans l'image ci-dessous.
Ce script a une limitation; il ne peut pas obtenir les raccourcis clavier pour .URL (raccourcis Internet), que je pourrais implémenter à l'avenir.
Voici donc le contenu du script rapide que j'ai créé, pour répertorier les raccourcis clavier.
'Script Info: Obtains the List of Shortcuts With a Hotkey assigned 'Author: Ramesh Srinivasan, for The Winhelponline Blog 'Created on May 5 2016 'Modified on May 19 2016 'URL: https://www.winhelponline.com/blog Option Explicit Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject") Dim WshShell: Set WshShell = WScript.CreateObject("WScript.Shell") Dim arrFolders, objFolder, fldr, colfiles, colFolders Dim objFile, objSubFolder, oShellLink, strHotKey arrFolders = Array ( _ WshShell.SpecialFolders("AllUsersDesktop") _, WshShell.SpecialFolders("Desktop") _, WshShell.SpecialFolders("AllUsersStartMenu") _, WshShell.SpecialFolders("StartMenu") _, WshShell.SpecialFolders("AppData") & _ "\Microsoft\Internet Explorer\Quick Launch" _ ) For Each fldr In arrFolders If objFSO.FolderExists (fldr) Then Call GetHotKeys (fldr) Next Sub GetHotKeys (strFolder) Set objFolder = objFSO.GetFolder(strFolder) Set colFiles = objFolder.Files For Each objFile In colFiles If LCase(objFSO.GetExtensionName(objFile.Name)) = "lnk" Then Set oShellLink = WshShell.CreateShortcut(objFile.Path) If Trim(oShellLink.Hotkey) "" Then strHotKey = strHotKey & "[" & Trim(oShellLink.Hotkey) & _ "]" & vbCrLf & objFile.Path & vbCrLf & vbCrLf End If End If Next Set colFolders = objFolder.SubFolders For Each objSubFolder In colFolders GetHotKeys(objSubFolder) Next End Sub WshShell.PopUp strHotKey,, "Hotkeys Curently in Use by Shortcuts", 65 Set WshShell = Nothing Set objFSO = Nothing Télécharger ListHotKeys.vbs (zippé)
Utilitaires tiers associés
Explorateur de touches de raccourci par RJL Software
HotKeysList par Nirsoft
