كيفية سرد جميع مفاتيح الاختصار المستخدمة حاليا في جهاز الكمبيوتر الخاص بك؟ (نصوص)

إذا لم تتمكن من تعيين تركيبة مفاتيح اختصار معينة لاختصار ، فربما تكون قد تم تسجيلها بالفعل. ولكن أي اختصار يستخدم حاليًا مفتاح التشغيل السريع ومن أي مسار مجلد؟ يمكنك معرفة ذلك عن طريق تشغيل البرنامج النصي المرفق بهذه المشاركة.

يبحث هذا النص البرمجي بشكل متكرر عن الاختصارات في سطح المكتب وقائمة ابدأ (لكل مستخدم ومواقع لكل جهاز) ، التشغيل السريع ، شريط المهام - تثبيت المستخدم وجميع المجلدات الفرعية الخاصة بهم ، ويعرض قائمة الاختصارات مع تعيينات مفاتيح التشغيل السريع في نافذة منبثقة مثل في الصورة أدناه.

هذا النص له قيود ؛ لا يمكن الحصول على مفاتيح الاختصار لـ .URL (اختصارات الإنترنت) ، والتي يمكنني تنفيذها في المستقبل.

حتى هنا محتويات النص السريع الذي توصلت إليه ، لسرد مفاتيح الاختصار.

'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 

تنزيل ListHotKeys.vbs (مضغوط)

أدوات الطرف الثالث ذات الصلة

مستكشف مفتاح الاختصار بواسطة برامج RJL

قائمة HotKeysList التي كتبها Nirsoft