Одновременное выключение HMS, Компа и ТВ. (Страница 1 из 2)

Leshiy71
Может быть немного не то, но вроде бы слышал когда то, что в программе Power Off, были настройки авто выключения в зависимости от нагрузки на сети. Так вот задайте временный интервал, к примеру ночь и поставьте выключение, если нет нагрузки на сеть, т.е. hms не тянет из сети. Не забудьте программа должна работать от имени администратора.
Возможно пригодится. Если неактуально удалите сообщение

WD TV LS+Sony KDLS5600/Samsung UEF5400/Sony PS 3/Yamaha RX-V379/hms 2.33
Кладовая HMS (список полезных ссылок и инструкций)

Временно отсутствую

Можно сделать так.
В HMS есть событие "Бездействие сервера (30 минут)". Можно написать обработку, которая будет срабатывать при этом событии. Например, выключать компьютер.
Но если вы телек просто смотрели не обращаясь к HMS, то это событие тоже, как я понял, может сработать. Поэтому можно также там и проверить доступность устройства с определённым IP адресом - IP телека.

UPD 2016.07.17: Исправлена ошибка в скрипте и обновлена прикреплённая обработка! Первоначальная версия была неработоспособна.

Например, можно использовать такой код:

string gsIP = "192.168.1.20"; // IP адрес телевизора, который будет проверяться на доступность

///////////////////////////////////////////////////////////////////////////////
// Проверка доступности устройства по его IP
bool DeviceIsUp(string sIP) {
  bool bAvaliable = false; THmsScriptUPnPDevice DEVICE;
  // Получаем список устройств и перебираем их - ищем нужный IP адрес
  THmsScriptUPnPDeviceList DEVLIST = THmsScriptUPnPDeviceList.Create();
  try {
    for (int i=0; i < DEVLIST.Count; i++) {
      DEVICE = DEVLIST[0]; if (DEVICE.IpAddress != sIP) continue;
      bAvaliable = true;
      break;
    }
  } finally { DEVLIST.Free; }
  return bAvaliable;
}

///////////////////////////////////////////////////////////////////////////////
// Функция запуска указанной команды на выполнение
bool ExecuteCmd(string sCmd) {
  bool bSuccess = false; variant objShell;
  try { 
    objShell = CreateOleObject("WScript.Shell"); 
    objShell.Run(sCmd);
    bSuccess = true;
  } except {
    if (VarType(objShell) != varDispatch)
      ShowMessage("Невозможно создать ActiveXObject WScript.Shell для запуска выключения компьютера.");
    else
      ShowMessage("Ошибка запуска команды "+sCmd);
  }
  return bSuccess;
}

///////////////////////////////////////////////////////////////////////////////
//                     Г Л А В Н А Я   П Р О Ц Е Д У Р А                     //
///////////////////////////////////////////////////////////////////////////////
{
  
  if (!DeviceIsUp(gsIP)) {                     // Проверка, выключено ли устройство с указанным IP
    ExecuteCmd("shutdown.exe /s /f /d p:1:1"); // Выполнение команды выключения компьютера
  }
  
}

Обработку с данным кодом также прикрепляю.

В данном скрипте нужно, естественно, указать свой IP адрес устройства (телевизора).

Конечно, компьютер в таком случае не будет выключатся моментально, как выключится телевизор, а только через пол часа. Не знаю, устроит ли.
Как вариант, можно ещё эту обработку запускать по расписанию, но как-то опасно, вдруг по какой-то причине устройство будет недоступно и комп выключится никого не спрашивая.

Как загрузить обработку

А если просто в командной строке выполнить

shutdown /s /f /d p:1:1

Выключится ли компьютер? Срабатывает ли такая команда в системе?
Чтобы вызвать командную строку, можно нажать Win+R и вписать

cmd.exe

Да, через минуту всё вырубилось.
Система Win 7 (64).

А при проверке скрипта (его запуске в самом редакторе скриптов) сообщение об ошибке запуска команды именно без пробелов между ключами, как вы приводили пример?
Там должны быть пробелы.

Чисто для проверки, можно закомментировать проверку выключенности телевизора. Вот так:

  //if (!DeviceIsUp(gsIP)) {                     // Проверка, выключено ли устройство с указанным IP
    ExecuteCmd("shutdown.exe /s /f /d p:1:1"); // Выполнение команды выключения компьютера
  //}

Нашёл ошибку!! Скачал отсюда обработку, проверил - и у меня та же самая ошибка. Перед отправкой немного подправлял скрипт и косячнул. Сорян.
Обновил своё сообщение и заново выложил обработку и подправил пример скрипта.

В вашем случае можно не приделывая костыли к hms написать простой батник, который пингует телевизор, и при отсутствии ответа от него, выключает комп.
И запускать этот батник раз в Х минут из виндового шедулера.

Если интересно, завтра организую.

P.S. Кстати интересно, а такую конструкцию hms из обработки сможет выполнить: schtasks /Run /TN "task name"

Логично

Касательно кода, пожалуйста. Его и кодом-то не назовешь:

@echo off
set /A COUNTER = 0
if exist _run_check_inet (
    exit /b
) else (
    echo Running > _run_check_inet
)
:start
ping -n 2 -w 500 ya.ru
echo %ERRORLEVEL%
if not %ERRORLEVEL% == 0 (
    if %COUNTER% GTR 2 (
        wget.exe "http://192.168.x.x/cgi-bin/sysconf.cgi?page=ajax.asp&action=reboot&reason=1&time=1.1.1987" -q --spider --tries=2 --timeout=2 --waitretry=5
        timeout 120
        modem_resetted.cmd
        if %COUNTER% GTR 5 (
            del _run_check_inet
            exit /b
        
        ) else (
            goto start
        )
    )
    SET /A COUNTER = %COUNTER% + 1
    timeout 75
    goto start
)
del _run_check_inet
exit /b

Не составит труда его немного сократить для простого выключения компьютера. Передавать ему параметром айпишник телевизора и использовать в коде такую проверку:

IF "%~1"=="" (
echo "No IP passed"
exit /b
) else (set TVIP = %1)

и заменить ping ya.ru на ping %TVIP%.

d1mas
Спасибо за участие, только я никогда не пользовался батниками, даже не знаю как его добавлять в автозапуск, но наверно кому нибудь пригодится.
WendyH
Ну можно сказать, что почти всё получилось : по Mac-адресу телек определяет и по расписанию вырубает.
Осталось пару нюансов :
1) Пока экспериментировал, то меня приколола такая штука, что когда выскакивает табличка что комп через минуту отрубится, то нет никакой возможности отменить это выполнение, и просто беспомощно смотришь на это действие. Может есть возможность добавления кнопки отмены выключения компа ?
2) При выставлении отключения по расписанию, он если не видит ТВ, то сразу вырубает комп, а нужно чтобы он вырубал только после повторного запроса когда не видно телека.
Т.Е. сейчас, когда я после включения компа через 4 минуты выключил телек, то уже через минуту комп стал вырубаться, и этот момент запроса по расписанию может происходить не вовремя, когда ещё телек не определился в сети, или когда он завис и перезагружается.
Нужно чтобы только если два запроса подряд не определялся телек, то тогда бы исполнялся скрипт.

Подправил скрипт в предыдущем последнем посте своём, чтобы команда выключения срабатывала со второго раза - если устройство выключено. Если будет включено - количество попыток в следующий раз будет опять две.

Подтверждаю слова d1mas, чтобы отменить запуск выключения, можно сделать ярлык, где вместо расположения объекта указать всего-лишь:

shutdown.exe /a

А название дать, например "Отмена выключения". И запускать этот ярлык, если появилось предупреждение о том, что компьютер будет выключен.

Также в скрипте выше я добавил параметр, чтобы время на отмену и завершение программ отводилось не 30 сек, а 1 минуту.
Там в скрипте вот этот вот участок:

ExecuteCmd("shutdown.exe /s /t 60 /f /d p:1:1"); // Выполнение команды выключения компьютера

где можно изменить ключ "/t 60" на своё значение. Это время в секундах, через которое будет выключатся комп и с которым будет окно предупреждение, мол "Через столько-то будет выключен свет".

а возможно сделать чтоб компьютер не отключался а уходил в режим ожидания Stanby.Что бы потом его можно было разбудить с телевизора!!!

Конечно можно. Можете сами зайти в редактирование скрипта и там заменить строчку:

ExecuteCmd("shutdown.exe /s /t 60 /f /d p:1:1");

на:

ExecuteCmd("rundll32 powrprof.dll,SetSuspendState Standby");

Должно сработать. Правда никакой таблички в этом случае не будет. Табличку с отчсчётом можно вывести только командой shutdown.
Можно этой командой выключить комп в режиме гибернации (вместо ключа /s использовать ключ /h):

ExecuteCmd('shutdown.exe /h /t 60 /f /d p:1:1 /c "Выключение компа из HMS"');

Где 60 - это количество секунд отображения окна с предупреждением, а текст после ключа /c это любой комментарий.

Можно, если написать такую программку, которая будет выскакивать и делать это и которую будет запускать скрипт из HMS.
А запуск shutdown.exe с параметром /t не устраивает, там тоже окошко вылазит с предупреждением, правда без DANGERS и мины, но с отсчетом секунд и потемнением монитора в конце (без взрыва).