Pause HotkeySet

boss93max

Hallo ich hab das problem ich hab ein programm geshcrieben
wass in den notepad zahlen hoch zählt
und man kann halt pause drücken bis dahin klappt das auch
aber dennwnen man erneut pause drücks solls weiter gehen was nicht der fall ist

Code

Run("notepad.exe")
WinWait("Unbenannt")
HotKeySet ( "{pause}" ,"pause0")
SendKeepActive("Unbenannt")
$play = 1
$zahl = 1


for $i = 1 to 1000000
	if $play = 1 Then
	$zahl=$zahl +1
	Send($zahl &"{enter}")
EndIf
Next
Func pause0()
	If $play = 1 Then
		$play = 0
	ElseIf Then
		$play = 1
		EndIf
EndFunc

Alles anzeigen

zemkedesign

Aktivierst du die Pause, läuft die For-Schleife trotzdem durch, schreibt nur nichts in den Editor.

Du musst also innerhalb des einen For-Schleifen-Durchlaufs pausieren, d.h. eine Schleife, die den Pausewert abfragt und erst bei True weitermacht.

boss93max

dh.
die if anweisung vor der For schleife?

L3viathan

Nein, mach am besten eine "selbstgebaute" For-Schleife:

[autoit]

While True
If $play=1 Then
If $i <= 100000 Then
$zahl=$zahl +1
Send($zahl &"{enter}")
Else
ExitLoop
EndIf
Else
Sleep(1)
EndIf
Next

[/autoit]

Ist aber ungetestet.

zemkedesign

Habs lauffähig gemacht:

Spoiler anzeigen

[autoit]

Run("notepad.exe")
WinWait("Unbenannt")
HotKeySet("{pause}", "pause0")
SendKeepActive("Unbenannt")
$play = 1
$zahl = 1

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

While True

If $play = 1 Then

If $zahl > 10000 Then Exitloop
$zahl = $zahl + 1
Send($zahl & "{enter}")

EndIf
Sleep(10)

WEnd

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

Func pause0()
If $play = 1 Then
$play = 0
Else
$play = 1
EndIf
EndFunc ;==>pause0

[/autoit]

boss93max

thx

**Raupi**

Dafür kann man auch gut das Beispiel der Hilfe für HotKeySet verwenden .

Spoiler anzeigen

[autoit]

Global $Paused
Run("notepad.exe")
WinWait("Unbenannt")
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

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

SendKeepActive("Unbenannt")
$play = 1
$zahl = 1

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

for $i = 1 to 1000000
if $play = 1 Then
$zahl=$zahl +1
Send($zahl &"{enter}")
EndIf
Next
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc

[/autoit]