Sådan vises alle genvejstaster, der i øjeblikket bruges på din computer? (scripts)

Hvis du ikke er i stand til at tildele en bestemt genvejskombination til en genvej, kan den muligvis allerede være registreret. Men hvilken genvej bruger i øjeblikket genvejstasten og fra hvilken mappesti? Du kan finde ud af det ved at køre scriptet, der er knyttet til dette indlæg.

Dette script søger rekursivt efter genveje i skrivebordet og Start-menuen (per bruger og placering pr. Maskine), hurtig start, proceslinje - Bruger fastgjort og alle deres undermapper, og viser listen med genveje med hurtigtastindstillinger i et popup-vindue som på billedet herunder.

Dette script har en begrænsning; det kan ikke hente genvejstasterne til .URL (Internetgenveje), som jeg muligvis implementerer i fremtiden.

Så her er indholdet af det hurtige script, jeg kom med, for at angive genvejstaster.

'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 

Download ListHotKeys.vbs (lynlås)

Relaterede tredjepartshjælpeprogrammer

Genvejstaster efter RJL-software

HotKeysList af Nirsoft