BotMaker

[Tompazi]

ist geplant

MfG Tompazi

[Batze]

Finde das Programm sehr praktisch.

[Tompazi]

Download v1.2 (nur Windows) (65,5 KB)

Mit Recorder Funktion!

(Recorder beenden mit ESCAPE)

PS: habe Heute vor einem Jahr mit PureBasic angefangen

MfG Tompazi

[Josef Sniatecki]

Irgendwie macht dein Programm Spaß, Tompazi. Damit kann ich immer
meinen kleinen Bruder reinlegen. (Ich lasse die Maus von alleine bewegen).

[kswb73]

Die Recordfunktion ist seltsam. Die Zeit wird total falsch gemessen. Für einen Text den ich in ein paar Sekunden gebraucht habe hat der ewigkeiten gebraucht. Und aus sehr gute Arbeit hat er Sehr "Ggte Asarrbeettihitt gemacht.
Eine einfache Funktion zum beenden des Programmes währe ganz nett. Musste gerade dein Programm nämlich über Prozesse des Tastmanagers beenden, weil er mir noch die ganze Zeit in die Tasten fuschte.

Aber nützlich ist es, keine Frage. Mann kann nervende Sachen einfach dein Programm machen lassen und sich auf's Ohr hauen. Dabei fällt mir noch ein Tipp ein. Mach doch eine Schnellauswahlliste, wo man dann seine Programme reinpacken kann und diese dann direkt ausführen kann.

[Tompazi]

Danke, fürs testen,

zur Zeitmessung: danke, ich habe beim Recorder bei der PushKey Funktion vergessen die Zeit zurück zu setzen.

zum falsch Schreiben:

Sehr "Ggte Asarrbeettihitt

Das ergibt sich daraus das wenn man schnell schreibt man die Tasten gleichzeitig drückt (..schon nacheinander aber die nächste Taste wird schon gedrückt während sie letzte noch gedrückt ist.)
Da ich auch Tastenkombinationen unterstützen wollte habe ich das nicht bedacht.

Das ist mein Code zum Tasten abfragen:

Code: Alles auswählen

    Repeat
     For a = 1 To 254
      If a <> 1 And a <> 2 And a <> 4  And a <> 160 And a <> 161 And a <> 162 And a <> 163 And a <> 164 And a <> 165
       If GetAsyncKeyState_(a) ;eine Taste
        While GetAsyncKeyState_(a)
         For b = 1 To 254
          If b <> 1 And b <> 2 And b <> 4  And b <> 160 And b <> 161 And b <> 162 And b <> 163 And b <> 164 And b <> 165 And a <> b
           If GetAsyncKeyState_(b) ;kommt eine zweite Taste dazu?
            vk2.s = Hex(b)
            If Len(vk2) = 1
             vk2 = "0" + vk2
            EndIf
            Continue
           EndIf
          EndIf
         Next b
        Wend
        vk1.s = Hex(a)
        If Len(vk1) = 1
         vk1 = "0" + vk1
        EndIf
        If vk2
         Debug vk1 +"/" + vk2
        Else
         Debug vk1
        EndIf
       EndIf
        vk1 = ""
        vk2 = ""
      EndIf
     Next a
    Until GetAsyncKeyState_(#VK_ESCAPE)

MfG Tompazi

[Tompazi]

Download v1 Final 65.50 KB (nur Windows)

Download v1 Final SourceCode 26.26 KB (nur Windows)

Updates:

v.1 Final
Recorder Bugfixes
Source Freigabe

MfG Tompazi