Jei negalite priskirti tam tikro sparčiųjų klavišų derinio, tada jis jau gali būti užregistruotas. Bet kuris spartusis klavišas šiuo metu naudoja spartųjį klavišą ir iš kurio aplanko kelio? Tai galite sužinoti paleidę scenarijų, pridėtą prie šio įrašo.
Šis scenarijus rekursyviai ieško sparčiųjų klavišų darbalaukio ir pradžios meniu (kiekvieno vartotojo ir kiekvieno kompiuterio vietos), greitojo paleidimo, užduočių juostos - vartotojo segtukuose ir visuose jų poaplankuose, o laikinajame lange rodo sparčiųjų klavišų priskyrimų sąrašą. žemiau esančiame paveikslėlyje.
Šis scenarijus turi apribojimą; ji negali gauti „.URL“ (interneto nuorodų) sparčiųjų klavišų, kuriuos galbūt įgyvendinsiu ateityje.
Taigi čia yra greito scenarijaus, kurį sugalvojau, sąrašas, kuriame pateikiami sparčiųjų klavišų sąrašai.
'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 Atsisiųsti „ ListHotKeys.vbs“ (suarchyvuotas)
Susijusios trečiųjų šalių komunalinės paslaugos
„RJL Software“ sparčiųjų klavišų naršyklė
„Nirsoft“ „HotKeysList“
