Close GUI after x amount of time

[antmar904]

Hi all,

I have a GUI displaying a message and I would like the GUI to close and exit after 5 seconds but this does not seem to work.

When I start the GUI the message box appears right away.

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


Local $iTimmer = TimerInit()
Local $iTimmerDuration = 5000 ;5 sec



#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 437, 192, 124)
$Label1 = GUICtrlCreateLabel("Label1", 152, 168, 86, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case TimerDiff($iTimmer) >= $iTimmerDuration
                MsgBox(0, "Times up", "Idle time limit reached")
                Exit
    EndSwitch
WEnd

 

Edited August 18, 2016 by antmar904

[Jos]

Don't use the Case as that is for the returned msg from the gui. something like this?:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


Local $iTimmer = TimerInit()
Local $iTimmerDuration = 5000 ;5 sec



#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 437, 192, 124)
$Label1 = GUICtrlCreateLabel("Label1", 152, 168, 86, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    If TimerDiff($iTimmer) >= $iTimmerDuration Then
        GUIDelete($Form1)
        MsgBox(0, "Times up", "Idle time limit reached")
        Exit
    EndIf
WEnd

Jos

[antmar904]

@Jos

 

Yes thank you that worked!