Программа "Зарядка"

Так как большую часть рабочего времени приходится сидеть на стуле пришлось написать скриптик который бы заставлял меня отрываться от мониторы и приседать, отжиматься,  подтягиваться кто, что там делает )

---

Wscript.sleep 2400000 `это 40 минут
beep("7")
' Блокируем акран как по нажатию WIN + L, єто необходимо так как Бип со временем я стал игнорировать ))
Set shell = WScript.CreateObject("WScript.Shell")
shell.Run "rundll32.exe user32.dll,LockWorkStation",1,false
Wend

   Function beep(iTimes)
       Set oShell = CreateObject("Wscript.Shell")
       Dim iTemp
       For iTemp = 1 To iTimes
           oShell.Run "%comspec% /c echo " & Chr(7), 0, False
           Wscript.Sleep 300
       Next
   End Function

---

Сохраняем все это добро в фаил с расширением .vbs и добавляем в автозапуск )