Skript automatisch anhalten und auf Tastendruck fortsetzen

Osterhase

Hallo,
ich möchte, dass mein Skript an einer bestimmten Stelle anhält und nach Betätigung
einer beliebigen Taste ohne Verzögerung, das heisst ohne dass ich die Taste
gedrückt halten muss, an derselben Stelle fortfährt.

Dies hier:

Spoiler anzeigen

[autoit]

$dll = DllOpen("user32.dll")
While 1
Sleep ( 250 )
If _IsPressed("0D", $dll) Then ; enter
ExitLoop
Else
MsgBox(0,"Bestätigung","Bitte <ENTER-Taste> betätigen")

[/autoit] [autoit][/autoit] [autoit]

EndIf
Wend
DllClose($dll)

[/autoit]

ist die von mir leicht geänderte Version hiervon: Warten auf "Enter-Taste".
Leider reagiert das Skript nur verzögert auf Tastendruck.
Hier, im: Tutorial: Snake für Anfänger habe ich nun gelesen, dass "die Tasten nur alle 250ms abgefragt werden".
Kann man das beschleunigen? Das Beispiel in dem Tutorial habe ich leider nicht verstanden.
Gibt's 'ne Möglichkeit mit Hotkeyset?
Das hier aus der AutoIt-Hilfe kapier ich nicht:

Spoiler anzeigen

[autoit]

; Abfangen und Weitergeben von Tastendrücken
HotKeySet("{Esc}","captureEsc")
Func captureEsc()
HotKeySet("{Esc}")
; ... mach irgendwas
Send("{Esc}")
HotKeySet("{Esc}","captureEsc")
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit]

Da wo " ; ... mach irgendwas" steht sollte vielleicht sowas wie "führe das Skript weiter aus" stehen.

Für Hilfe bin ich dankbar.
Mfg

**Raupi**

Schau dir das Beispiel zu HotKeySet an, dort ist genau das was du suchst enthalten. Eine Pausefunktion.

Osterhase

Zitat von hier: Funktion Hotkeyset: "; Drücke Esc um das Skript zu beenden, Pause um es zu pausieren"
Da muß ich doch zuerst eine Taste drücken, wenn ich ein Skript anhalten möchte, oder nicht?

**Raupi**

Sicher mußt du eine Taste drücken. Du kannst aber die Funktion TogglePause auch direkt aufrufen.
Egal wie du es machst, das Script pausiert dann bis TogglePause erneut aufgerufen wird.

Osterhase

Zitat von Raupi

Du kannst aber die Funktion TogglePause auch direkt aufrufen.

Wie mache ich das?
Ein bisschen Code wäre nett.
MfG

**Raupi**

Dann zeig dein ganzes Script und net die Codefetzen.
Du willst eine Lösung, wo kein Mensch weis was du wann und wo in deinem Script machst.

Osterhase

Hier ist ungefähr das, was ich meine:

Spoiler anzeigen

[autoit]

Run("notepad.exe")

[/autoit] [autoit][/autoit] [autoit]

WinWaitActive("[CLASS:Notepad]")

[/autoit] [autoit][/autoit] [autoit]

Send("Dies ist eine Testzeile vor Betätigen der Entertaste." & @LF)

[/autoit] [autoit][/autoit] [autoit]

Send("Dies ist eine Testzeile vor Betätigen der Entertaste." & @LF)
; --------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

#include<Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

$dll = DllOpen("user32.dll")
While 1
Sleep(250)
If _IsPressed("0D", $dll) Then ; enter
ExitLoop
Else
MsgBox(0, "Bestätigung", "Bitte <ENTER-Taste> betätigen")

[/autoit] [autoit][/autoit] [autoit]

EndIf
WEnd
DllClose($dll)
; --------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Sleep(500)

[/autoit] [autoit][/autoit] [autoit]

Send(@LF)

[/autoit] [autoit][/autoit] [autoit]

Send(@LF)

[/autoit] [autoit][/autoit] [autoit]

Send("Dies ist eine Testzeile nach Betätigen der Entertaste." & @LF)

[/autoit] [autoit][/autoit] [autoit]

Send("Dies ist eine Testzeile nach Betätigen der Entertaste." & @LF)

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit]

Das Problem ist, dass ich die Entertaste länger als üblich gedrückt halten muß,
um das Skript fortzusetzen.
Ich will aber nicht, dass das Skript erst nach 250 Millisekunden weiterläuft,
sondern sofort nach "normalem" Tastendruck.
MfG:)

**Raupi**

Dann nimm dein Sleep(250) raus, dann mußt du auch nicht 250 ms warten. Ich verstehe den Sinn deines Scriptes sowieso nicht.
Es werden die Anweisungen nach dem verlassen der Schleife nur 1 mal ausgeführt. Wo da eine Pause Sinn macht entgeht
meinem Verständnis.
Im Augenblick block die Messagebox die Schleife und deshalb mußt du Enter länger drücken.
Erst wird die Messagebox abgebrochen und dann der Code welchen nach dem Enter ausführen werden soll abgearbeitet.

TheLuBu

Spoiler anzeigen

[autoit]

Run("notepad.exe")

[/autoit] [autoit][/autoit] [autoit]

Global $Paused
HotKeySet("{ENTER}", "TogglePause")

[/autoit] [autoit][/autoit] [autoit]

WinWaitActive("[CLASS:Notepad]")

[/autoit] [autoit][/autoit] [autoit]

Send("Dies ist eine Testzeile vor Betätigen der Entertaste." & @LF)

[/autoit] [autoit][/autoit] [autoit]

Send("Dies ist eine Testzeile vor Betätigen der Entertaste." & @LF)
; --------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

#include<Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

$dll = DllOpen("user32.dll")

[/autoit] [autoit][/autoit] [autoit]

TogglePause()

[/autoit] [autoit][/autoit] [autoit]

DllClose($dll)
; --------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Sleep(500)

[/autoit] [autoit][/autoit] [autoit]

Send(@LF)

[/autoit] [autoit][/autoit] [autoit]

Send(@LF)

[/autoit] [autoit][/autoit] [autoit]

Send("Dies ist eine Testzeile nach Betätigen der Entertaste." & @LF)

[/autoit] [autoit][/autoit] [autoit]

Send("Dies ist eine Testzeile nach Betätigen der Entertaste." & @LF)

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit]

Wobei ich dabei aufpassen würde, da immer wenn du Enter drückst auch die Pause betätigt wird

Osterhase

Hallo,
@ Raupi
Ich habe die Zeile "Sleep(250)" wegen der Prozessorlast nicht ganz weggelassen, sondern in "Sleep(10)" geändert.

Spoiler anzeigen

[autoit]

#include<Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

$dll = DllOpen("user32.dll")
While 1
Sleep(10)
If _IsPressed("0D", $dll) Then ; enter
ExitLoop
Else
MsgBox(0, "Bestätigung", "Bitte <ENTER-Taste> betätigen")
EndIf
WEnd
DllClose($dll)

[/autoit]

Funktioniert gut. Vielen Dank!

@ TheLuBu
Das funktioniert auch.
Ebenso vielen Dank!
So wird also anscheinend eine Funktion direkt aufgerufen.
Danke für den Tipp mit der Enter-Taste. Ich kann ja auch eine andere nehmen.
Leider kann ich mit dem Ausdruck

[autoit]

$Paused = NOT $Paused

[/autoit]

in der Funktion nichts anfangen. Wie muß ich den verstehen?
MfG

hauke96

ich hätte da auch noch eine andere Version bei mir rumliegen, die hier:

[autoit]

#include <Misc.au3>
ToolTip("Keine Pause")
while 1
Select
case _IsPressed("25") ;Pfeil links
ToolTip("Pause")
sleep(200)
Do
Until _IsPressed("25");Pfeil Links
ToolTip("Keine Pause")
sleep(200)
EndSelect
WEnd

[/autoit]

mfg
Hauke

lukasboy

Benutze doch einfach einen Hotkey:

[autoit]

HotkeySet("{Enter}","hallo")
While 1
Sleep(5000)
WEnd
Func hallo()
MsgBox(64,"hallo","hallo")
EndFunc

[/autoit]

Mit der Pause weiß ich leider (noch) nicht weiter sry.. Aber meine vorherigen Antworter haben dir bestimmt bei der Pause schon weitergeholfen...
LG Lukas

**BugFix**

@lukasboy: Bitte nur antworten, wenn die Antwort auch fachlich fundiert ist. Du bist dir selbst nicht sicher und ein Blick in die Hilfe zum HotKeySet-Bsp. hätte dir auch gezeigt, dass du etwas daneben liegst. Auch hatte der TE bereits mitgeteilt, dass er mit den angebotenen Lösungen sehr zufrieden ist.
Also in Zukunft nicht ganz so voreilig.

TheLuBu

Zitat von Osterhase

@ TheLuBu
Das funktioniert auch.
Ebenso vielen Dank!
So wird also anscheinend eine Funktion direkt aufgerufen.
Danke für den Tipp mit der Enter-Taste. Ich kann ja auch eine andere nehmen.
Leider kann ich mit dem Ausdruck
[autoit]
$Paused = NOT $Paused
[/autoit]

in der Funktion nichts anfangen. Wie muß ich den verstehen?
MfG

Alles anzeigen

$Paused ist eine Boolsche (Boolean) Variable, sie hat nur 2 Werte.
Wahr = 1
Falsch = 0

Der Ausdruck

[autoit]

$Paused = NOT $Paused

[/autoit]

ändert den Status von 0 auf 1 bzw. von 1 auf 0
Also wenn $Paused True ist dann würde da stehen
$paused = Not True
Wenn $Paused False ist, dann
$paused = Not False

Alles was nicht Wahr ist, ist falsch, alles was nicht Falsch ist, ist Wahr

lukasboy

BugFix Jaa, da gebe ich dir zwar völlig Recht, jedoch bemerkte ich beim Script öffnen, dass der Präfix immer noch auf offen ist...