11.01.2019 19:42
OlegON
 
У меня у некоторых сотрудников работодателя мозг очень странно работает, что на выходе дает идеи вроде оценки результатов работника по количеству активного времени за монитором. Т.е. нажимаешь кнопки - молодец. Не нажимаешь - тратишь время зря. При этом дополнительный софт ставить нельзя (предыдущие обострения я уже лечил самописной же утилиткой MouseMover, которая тут же где-то валяется).
Обошелся подручными средствами.
Код:
Function IsNumLocked()
Dim oWrd
Set oWrd = CreateObject("Word.Application")
IsNumLocked = oWrd.NumLock
oWrd.Application.Quit True
End Function

Dim PauseTime, Start, Finish, TotalTime
set WS = WScript.CreateObject("WScript.Shell")
rem msgbox "Проверка",16,"ТЕСТ"
WS.SendKeys("{NUMLOCK}")
do
wscript.Sleep 5000
WS.SendKeys("{NUMLOCK}")
wscript.Sleep 5000
WS.SendKeys("{SCROLLLOCK}")
loop
Собственно, выше код, который с интервалом в 5 секунд нажимает NumLock и ScrollLock по кругу. Поскольку я нампадом вообще не пользуюсь, код позволяет параллельно работать, а когда клавиши не трогаешь, скрипт нажимает их за тебя. Даже скринсейвер не срабатывает. Из известных багов: почему-то в Putty если mc запустить - вылезает справка. Причем, и на скролл и на намлок... Почему - не разбирался. Если кто подскажет, будет интересно узнать. А так - сохраните вышеприведенное в .vbs и запускайте на здоровье...

Выше по коду неиспользуемая функция проверки статуса NumLock.

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.