Jak wyświetlić globalne skróty klawiaturowe w systemie Windows 10

Wykorzystując aplikacje, z którymi często pracujesz, prawdopodobnie korzystasz ze skrótów klawiaturowych do wykonywania typowych zadań. Na przykład, w przeglądarkach internetowych bardziej naturalne będzie użycie kombinacji Ctrl + T, aby otworzyć nową kartę, niż kliknięcie myszą na przycisk dodania nowej karty. Skróty klawiaturowe przyspieszają pracę, a być może masz skonfigurowane także kilka globalnych, które są dostępne w dowolnym miejscu. Niektóre programy umożliwiają również korzystanie z globalnych skrótów klawiaturowych. W przypadku chęci ich wyświetlenia, nie ma jednak prostego sposobu na ich uzyskanie. Istnieje natomiast prosty skrypt, który można uruchomić, aby zobaczyć pełną listę dostępnych skrótów.
OSTRZEŻENIE SPOILERA: Przewiń w dół, aby obejrzeć samouczek wideo znajdujący się na końcu artykułu.

Jak wyświetlić globalne skróty klawiaturowe

Otwórz program Notatnik i wklej poniższy kod. Następnie zapisz plik pod odpowiednią nazwą z rozszerzeniem VBS. Pamiętaj, aby w oknie dialogowym zapisu zmienić typ pliku na „Wszystkie pliki”. Skrypt ten został stworzony przez użytkownika SuperUser o imieniu Jack White.

Przed uruchomieniem skryptu musisz dokonać jednej modyfikacji. W pierwszym wierszu zamień ścieżkę na ścieżkę do swojego folderu użytkownika.

Const rootdir = "C:Usersfatiw"

Set fso = CreateObject("Scripting.FileSystemObject")
Set wshell = CreateObject("WScript.Shell")

logname="GlobalHotkeys.txt"
Set logfile = fso.CreateTextFile(logname,True)
logfile.Write "Searching for shortcuts with hotkeys" & vbCrLf

recursedirs( fso.GetFolder(rootdir) )

logfile.Write "Done searching" & vbCrLf
logfile.Close

Sub recursedirs(dir)
If trylistdir(dir) Then
For Each subdir In dir.SubFolders
recursedirs subdir
Next

For Each file In dir.Files
extn = fso.GetExtensionName(file.Path)
if LCase(extn) = "lnk" Then
check(file.Path)
end if
Next
End If
End Sub

Function trylistdir(dir)
On Error Resume Next
trylistdir = (dir.SubFolders.Count + dir.Files.Count >= 0)
End Function

Sub check(fname)

Set lnk = wshell.CreateShortcut(fname)
hk = lnk.Hotkey
if (hk<>"") then
logfile.Write fname & " : " & hk & vbCrLf
end if

End Sub

Zapisz plik, a następnie uruchom go. Nie zobaczysz żadnego interfejsu graficznego informującego o działaniu skryptu, jednak w tym samym katalogu, w którym zapisałeś skrypt, zostanie utworzony nowy plik tekstowy o nazwie „GlobalHotkeys.txt”. Nie otwieraj go od razu; poczekaj kilka minut, aby skrypt mógł przeskanować system i zarejestrować znalezione skróty klawiaturowe.

Otwórz plik, aby zobaczyć globalne skróty klawiaturowe skonfigurowane dla twojego konta użytkownika.

Globalne skróty klawiaturowe w Windows

Warto zauważyć, że ten skrypt nie rejestruje globalnych skrótów klawiaturowych systemu Windows. Na przykład, kombinacja Win + A otwiera Centrum akcji, ale ten oraz inne domyślne skróty w systemie Windows 10 nie zostaną uwzględnione w pliku TXT. Dodatkowo, specjalne klawisze multimedialne oraz ustawienia dotyczące jasności, głośności, Bluetooth czy Wi-Fi również nie będą wymienione.

Mimo że skrypt działa dla większości aplikacji, mogą istnieć pewne wyjątki.