Process close, with delay and cancel.

[jvanegmond]

Select a process, type how many seconds you want it to wait and click close to close the process.

or type how many seconds you want to delay shutdown, and press cancel to abort shutdown.

Global Const $GUI_EVENT_CLOSE = -3

Dim $msg

GUICreate ( "Timer v. 0.1 !", 300, 310)
$mylist=GUICtrlCreateList ("", 10, 10, 200, 250)
$sleep = GUICtrlCreateInput ( "0", 10,  265, 200, 20)
$close=GUICtrlCreateButton("Close", 220, 10, 70)
$shutdown=GUICtrlCreateButton("Shutdown", 220, 40, 70)
$cancel=GUICtrlCreateButton("Cancel", 220, 70, 70)
GUICtrlCreateLabel ("Select a process, press Close to end it. Press cancel to stop shutdown. Type # of seconds left-down to delay.",  220, 100, 70, 200)
$time=GUICtrlCreateLabel("", 220, 300)
Get()
GUISetState ()

While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
    Select
        Case $msg = $close
            Sleep(GUICtrlRead($sleep) * 1000)
            ProcessClose( GUICtrlRead($mylist) )
            Get()
        Case $msg = $shutdown
            Run("Shutdown -s -t " & GUICtrlRead($sleep))
        Case $msg = $cancel
            Run("Shutdown -a")
    EndSelect
Wend
Exit

Func Get()
    $list = ProcessList() 
    for $i = 2 to $list[0][0]
        GUICtrlSetData($mylist,$list[$i][0])
    next
EndFunc

Edited May 14, 2007 by Manadar

[jvanegmond]

If noone's gonna post i'll do it. At least it's not empty now. And the most pathethic thing probably is the fact that it'll just have 1 post now.

[kclteam]

nice one mate...it's useful...

[MHz]

Nice, simple and effective. Has a good looking small window also which I like.

Well done, Manadar

[cppman]

Nice.... Good Job.

[GrungeRocker]

it's really usefull

[BigDod]

Useful unless like me you select shutdown instead of close. :">