Jika Anda tidak dapat menetapkan kombinasi tombol pintas tertentu untuk pintasan, maka mungkin sudah terdaftar. Tapi pintasan mana yang saat ini menggunakan hotkey dan dari jalur folder mana? Anda dapat menemukannya dengan menjalankan skrip yang dilampirkan pada posting ini.
Script ini secara rekursif mencari pintasan di menu Desktop dan Start (per-pengguna dan lokasi per-mesin), Peluncuran Cepat, Bilah Tugas - Pengguna Disematkan & semua subfoldernya, dan menampilkan daftar pintasan dengan tugas hotkey di jendela sembulan sebagai pada gambar di bawah ini.
Skrip ini memiliki batasan; tidak dapat memperoleh tombol pintas untuk .URL (Pintasan Internet), yang dapat saya terapkan di masa depan.
Jadi di sini adalah isi dari skrip cepat yang saya buat, untuk daftar hotkey pintas.
'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 Unduh ListHotKeys.vbs (zip)
Utilitas Pihak Ketiga Terkait
Penjelajah Tombol Pintas oleh Perangkat Lunak RJL
HotKeysList oleh Nirsoft
