Программа Будильник-антисон?

Question

[6yuHbIu]

Проблема: есть компы, которые по регламенту уходят в спячку через 15 минут, и есть пользователи, которые ничего не делают, но потом жалуются, что комп заблокировался.
Можете ли посоветовать прогу, которая будет через 14 минут неактивности пользователя говорить "Э, дядя, у тебя щас комп потухнет, мышку потрогай хотя бы для видимости работы"? Должно жеж такое быть, как загуглить — хз

Comments

[Govnokodddd]

А самому написать? На питоне 5 сек делов, даже если не знаешь его особо.

Answer 1

[xmoonlight]

AHK заскриптить (самое простое)

Comments

[6yuHbIu]

Подробнее можно?

[6yuHbIu]

И как бы нет, не совсем подходит, нужно чтобы пользователь делал это сам. Т.е. если он действительно отошел, то комп лочится. Если находится перед компуктером, но не елозит мышкой, то просто всплывает нотифай, на который достаточно навести курсор

[xmoonlight]

6yuHbIu, Гуглите и читайте доку по скриптингу: все подобные задачки под десктоп - на нём делают.

[xmoonlight]

6yuHbIu, там всё можно сделать так, как Вы описали!

Answer 2

[Дмитрий]

У нас по регламенту все кто уходит от пк, должны лочить свою учетку или через час она сама залочиться. Если пользователь ничего не делает, то и напоминалку не нужно делать! Ведь он ничего не делает за пк. Напоминалку пусть себе в телефон поставят. Ввести пароль от учетки дело 5 секунд.

Answer 3

[Keffer]

Никак не могу решить, кто там больший идиот - придумавший идиотский "регламент" или тот, кто пытается теперь узнать, какими разными костылями его обойти? Если первый уже конченый, то у второго еще есть шансы - послать первого куда подальше и не заниматься херней.

Answer 4

[Ziptar]

Я скрипт колхозил на vbs в своё время; для других целей правда - для отмены автовыключения комьютера.

Option Explicit

Dim msg, title, result
Dim WshShell

msg = "Компьютер скоро будет выключен." & vbnewline & "" & vbnewline & "Для отмены нажмите OK"
title = "Автоматическое завершение работы"

Set WshShell = WScript.CreateObject("WScript.Shell")

result = WshShell.Popup (msg, 900, title, vbOkOnly + vbCritical + vbSystemModal)

Select case result
case vbOK
WshShell.Run "shutdown -a"
WScript.Quit 1
case else
WScript.Quit 0
End Select

Модифицировать предлагаю самому.

Comments

[Ziptar]

В принципе достаточно будет убрать WshShell.Run "shutdown -a"; ну и заменить msg и title. Тыкнуть мышкой на OK пользователя заставит.
Запускать через шедулер через 14 минут неактивности, соответсвенно.