huhu, kann mir zufällig bitte wer verraten, warum ich hier mit dem start/stop knopf nicht die funktion druecken() pausieren kann? nach erneutem drücken solltes wieder losgehn
und wenn sich dass wer anschaut, bitte gleich mit tipps geben, was ich besser machen könnte, was evtl falsch ist und was einfacher gehen würde. das ist mein erstes script überhaupt.
Spoiler anzeigen
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("test", 221, 383, 434, 271)
$Label1 = GUICtrlCreateLabel("lalala", 16, 8, 106, 17)
$Input1 = GUICtrlCreateInput("", 96, 48, 41, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Checkbox1 = GUICtrlCreateCheckbox("", 64, 48, 17, 17)
$Button1 = GUICtrlCreateButton("Start/Pause", 24, 336, 75, 25, 0)
GUISetState(@SW_SHOW)
$pause = 1
checkprocess()
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exit
Case $Checkbox1
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
GUICtrlSetState($Input1, $GUI_ENABLE)
Else
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf
endswitch
Select
Case $nMsg = $GUI_EVENT_CLOSE
ExitLoop
Case $nmsg = $Button1
If $pause = 1 Then ;wird abgefragt ob Sleep schon aktiv oder nicht
$pause = 0
Else
$pause = 1
EndIf
while 1
druecken()
wend
EndSelect
wend
func checkprocess()
If ProcessExists("prog.exe") Then
Else
MsgBox(0, 'Fehl0R', 'prog nich gestartet un so')
exit
EndIf
EndFunc
Func druecken()
if $pause = 0 Then
activate()
If GUICtrlRead($Checkbox1) = 1 Then
$delay = GUICtrlRead($Input1)
sleep($delay)
send("{F5}")
EndIf
endif
EndFunc
func activate()
WinActivate("Prog")
WinSetState("Prog","",@SW_ENABLE)
endfunc