[решено] Wallpaper Engine как сделать отключение по времени

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Wallpaper Engine как сделать отключение по времени

:help: :dont-know ребят помогите есть прога Wallpaper Engine ставит видео на рабочий стол . но вот такой вопрос кто может написать батник чтоб она останавливалась через 1 минуту к примеру . вот пример батника wallpaper64.exe -control stop "C:\Program Files\Wallpaper Engine\wallpaper64.exe" . но он останавливает сразу а как тайминг всунуть мозга уже не хватает :sorry:

Цитата:

Цитата 11wulf22

но он останавливает сразу »

ну и прекрасно
примерно так получится что надо

Код:

start "" wallpaper64.exe

timeout /t 60

wallpaper64.exe -control stop "C:\Program Files\Wallpaper Engine\wallpaper64.exe"

11wulf22, alpap, Применяю идею alpap (запускаем программу скриптом, ждем некоторое время, запускаем программу с ключами для её остановки), предполагаю недовольство 11wulf22: "а как теперь скрыть окно CMD?" и предлагаю vbs-скрипт.

Код:

PRG = "C:\Program Files\Wallpaper Engine\wallpaper64.exe"



With CreateObject("WScript.Shell")

    Ret = .Run("""" + PRG + """ ", 1, False)

    WScript.Sleep 60000     'Милисекунды задержки

    Ret = .Run("""" + PRG + """  -control stop " + """" + PRG + """", 1, False)

End With

Полноценно не тестировал из-за наличия отсутствия программы.

Цитата:

Цитата 11wulf22

wallpaper64.exe -control stop "C:\Program Files\Wallpaper Engine\wallpaper64.exe" »

ИМХО, здесь один wallpaper64.exe лишний. Если это так, то выделенное красным
+ """" + PRG + """"
надо убрать.

Цитата:

Цитата alpap

ну и прекрасно
примерно так получится что надо
Код:
start "" wallpaper64.exe
timeout /t 60 »

да работает но окно убрать как то можно

Цитата:

Цитата megaloman

PRG = "C:\Program Files\Wallpaper Engine\wallpaper64.exe"
With CreateObject("WScript.Shell")
Ret = .Run("""" + PRG + """ ", 1, False)
WScript.Sleep 60000 'Милисекунды задержки
Ret = .Run("""" + PRG + """ -control stop " + """" + PRG + """", 1, False)
End With
Полноценно не тестировал из-за наличия отсутствия программы. »

не смог запустите это

да забыл уточнить прога сама стартует хотя это не критично принципе наверно

Цитата:

Цитата 11wulf22

не смог запустите это »

Сохраните код в файл с расширением .vbs, запускайте так же, как и .Bat. Приложил на всякий случай готовый файл, уберите только расширение .txt, чтобы осталось только .vbs

Цитата:

Цитата megaloman

предполагаю недовольство 11wulf22: "а как теперь скрыть окно CMD?" »

«Ты знал, ты знал!»™ :).

Цитата:

Цитата Iska

«Ты знал, ты знал!»™ . »

Цитата:

Цитата БАСЁ

Год за годом все то же:
Обезьяна толпу потешает
В маске обезьяны.

Цитата:

Цитата megaloman

Вложения
я210810out.vbs.txt
(302 байт, 0 просмотров) »

все спасибо все работает ток куку убрал