Axels Homepage

Hinweis: Das ist das Ende der Metanavigation. Es folgt die Kontext-Spalte.

Hinweis: Das ist das Ende der Kontext-Spalte.

Sie sind hier: » PC + Co. » VBScript » Shortcuts lesen

Anzeige aller Shortcuts

Einleitung

Dieses VBScript durchsucht das Startmenü und den Desktop nach Links, in denen Shortcuts (Tastatur-Kürzel) gesetzt wurden.

Anm.: Sie können bei einem jeden Link Tastenkombinationen defnieren, bei denen ein Programm aufgerufen werden soll. Sie finden die aufgezeigten Infos auf manuelle Art und Weise, indem Sie auf dem entspr. Link per rechte Maustaste aus dem Kontextmenü "Eigenschaften" anwählen.
Nun stellen Sie sich vor, Sie würden so alle Ihre Links durchsuchen :-(

In einem Ausgabefenster werden die gefundenen Shortcuts samt div. Informationen angezeigt:

• welcher Link beinhaltet den Shortcut?
• welches Program wird in welchem Arbeitsverzeichnis aufgerufen?

Mit dieser Ausgabe wissen Sie quasi "auf einem Schlag", welche Hotkeys auf Ihrem Rechner definiert sind, was sie bewirken und wo diese eigentlich verborgen sind.

Sie finden die aufgezeigten Infos, wenn Sie auf dem entsprechenden Link per rechte Maustaste aus dem Kontextmenü "Eigenschaften" anwählen. Im Feld "Tastenkombination" können Sie den gesetzten Hotkey nach Ihren Wünschen auch anpassen.

VBScript-Begeisterte könen gern den nächsten Abschnitt lesen; diejenigen, die einfach nur das Ergebnis sehen wollen, können gleich zum Download übergehen...

Seitenanfang

So funktioniert's

Das VBSkript selbst ist ca. 9 kB gross; ich werde es daher nicht mit dem gesamten Quellcode vorstellen, sondern nur Auszüge davon.
gesamter Quellcode der getshortcuts.vbs

Ermitteln der Ordner
Zunächst muss man wissen, in welchen Ordnern das Startmenü und der Desktop verborgen sind. Es gibt im Filesystemobject eine Funktion zum Ermitteln von Systemordnern, die sich SpecialFolders([Variable]) nennt:

  set fso = CreateObject("Scripting.Filesystemobject")
  strDesktop = shell.SpecialFolders("Desktop")&"\"
  strStartmenu = shell.SpecialFolders("Startmenu")&"\"

Durchsuchen der Links
Diese beiden Ordner werden rekursiv durchsucht: es wird bei allen Dateien geprüft, ob es sich um einen Link handelt. Dazu erhält ein Link-Obkjekt den jeweiligen Dateinamen (der steckt in f1.name) zugewiesen.
Mit Hilfe des Error-Objektes kann ich erfragen, ob meine Zuweisung Erfolg hatte und es sich somit um einen Link handelt.
Zu guter Letzt wird die Eigenschaft Hotkey des Link-Objektes abgefragt: Ist diese nicht leer, werden die anderen Eigenschaften des Linkobjektes zusammengetragen und in einem String (hier tmp) gesammelt.

  On Error Resume Next
  set Link=shell.CreateShortCut(myFOLDER & f1.name)
  if (Err.Number=0) then
    if (Link.Hotkey > "") then
      tmp = tmp & _
      Link.Hotkey & _
      "Link-Datei: " & myFOLDER & f1.name & (...)
    end if
  end if

Dies ist es eigentlich von der wesentlichen Funktionalität. Der Quellcode wird durch div. Objekte und Abfragen sowie Aufbereitungen der anzuzeigenden Ergbnisse im HTML-Code etwas grösser.
Wenn Sie VBScript kennen (oder lernen wollen), so schauen Sie sich nach einem Download die VBS-Datei an...

Seitenanfang

Screenshot

Dieses Ausgabefenster zeigt Ihnen das Ergebnis der Suche: auf der linken Seite die Shortcuts und die zugehörigen verknüpften Programme.


Seitenanfang

Download

In der hier angegebenen ZIP-Datei finden Sie das VBScript und eine Readme-Datei:
getshortcuts.zip (3 kB)


Seitenanfang