Jeśli nie możesz przypisać określonej kombinacji klawiszy skrótu, być może została już zarejestrowana. Ale który skrót używa obecnie skrótu i z której ścieżki folderu? Możesz to sprawdzić, uruchamiając skrypt dołączony do tego postu.
Skrypt rekurencyjnie wyszukuje skróty w menu Pulpit i Start (lokalizacje na użytkownika i na maszynie), Szybkie uruchamianie, Pasek zadań - Przypięte przez użytkownika i wszystkie ich podfoldery oraz wyświetla listę skrótów z przypisanymi skrótami klawiszowymi w wyskakującym oknie jako na obrazku poniżej.
Ten skrypt ma ograniczenia; nie może uzyskać skrótów do .URL (skrótów internetowych), które mogę wdrożyć w przyszłości.
Oto zawartość szybkiego skryptu, który wymyśliłem, aby wyświetlić listę skrótów klawiszowych.
'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 Pobierz ListHotKeys.vbs (skompresowany)
Powiązane narzędzia stron trzecich
Shortcut Key Explorer firmy RJL Software
HotKeysList od Nirsoft
