keyboard macro script – konfabulieren

ein kleines aber feines keyboard macro script; einfach die gewünschten keycodes und wiederholungen ändern, in eine textdatei kopieren und mit endung vbs abspeichern; und dann hat man 5 sekunden zeit, um auf die gewünschte applikation zu wechseln in der das script laufen soll

Dim WShell
Dim i
Dim KeyCount
Dim KeyCodes

set WShell = WScript.CreateObject(“WScript.Shell”)

WScript.Sleep 5000 ‘5 Sekunden warten, um die Applikation zu wechseln
KeyCount = 3 ‘Anzahl der Wiederholungen
KeyCodes = “{TAB}{TAB}{TAB} ” ‘Zu sendender Keycode
For i = 1 to KeyCount
WShell.SendKeys KeyCodes ‘definierte Keys senden
WScript.Sleep 100 ‘Sicherheitshalber 100ms warten
Next