Logoff/Shutdown using system uptime

[goss34]

Hi Guys,

I am looking for a way to be able to have a timer or something running that can monitor the system uptime on a machine and when it reaches for example 18 hours it will prompt the user (if logged on) that the machine will shutdown in for example 30 minutes.

I have found a script that works using the mouse position then i could run the shutdown but that is in effect an idle timer on the system so wouldnt work in the scenario i want.

Heres the script if that helps:

AdlibRegister("_UpdateTimer", 100)

Global $nTimer = 0
Global $OldMousePosition = MouseGetPos()
GLobal $NewMousePosition


While(1)
    sleep(10)
WEnd

Func _UpdateTimer()
    $nTimer += 100 ;100 ms
    
    $NewMousePosition = MouseGetPos()
    if (($NewMousePosition[0] == $OldMousePosition[0]) and ($NewMousePosition[1] == $OldMousePosition[1])) Then
        ; The user is still idle (you might also want to check for key presses
    Else
        ; The user moved, we should start the timer over.
        $OldMousePosition = $NewMousePosition
        $nTimer = 0
    EndIf
    
    if ($nTimer >= 5000) Then ;Change the '5000' to the number in milliseconds you want to wait, with your user being idle.
        _OnTimerFinish()
        $nTimer = 0
    EndIf
EndFunc

Func _OnTimerFinish()
    MsgBox(0, "", "idle hands are the devil's tools")
    AdlibUnRegister()
    Exit
EndFunc

Can someone help or at least point me in the right direction to use the "system uptime" clock?

Thank you,

Dan

[guinness]

Have a look at _WinAPI_GetTickCount() in WinAPIEx.au3 to retrieve how long the machine has been running.

Retrieves the number of milliseconds that have elapsed since the system was started.

Example use:

If _WinAPI_GetTickCount() > 64800000 Then
    ; Shutdown.
EndIf

Edited July 13, 2011 by guinness

[water]

Did you use the forum search function? When I search for "system uptime" the second entry is an UDF which does what you need.

[goss34]

Thanks Guiness,

Hadnt come accross that before, will experiment with it but it looks like that will work providing i can write the rest of the code

Cheers

Dan

Have a look at _WinAPI_GetTickCount() in WinAPIEx.au3 to retrieve how long the machine has been running.

Example use:

If _WinAPI_GetTickCount() > 64800000 Then
    ; Shutdown.
EndIf

[goss34]

Can you make a message box have no buttons? (Ok, Cancel)

I am using a message box with a timeout of 10 minutes then another with 5 then the system restarts, the problem is if the user clicks ok to the messages it reboots straight away!

I tried using sleep but then the user doesnt see a message. I use the message first then the sleep i end up waiting for 20 minutes.

Any ideas?

Thanks

Dan

[goss34]

Fixed it by adding another if and looking for the response from the messagebox.

Cheers

[Exit]

For such purposes, I use splash.

Here a sample:

$handle = SplashTextOn("Messages","Here is my first message" , 900, 200, -1, -1, 16 + 32, "", 50, 900)
Sleep(3000)
WinSetState($handle, "", @SW_HIDE)
Sleep(3000)
ControlSetText($handle, "", "Static1", "Here is my second message", 1)
WinSetState($handle, "", @SW_SHOW)
Sleep(3000)
WinSetState($handle, "", @SW_HIDE)
ControlSetText($handle, "", "Static1", "Here is last message", 1)
WinSetState($handle, "", @SW_SHOW)
Sleep(3000)
SplashOff()

[guinness]

Or using GUICreate()

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

_Main()

Func _Main()
    Local $iHeight = 300, $iWidth = 400

    GUICreate("Blank MsgBox()", $iWidth, $iHeight, -1, -1, $DS_MODALFRAME)
    GUICtrlCreateLabel("Something is happening...", 5, 5, $iWidth - 15, $iHeight - 35)
    GUISetState(@SW_SHOW)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit

        EndSwitch
    WEnd
EndFunc   ;==>_Main

Edited July 13, 2011 by guinness