Како навести све пречачке пречаце који се тренутно користе у вашем рачунару? (Скрипти)

Ако нисте у могућности да доделите одређену хоткеи комбинацију за пречицу, она је можда већ регистрована. Али која пречица тренутно користи хоткеи и из које путање мапе? То можете сазнати покретањем скрипте приложене уз овај пост.

Ова скрипта рекурзивно тражи пречице у менију Десктоп и Старт (локације корисника и на уређају), Брзо покретање, Задаћа - Кориснички приквачени и све њихове подмапе и приказује листу пречица са додељивањем хитних тастера у искачућем прозору као на слици испод.

Ова скрипта има ограничење; не може да добије хитне тастере за .УРЛ (Интернет пречице), које могу да применим у будућности.

Дакле, овде је садржај брзог скрипта који сам смислио, да набројим пречаце за пречаце.

'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 

Преузмите ЛистХотКеис.вбс ( компримирано )

Сродни услужни програми треће стране

Пречица Кеи Екплорер од РЈЛ софтвера

ХотКеисЛист Нирсофт