GUI time out queestion

[gswitzer]

Hi there all,

I'm trying to build a GUI with two click controls, and I'd like it to timeout if a ctrl isn't pressed in 5 minutes. Any ideas or samples of code you could point me to? Thank you!

G.

[Kogmedia]

Hi there all,

I'm trying to build a GUI with two click controls, and I'd like it to timeout if a ctrl isn't pressed in 5 minutes. Any ideas or samples of code you could point me to? Thank you!

G.

#include <Date.au3>
Global $Secs, $Mins, $Hour, $Time
$timer = TimerInit()
AdlibEnable("Timer", 50)

Func Timer()
  _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs )
  Local $sTime = $Time  ; save current time to be able to test and avoid flicker..
  $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
  If $sTime <> $Time Then ControlSetText("Timer", "", "Static1", $Time)
EndFunc  ;==>Timer

Here is a timer script

If $Mins = 5 then disable control

~Kog~

Edited May 16, 2007 by Kogmedia

[Valuater]

Just what the Doctor ordered...

http://www.autoitscript.com/forum/index.ph...st&p=220201

8)

[gswitzer]

Just what the Doctor ordered...

http://www.autoitscript.com/forum/index.ph...st&p=220201

8)

Thanks for the info guys. I'm a little unclear on where to put it into the code though:

$AutoUpdater = GUICreate("Updater 3.0", 433, 170, 452, 422,)

GUISetIcon("path to ico")

GUISetBkColor(0xFFFF00)

$Continue = GUICtrlCreateButton("&Continue", 64, 120, 75, 25)

$Cancel1 = GUICtrlCreateButton("&Cancel", 271, 121, 75, 25)

$Label1 = GUICtrlCreateLabel("Update info", 48, 32, 341, 17)

GUISetState(@SW_SHOW)

$nMsg = 0

While 1

$nMsg = GUIGetMsg()

Select

Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $Cancel1

Exit

Case $nMsg = $Continue

ExitLoop

EndSelect

WEnd

I tried using the timediff starttimer functions, and I could get it to run the timer for a period of time, but I couldn't get it into the dialog above. Thanks again for the advice.

[Kogmedia]

What button do you want to disable?

[gswitzer]

I want it to close the dialog completely and continue on with the script.

[Kogmedia]

#include <Date.au3>
#include <GUIConstants.au3>
Global $Secs, $Mins, $Hour, $Time
$timer = TimerInit()
AdlibEnable("Timer", 50)

$AutoUpdater = GUICreate("Updater 3.0", 433, 170, 452, 422)
GUISetIcon("path to ico")
GUISetBkColor(0xFFFF00)
$Continue = GUICtrlCreateButton("&Continue", 64, 120, 75, 25)
$Cancel1 = GUICtrlCreateButton("&Cancel", 271, 121, 75, 25)
$Label1 = GUICtrlCreateLabel("Update info", 48, 32, 341, 17)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
If $Mins = 5 Then ExitLoop
Select
    Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $Cancel1
        Exit
    Case $nMsg = $Continue
ExitLoop



EndSelect

WEnd

Func Timer()
  _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs )
  Local $sTime = $Time  ; save current time to be able to test and avoid flicker..
  $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
  If $sTime <> $Time Then ControlSetText("Timer", "", "Static1", $Time)
EndFunc  ;==>Timer

[gswitzer]

That worked great! Thanks to you, sir, Kogmedia!