วิธีการรายการปุ่มลัดทั้งหมดที่ใช้งานอยู่ในคอมพิวเตอร์ของคุณ (สคริป)

หากคุณไม่สามารถกำหนดค่าการรวมกันของคีย์ลัดสำหรับทางลัดแสดงว่าอาจมีการลงทะเบียนแล้ว แต่ทางลัดใดในขณะนี้ที่ใช้ฮอตคีย์และจากเส้นทางโฟลเดอร์ใด คุณสามารถค้นหาได้โดยการเรียกใช้สคริปต์ที่แนบมากับโพสต์นี้

สคริปต์นี้ค้นหาทางลัดซ้ำ ๆ ในเมนูเดสก์ท็อปและเริ่ม (ต่อตำแหน่งของผู้ใช้และต่อเครื่อง), เปิดใช้ด่วน, แถบงาน - ผู้ใช้ตรึง & โฟลเดอร์ย่อยทั้งหมดและแสดงรายการทางลัดด้วยการกำหนดปุ่มลัดในหน้าต่างป๊อปอัพ ในภาพด้านล่าง

สคริปต์นี้มีข้อ จำกัด ไม่สามารถรับฮอตคีย์สำหรับ. 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 (ซิป)

ยูทิลิตี้ของบุคคลที่สามที่เกี่ยวข้อง

คีย์ลัด Explorer โดยซอฟต์แวร์ RJL

HotKeysList โดย Nirsoft