Seite 4 von 4
Verfasst: 16.09.2008 17:18
von Tompazi
ist geplant
MfG Tompazi
Verfasst: 20.09.2008 19:33
von Batze
Finde das Programm sehr praktisch.

Verfasst: 22.09.2008 18:27
von 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
Verfasst: 22.09.2008 19:30
von Josef Sniatecki
Irgendwie macht dein Programm Spaß, Tompazi. Damit kann ich immer
meinen kleinen Bruder reinlegen. (Ich lasse die Maus von alleine bewegen).

Verfasst: 23.09.2008 19:50
von 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.
Verfasst: 24.09.2008 14:38
von 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
Verfasst: 29.09.2008 18:33
von 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