Timer mit Inputbox

; Set Paused to false
Global $Paused = False

; Set the Pause hotkey to Ctrl + 1
HotKeySet("1", "TogglePause")

; Start the timer
Global $TimeStart = TimerInit()

; Run forever
While 1
    If $Paused Then
        Do
        Until $Paused = False
    EndIf
    
    ; Check how long has passed
    $TimeElapsed = TimerDiff($TimeStart)
    
    ; Check if the time elapsed is longer than a minute (60000 milliseconds)
    If $TimeElapsed >= 60000 Then 
        
        ; Tell the user a minute has passed
        MsgBox(0, "", "A minute has passed")
        
        ; Reset the timer
        $TimeStart = TimerInit()
    EndIf
    
WEnd


Func TogglePause()
    If $Paused = False Then
        $Paused = True
        MsgBox(0, "", "Paused")
    Else
        $Paused = False
        MsgBox(0, "", "UnPaused")
        
        ; Reset the timer to stop it from triggering immediately after coming out of pause
        $TimeStart = TimerInit()
    EndIf
EndFunc

#include <GuiConstants.au3>
$itimerdiff = TimerInit()

GuiCreate("Sample GUI", 400, 400)

$Knapp_1 = GuiCtrlCreateButton("Wie lang?", 160, 160, 100, 30)

GUISetState ()


While 1     
	$msg = GUIGetMsg() 
    Select        
	Case $msg = $GUI_EVENT_CLOSE          
		ExitLoop    
	Case $msg = $Knapp_1        
		MsgBox(0, "Running Time", _TimerFormat(TimerDiff($itimerdiff))&" (hour:min:sec)")  

	EndSelect 
Wend 


Func _TimerFormat($iTimerDiff)
	$iTimerDiff = Floor($iTimerDiff / 1000)

Local $iSEC = Mod($iTimerDiff, 60)     
$iTimerDiff = Floor($iTimerDiff / 60)  

Local $iMIN = Mod($iTimerDiff, 60)    
$iTimerDiff = Floor($iTimerDiff / 60)     

Local $iHOUR = Mod($iTimerDiff, 60)    
$iTimerDiff = Floor($iTimerDiff / 60)     

Return StringFormat("%.2d:%.2d:%.2d", $iHOUR, $iMIN, $iSEC) 

EndFunc