How to make script terminate itself?

[skysel 1]

I need to know how to give a script some kind of running time limit. So if script hangs and runs more than 30 minutes, it would end itself. Is it possible?

_Timer_SetTimer perhaps?

[Andreik 45]

I need to know how to give a script some kind of running time limit. So if script hangs and runs more than 30 minutes, it would end itself. Is it possible?

_Timer_SetTimer perhaps?

TimerInit ( ) and TimerDiff ( ).

[SmOke_N 194]

I need to know how to give a script some kind of running time limit. So if script hangs and runs more than 30 minutes, it would end itself. Is it possible?

_Timer_SetTimer perhaps?

Quick and dirty if you're not already using AdlibEnable():

Global $i_kill_mins = 30
AdlibEnable("_KillMeTimeIsUp", $i_kill_mins*60*1000)
While 1
    Sleep(1000000)
WEnd
Func _KillMeTimeIsUp()
    MsgBox(16, "Error", "You ran too damn long!", 1)
    Exit
EndFunc

[Andreik 45]

This script should exit after 15 sec.

Global $TIME_INIT = TimerInit()
$EXIT_TIME = 15

AdlibEnable("CheckExit",1000)
$GUI = GUICreate("EXAMPLE",300,300)
GUISetState(@SW_SHOW)

While 1
    $MSG = GUIGetMsg()
    If $MSG = -3 Then Exit
    Sleep(20)
WEnd

Func CheckExit()
    If TimerDiff($TIME_INIT)/1000 >= $EXIT_TIME Then 
        AdlibDisable()
        Exit
    EndIf
EndFunc

Edited December 10, 2008 by Andreik

[skysel 1]

Quick and dirty if you're not already using AdlibEnable():

Global $i_kill_mins = 30
AdlibEnable("_KillMeTimeIsUp", $i_kill_mins*60*1000)
While 1
    Sleep(1000000)
WEnd
Func _KillMeTimeIsUp()
    MsgBox(16, "Error", "You ran too damn long!", 1)
    Exit
EndFunc

Thanks for the help! Exactly what I needed.