Windows PowerPro - [29] :: Программы :: Компьютерный форум Ru.Board

Цитата:

Вот возникла потребность написать скрипт, который пинговал хост, и когда пинг переставал проходить запускать определённые команды...

h**p://vg24.narod.ru/Ping.zip

Распаковать на диск С в папку Ping. В таймере y(игрек) на вкладке Reset прописываете
C:\ping\ping1.powerpro
В таймере z на вкладке Reset прописываете
C:\ping\ping2.powerpro
Оба таймера настраиваете на отсчет вниз
В таймере z в полях Reset hour, Reset minute, Reset second должны стоять нули
Таймер у запускаете с нужной вам периодичностью, но не меньше 1 минуты, и это на мой взгляд мало, но решать вам
Если пинг есть вылезет соответствуещее окошко, если нет - другое. Окошко не всегда получает фокус поэтому в обоих случаях прикрутил звук , лежит в архиве, должно быть разрешено проигрывание wav файлов в РР.
Для себя правите скрипт ping2, вместо *Message вставляете нужные вам команды
скрипты: ping1

Цитата:

Local h=win.getfocus
do("C:\\WINDOWS\\system32\\cmd.exe",?+/c "C:\ping\ping.exe www.google.com > C:/ping/ping.txt"+,"c:\\","hidden")
if (win.exists(h))
win.setfocus(h)
*Timer Set +z 0 0 45

ping2

Цитата:

Exec.OnError("none")
Exec.OnError("hook")
Local l7="C:/ping/ping.txt" readline 7
Local l9="C:/ping/ping.txt" readline 9
Local l11="C:/ping/ping.txt" readline 11
Local l13="C:/ping/ping.txt" readline 13
l7 =select (l7, 5)
l9 =select (l9, 5)
l11=select (l11, 5)
l13=select (l13, 5)
if ((l7 == "Reply") or (l9 == "Reply") or (l11 == "Reply") or (l13 == "Reply")) do
    *Message "Есть Ping"
    "C:/Ping/wait.wav"
else
    *Message "Нет Ping'а"
    "C:/Ping/wait.wav"
endif
Exec.OnError("unhook")
Exec.OnError("display")

Кроме этого создаете командный список "HookErrors"
именно такое название, забиваете 3 команды в левой кнопке, 1 команда на кнопу

*Script Quit "all"
Exec.OnError("unhook")
Exec.OnError("display")
1-ю команду не вписывайте, а введите с помощью списка,
вроде все
Данный скрипт использует встроенную команду винды ping.exe, используется английская версия, если у вас локализованная винда в архиве лежит нужная.
Есть один недостаток. Вовремя запуска пинга активное приложение теряет фокус па пару секунд.
пока все, устал...
Уже пофиксено.

Добавлено:
Первый скрипт лучше оставить так

Цитата:

do("cmd.exe",?+/c "C:\ping\ping.exe www.google.com > C:/ping/ping.txt"+,"c:\\","hidden")
*Timer Set +z 0 0 45

Адрес или IP вписываете свой
обе команды можно встаить прямо в таймер
И если при наличии пинга вы уберете вывод сообщения из второго скрипта, у вас перестанут прыгать окна

Добавлено:
чтобы гарантированно увидеть Message надо сделать следующее:
создайте новый ком. список
создайте новый пункт с названием "PowerPro Message" без кавычек и введите команду
*Window Ontop! "PowerPro Message"
Затем на вкладке Command lists нажать setup, вкладка Special Lists найдите в выпадающем списоке Open тот ком список который вы создали и жмите ОК
соответственно те кто знаком с этой фичей и используют ее, знают что нужно подправить у себя

Я в этом сообщении периодически кое что правил, так что текст скриптов брать здесь, файл ping.exe ну звук, если он вам нужен в архиве на верху поста

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57