Programmierung eines Tastaturmakros

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von CyberDannen.

    Programmierung eines Tastaturmakros

    Grüße an die Community!

    Ich bin gerade mehr oder minder dabei mit meinen begränzten Verständnis über Visual Basic ein Tastaturmakro zu programmieren, welches an sich recht leicht ist.
    Dabei soll es am besten via Tastendruck von F8 bspw. sowohl gestartet als auch zu jeder Zeit gestoppt werden.
    Die Abfolge wäre dann, dass es nacheinander 16x Tab drückt, anschließend Enter und 5 sekunden wartet.
    Danach 3x Tab und 2 sekunden warten usw.

    Da Script soll dann mehrmals durchlaufen bis ich es eben beende.

    Bislang sieht das bei mir so aus (Achtung Laienhaft):

    Visual Basic-Quellcode

    1. Set oShell = tabScript.CreateObject("WScript.Shell")
    2. n = 0
    3. Do
    4. n = n + 1
    5. oShell.SendKeys("{TAB}")
    6. tabScript.Sleep 500
    7. oShell.SendKeys("{TAB}")
    8. tabScript.Sleep 500
    9. oShell.SendKeys("{TAB}")
    10. tabScript.Sleep 500
    11. oShell.SendKeys("{TAB}")
    12. tabScript.Sleep 500
    13. oShell.SendKeys("{TAB}")
    14. tabScript.Sleep 500
    15. oShell.SendKeys("{TAB}")
    16. tabScript.Sleep 500
    17. oShell.SendKeys("{TAB}")
    18. tabScript.Sleep 500
    19. oShell.SendKeys("{TAB}")
    20. tabScript.Sleep 500
    21. oShell.SendKeys("{TAB}")
    22. tabScript.Sleep 500
    23. oShell.SendKeys("{TAB}")
    24. tabScript.Sleep 500
    25. oShell.SendKeys("{TAB}")
    26. tabScript.Sleep 500
    27. oShell.SendKeys("{TAB}")
    28. tabScript.Sleep 500
    29. oShell.SendKeys("{TAB}")
    30. tabScript.Sleep 500
    31. oShell.SendKeys("{TAB}")
    32. tabScript.Sleep 500
    33. oShell.SendKeys("{TAB}")
    34. tabScript.Sleep 500
    35. oShell.SendKeys("{TAB}")
    36. tabScript.Sleep 500
    37. oShell.SendKeys("{TAB}")
    38. tabScript.Sleep 500
    39. oShell.SendKeys("{enter}")
    40. tabScript.Sleep 5000


    Bis hierhin fehlt mir jedoch die Taste zum anfangen und beenden und allgemein bin ich der Ansicht, dass das auch alles schöner geht.

    Ich bin leider gezwungen das mit Notepad++ zu programmieren.


    Wäre über Hilfe dankbar :)

    Reingehauen.

    Edit by ~blaze~:
    *Verschoben, VB-Tags gesetzt*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()

Facebook
Telefonspende