» Windows PowerPro

NORIO
А у меня теперь тоже Это Spyware Doctor мешал.

Хочу совместить крон и ppro.
Но есть проблема, у меня не получается запустить ppro cкрипт из крона
Помогите это сделать плиз!

Поделитесь файлом настроек программы: pproconf.pcf, для образца и науки, заранее благодарю.

А тут (не знаю - было/не было) флешовые ролики для начинающих о всяких фенечках PowerPro...

Цитата:

А тут (не знаю - было/не было) флешовые ролики для начинающих о всяких фенечках PowerPro...

подскажите плз, как этот flash с форматом wnk работает. а то кроме черного пятна у меня ничего нет. спасибо

kadom
Ну вообще-то он должен воспроизводиться на macromedia flash плеере, как отдельном так и flash плагином браузера, так как этот формат(специальный презентационный файл делается в программе Wink) предназначен для воспроизведения именно такими способами. Так что получается, что либо файл некорректный, либо версия твоего flash плеера его не поддерживает.

NORIO
спасибо помогла наводка на программу
Wink установил все заработало http://download.softpedia.com/software/multimedia/wink15.zip

Хотел поинтересоваться у уважаемого ALL-а проблемой совместимости сабжа с прочими утилями. Дело в том, что в качестве переключателя рус/eng раскладок клавы я юзаю Switch It! и само переключение осуществляется однократным нажатием Ctrl-а(левого или правого). Удобно! Но вот при запуске PowerPro данный функционал вырубается напрочь. Т.е. нажатие на Ctrl перехватывается уже именно последним и, судя по всему, дальше не пропускается, даже не смотря на то, что у меня в конфиге нет операций ассоциированных с однократным нажатием этой клавиши. Вы как такой трабл разруливаете?

Spark
А какая версия ppro?

NORIO
Дык последняя вроде, PowerPro 4.3. Это важно?

Добавлено:
Кстати, подумалось мне... Может PowerPro и клавиатурный переключатель заменить может?? Ведь смена раскладки - суть системная функция, раз сама винда умеет это делать сразу после инсталла. Так почему нет?

Если`б небыло важно, то я бы не спросил.

У меня обе программы работают совместно и полнофункицонально.
ppro 4.3.10
swithit 2.1

Значит багообразный конфликт.

Лёгких способов решения, думаю нет.
Про переустановку думаю сам знаешь(хотя это мне помогло вернуть функциональность F11), но это врядли тебе поможет.

Остаётся это сделать через dll плагин, довольно трудное занятие.
Нужно знать API и знание как его использовать.

Добавлено:
Да кстати есть ещё 4.4
Может с ней повезёт?

NORIO

Цитата:

Значит багообразный конфликт

Да, точно... Уже и сам установил. В Повер был заведен хот-кей на двойное нажатие контрола. Вот он и тупил - не пропускал однократный нажим. Без такого хота - все работает. Но уже хочется большего.

А по-поводу "легкого" решения заюзать ПоверПро в качестве переключалки... Винда умеет переключаться между раскладками и делает это не плохо. Другой вопрос, что комбинации клавиш, предлагаемые ею для этого дела - просто песня, типа Ctrl+Shift+0. Супер, все в восторге. Так вот - тема такая. Сказать Повер-у, что бы он однократное нажатие на Ctrl транслировал в систему как вот то уродское сочетание 3х клавиш. И будет счастье. И можно будет еще одну утилиту сносить. По-моему - должно сработать, нет?

На один контрол легко
keys {control}{shift}o{shift}{control}

зажатие имитируется следующим образом
{control}c{control}


с двумя сложнее(работает в 2k\xp)

VK = virtual key
Scan = scan code
ext = extended

выбери enter virtual key
попробуй найти своё счастье, подставляя значения в соответствующие поля (в скобках десятичное значение)
===========================================================
ext Scan VK or VK

1D(29) 11(17) or A2(162) LeftCtrl
E0 1D(29) 11(17) or A3(163) RightCtrl
============================================================

;преключение в русский
if(win.getlanguage("active") == "1049")do
quit
else
keys {control}{shift}o{shift}{control}
endif
quit
---------------------------------------------------
;преключение в английский
if(win.getlanguage("active") == "1033")do
quit
else
keys {control}{shift}o{shift}{control}
endif
quit

если неполучится то надо юзать keytrap

Цитата:

зажатие имитируется...

Что есть "зажатие"? Т.е. как будто мы нажали Ctrl и не отпускаем его?


Цитата:

выбери enter virtual key

Ага, буду пробовать, спасибо!(У меня WinXP). Но уже виден большо-о-о-й недостаток. Дело в том, что винда переключает локаль только для активного окна. Т.е. - у нас два окна - броузер и файл-менеджер. Изначально оба в англ. Допустим мы броузерим и нажимаем Ctrl+Shift+1(сочетания для перевода клавы в русс.). Теперь в броузере все нажатия на клавиши будут отображаться в русском. Выносим на передний план менеджер. В нем клавиатура по прежнему английская. В принципе, для определенного стиля работы это может быть и гуд. Для меня - однозначный бэд. А вот Switch It! умеет переключать локаль для ВСЕХ запущенных(и тех, что будут запускаться) приложений разом. То бишь переключение становится как бы системным. Хотя на самом деле вот такого WinAPI попросту нет. Ибо все низкоуровневые функции изменяют KeyboardLayout только для текущего процесса. Вот этот изыск, боюсь, ПоверПро уже не потянет... даже со всеми плагами сторонними не потянет...

Переключение для всех окон теоретически можно устроить кривым способом но врядли это будет хорошим решением.
То есть для этоого надо переактивировать все видимвые окна и поставить в них нужную одинаковую расскладку. Но это лажово.

Spark

Цитата:

А вот Switch It! умеет переключать локаль для ВСЕХ запущенных(и тех, что будут запускаться) приложений разом. То бишь переключение становится как бы системным. Хотя на самом деле вот такого WinAPI попросту нет. Ибо все низкоуровневые функции изменяют KeyboardLayout только для текущего процесса. Вот этот изыск, боюсь, ПоверПро уже не потянет... даже со всеми плагами сторонними не потянет...

Похоже тут применена военная хитрость.

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

Добавлено:
Так что ppro должен "потянуть"

NORIO

Цитата:

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

Почти не сомневаюсь в том же алгоритме. Кстати, начинаю потихоньку "въезжать" во всю МОЩЬ ПоверПро. Есть ощущение, что при наличии... достаточной фантазии на нем можно изобразить ДАЖЕ такое - смена языка окна при получении последним фокуса клав. ввода. Правда это все пока только на уровне ощущений, теорий...


Цитата:

Так что ppro должен "потянуть"

Как раз, что я написал выше...

Ну да, верно. Например на его скрипте я сделал проверялку обновлений веб страниц.
Он проверяет изменения и в определённом месте страницы и сообщает об этом.
Работает безошибочно.
---
Настройщик момеда.
---
Фича типа часов показывает срок в днях часах и минутах до какого нибудь
окончания срока чегонибудь(дэдлайна).
---
Ну и немало других маленьких но полезных фич.

Та можно многое была б необходимость и желание.

Ну а если его комбинировать с другими прогами особенно с кроном то возможности и надёжность увеличиваются на несколько порядков.
Вот подумываю для ppro сделать такойже "непотопляемый" режим как у крона на основе того же крона, но пока что лень

NORIO

Цитата:

Ну да, верно. Например на его скрипте я сделал проверялку обновлений веб страниц.
Он проверяет изменения и в определённом месте страницы и сообщает об этом.
Работает безошибочно.

Можно на код глянуть?

Без проблем. Но только глянуть, работать не будет так как ориентирован на конкретные условия.

Cоветую смотреть с помощью подвсветки синтаксиса.
редактор
файл синтаксиса
в противном случае будет рудно разобраться.

Будут вопросы, спрашивай.

[more=Скрипт...]
/////////////////////////////////////////////////////////////////////////////////////////////////////
; скрипт проверки обновлений


; проверка разрешено ли соединение

if(toggle_for_checkupdate == "off")do

    quit

elseif(dialupname == "isp") and (modem == "1")do

    quit

elseif(dialupname != "") and (modem == "0")do

    quit

elseif(dialupname != "") and (modem == "1")do

    quit
endif

; сброс переменных


cntr = "xx"
counter2 = "xx"
END_e = "xx"
END_i = "xx"
E_checkdata = "xx"
E_COMPLETED = "xx"
e_DATA = "xx"
E_file = "xx"
E_fl_size = "xx"
E_log_data = "xx"
E_log_result = "xx"
E_message = "xx"
E_PHRASE = "xx"
E_sHABLON = "xx"
E_srch_result = "xx"
I_checkdata = "xx"
I_COMPLETED = "xx"
i_DATA = "xx"
I_file = "xx"
I_fl_size = "xx"
I_log_data = "xx"
I_log_result = "xx"
I_message = "xx"
i_PHRASE = "xx"
i_SHABLON = "xx"
I_srch_result = "xx"
mpDlgCaption = "xx"
mpDlgText = "xx"
report = "xx"
sOutput = "xx"
START_e = "xx"
START_i = "xx"
sum_COMPLETED = "xx"
ini_save = "xx"
reg_save = "xx"
AFD_INI = "xx"
START_ini_strng = "xx"
END_ini_word = "xx"
ini_WORD = "xx"
workin_ini = "xx"
recover_reg = "xx"
recover_ini = "xx"



; соединение



;                 проверка состояния соединения

cntr = "0"

@redial
if(cntr == "1")do
*bar show checkupdate
MiscPlugin.Sleep("1")
cl.SetLabel("checkupdate", 0, "")
cl.SetLabel("checkupdate", 2, "")
cl.SetLabel("checkupdate", 4, "")
MiscPlugin.Sleep("1")
cl.SetWidth("checkupdate", 0, 1)
MiscPlugin.Sleep("1")
cl.SetHeight("checkupdate", 0, 1)
cl.SetHeight("checkupdate", 2, 1)
cl.SetHeight("checkupdate", 4, 1)
MiscPlugin.Sleep("1")
cl.SetTextColor("checkupdate", 0, 12632256 )
cl.SetTextColor("checkupdate", 2, 12632256 )
cl.SetTextColor("checkupdate", 4, 12632256 )
MiscPlugin.Sleep("1")
cl.SetBackColor("checkupdate", 0, 12632256)
cl.SetBackColor("checkupdate", 2, 12632256)
cl.SetBackColor("checkupdate", 4, 12632256)
MiscPlugin.Sleep("1")
win.ontop("checkupdate")
MiscPlugin.Sleep("1")
cl.refresh("checkupdate")
MiscPlugin.Sleep("1")
win.move("checkupdate",1,836)
MiscPlugin.Sleep("10")
cl.refresh("checkupdate")
*bar hide checkupdate
jump dialer_hangup_wait
endif
;                                     ONLINE переход к скачиванию

if(dialupname != "isp") and (modem == "1")do
message 5 online *takefocus
do("c:\\Program Files\\nnCron\\manualhang.lnk")
jump script2

;                                     OFFLINE

elseif(modem == "0") and (dialupname != "")do
    message 5 some connection active *takefocus
    quit
endif

; сохранение и устаноывка параметров модема и диалера


;                                                                                получить
reg_save = reg.get_string(?"HKLM\System\CurrentControlSet\Services\Class\Modem\0000\UserInit")
ini_save = file.readall("c:\\Program Files\\alexdialer\\afd.ini")

;                                                                                сохранить

file.writeall("d:\\checkupdate_reg.tmp",reg_save)
file.writeall("d:\\checkupdate_dialer_ini.tmp",ini_save)
MiscPlugin.Sleep("10")
;                                                                                установить

reg.set_string(?"HKLM\System\CurrentControlSet\Services\Class\Modem\0000\UserInit" , "at+MS=11,1,300,33600,,,33600 s6=1 s7=50 s8=1 s10=14 &p1 s91=15 m0")
AFD_INI = file.readall("c:\\Program Files\\alexdialer\\afd.ini")
START_ini_word = index(AFD_INI,"RedialWhenHangUp=")
END_ini_word = START_ini_word + 17
ini_WORD = select(AFD_INI,START_ini_word,END_ini_word)
workin_ini = replacechars(AFD_INI,ini_WORD,"RedialWhenHangUp=0")
file.writeall("c:\\Program Files\\alexdialer\\afd.ini",workin_ini)


;                                                    дозвон

;                                     сообщение о дозвоне
*BAR SHOW CHECKUPDATE
MiscPlugin.Sleep("1")
cl.SetLabel("checkupdate", 0, "dialing")
MiscPlugin.Sleep("1")
cl.SetWidth("checkupdate", 0, 50)
MiscPlugin.Sleep("1")
cl.SetHeight("checkupdate", 0, 30)
MiscPlugin.Sleep("1")
cl.SetTextColor("checkupdate", 0, 0 )
MiscPlugin.Sleep("1")
cl.SetBackColor("checkupdate", 0, 65535 )
MiscPlugin.Sleep("1")
win.ontop("checkupdate")
MiscPlugin.Sleep("1")
cl.refresh("checkupdate")
MiscPlugin.Sleep("1")
win.move("checkupdate",0,838)
MiscPlugin.Sleep("10")
cl.refresh("checkupdate")
;                         разрыв соедиения на всякий случай

    DO("c:\\Program Files\\PowerPro\\dunhang.exe","*","c:\\Program Files\\PowerPro\\","hidden")
    window.close_("*Connect To*")

;                                          дозвон

    DO("c:\\Program Files\\PowerPro\\dundial.exe","isp login pass","c:\\Program Files\\PowerPro\\","hidden")
MiscPlugin.Sleep("50")
    wait.for(40000 , modem == "1")

if(modem == "1")do
    do("c:\\Program Files\\nnCron\\manualhang.lnk")
jump script2


elseif(modem == "0")do


*bar show checkupdate
MiscPlugin.Sleep("1")
cl.SetLabel("checkupdate", 0, "redial")
MiscPlugin.Sleep("1")
cl.SetWidth("checkupdate", 0, 50)
MiscPlugin.Sleep("1")
cl.SetHeight("checkupdate", 0, 30)
MiscPlugin.Sleep("1")
cl.SetTextColor("checkupdate", 0, 0 )
MiscPlugin.Sleep("1")
cl.SetBackColor("checkupdate", 0, 13553407)
MiscPlugin.Sleep("1")
win.ontop("checkupdate")
MiscPlugin.Sleep("1")
cl.refresh("checkupdate")
MiscPlugin.Sleep("1")
win.move("checkupdate",0,838)
cl.refresh("checkupdate")

DO("c:\\Program Files\\PowerPro\\dunhang.exe","*","c:\\Program Files\\PowerPro\\","hidden")
window.close_("*Connect To*")
        counter2 = "0"
        @handupwait
            if(counter2 == "100")do
                message 5 time exceeded *takefocus
                quit
elseif(dialupname == "")do
;             счётчик
                cntr = cntr + 1
                jump redial
            elseif(dialupname != "")do
MiscPlugin.Sleep("100")
    counter2 = counter2 + 1
        jump handupwait
            endif


endif

; скрипт 2
@script2

; скачивание .


; сообщение о скачивании
*bar show checkupdate
MiscPlugin.Sleep("1")
cl.SetLabel("checkupdate", 0, "transfer")
MiscPlugin.Sleep("1")
cl.SetWidth("checkupdate", 0, 50)
MiscPlugin.Sleep("1")
cl.SetHeight("checkupdate", 0, 30)
MiscPlugin.Sleep("1")
cl.SetTextColor("checkupdate", 0, 0 )
MiscPlugin.Sleep("1")
cl.SetBackColor("checkupdate", 0, 16252137 )
MiscPlugin.Sleep("1")
win.ontop("checkupdate")
MiscPlugin.Sleep("1")
cl.refresh("checkupdate")
MiscPlugin.Sleep("1")
win.move("checkupdate",0,838)
cl.refresh("checkupdate")
; очистка переменных
sum_COMPLETED = "0"
I_COMPLETED = "0"
E_COMPLETED = "0"

file.delete("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\e.htm")
file.delete("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\i.htm")

file.runcallback("0", "I_COMPLETED = 1", "c:/Program Files/PowerPro/SCRIPTS/checkupd/wget.exe", "-o i.log -O i.htm http://idealab.ru", "c:/Program Files/PowerPro/SCRIPTS/checkupd/","hidden")
MiscPlugin.Sleep("10")
file.runcallback("0", "E_COMPLETED = 1", "c:/Program Files/PowerPro/SCRIPTS/checkupd/2wget.exe", "-o e.log -O e.htm http://e-generator.ru", "c:/Program Files/PowerPro/SCRIPTS/checkupd/","hidden")

; ожидание завершения процесса


@load
    if(sum_COMPLETED == "2")do
jump loadexit
    elseif(sum_COMPLETED != "2")do
    endif

MiscPlugin.Sleep("100")
sum_COMPLETED = I_COMPLETED + E_COMPLETED
jump load

@loadexit

;====================вызов скрипта проверки файлов
*bar show checkupdate
MiscPlugin.Sleep("1")
cl.SetLabel("checkupdate", 0, "")
cl.SetLabel("checkupdate", 2, "")
cl.SetLabel("checkupdate", 4, "")
MiscPlugin.Sleep("1")
cl.SetWidth("checkupdate", 0, 1)
MiscPlugin.Sleep("1")
cl.SetHeight("checkupdate", 0, 1)
cl.SetHeight("checkupdate", 2, 1)
cl.SetHeight("checkupdate", 4, 1)
MiscPlugin.Sleep("1")
cl.SetTextColor("checkupdate", 0, 12632256 )
cl.SetTextColor("checkupdate", 2, 12632256 )
cl.SetTextColor("checkupdate", 4, 12632256 )
MiscPlugin.Sleep("1")
cl.SetBackColor("checkupdate", 0, 12632256)
cl.SetBackColor("checkupdate", 2, 12632256)
cl.SetBackColor("checkupdate", 4, 12632256)
MiscPlugin.Sleep("1")
win.ontop("checkupdate")
MiscPlugin.Sleep("1")
cl.refresh("checkupdate")
MiscPlugin.Sleep("1")
win.move("checkupdate",1,836)
MiscPlugin.Sleep("10")
cl.refresh("checkupdate")
*bar hide checkupdate
jump script3

; скрипт 3
@script3

; ПРОВЕРКА СКАЧАННЫХ ФАЙЛОВ .


; e-generator .

E_fl_size = file.size("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\e.htm")
E_log_data = file.readall("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\e.log")
E_log_result = index(E_log_data,"error")

;                                                         файл нулевой

if(E_fl_size == "0")do
    E_checkdata = "error"
;                                                          файл неполный
elseif(E_fl_size != "0") and (E_log_result != "0")do
E_file = file.readall("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\e.htm")
E_srch_result = index(E_file,"(Идей:")


; файл неполный и непригоден для проверки
    iF(E_srch_result == "0")do
E_checkdata = "error"

; файл неполный но пригоден для проверки
    elseif(E_srch_result != "0")do
E_checkdata = "ok"

    endif


;                                                              файл здорофф
elseif(E_fl_size != "0") and (E_log_result == "0")do
E_checkdata = "ok"

endif




; idealab

I_fl_size = file.size("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\i.htm")

I_log_data = file.readall("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\i.log")

I_log_result = index(I_log_data,"error")

;                                                          файл нулевой
if(I_fl_size == "0")do
    I_checkdata = "error"
;                                                         файл неполный
elseif(I_fl_size != "0") and (I_log_result != "0")do

I_file = file.readall("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\i.htm")
I_srch_result = index(I_file,"</div><table><tr><td></td></tr></table><div")

; файл неполный и непригоден для проверки
    IF(I_srch_result == "0")do
I_checkdata = "error"

; файл неполный но пригоден для проверки
    elseif(I_srch_result != "0")do
I_checkdata = "ok"
    endif

;                                                         файл здоров
elseif(I_fl_size != "0") and (I_log_result == "0")do
I_checkdata = "ok"
endif
; переход к проверки на обновление
jump script4

; скрипт 4
@script4


; проверка обновлений


if(E_checkdata == "ok")do


; проверка e-generatora

; назначем текст в переменную

e_DATA = file.readall("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\e.htm")

; ищем начало обновлённого элемента

START_e = index( e_DATA ,"<p class=box><b>заказчик:</b>")

START_e = START_e + 29

; ищем окончание обновлённого элемента

END_e = index( e_DATA ,"(Идей:")

END_e = END_e - 1

; берём фразу

E_PHRASE = select (e_DATA,START_e,END_e)

; сравниваем с фразой из шаблона

E_sHABLON = file.readall("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\e.shablon")

    if(E_PHRASE == E_sHABLON)do

        E_message = "обновлений нет"

    elseif(E_PHRASE != E_sHABLON)do

        E_message = "обновления есть"

        file.writeall("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\e.shablon" ,E_PHRASE)
    endif



elseif(E_checkdata == "error")do

E_message = "ошибка"

endif


if(I_checkdata == "ok")do

; проверка idealab

; назначаем текст в переменную


i_DATA = file.readall("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\i.htm")

; ищем начало обновлённого элемента

START_i = index (i_DATA,"<table width=90%><tr><td>")
START_i = START_i + 32

; ищем окончание обновлённого элемента

END_i = index(i_DATA,"</div><table><tr><td></td></tr></table><div")
END_i = END_i - 1

; берём фразу

i_PHRASE = select(i_DATA,START_i,END_i)

;=================== сравниваем с шаблоном

i_SHABLON = file.readall("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\i.shablon")

    if(i_PHRASE == i_SHABLON)do

        I_message = "обновлений нет"

    elseif(i_PHRASE != i_SHABLON)do

        I_message = "обновления есть"
        file.writeall("c:\\Program Files\\PowerPro\\SCRIPTS\\checkupd\\i.shablon", i_PHRASE)

    endif




elseif(I_checkdata == "error")do

I_message = "ошибка"

endif

*bar hide checkupdate
;                                                                                                        ошибка

if(E_message == "ошибка") or (I_message == "ошибка")do

     E_err_nfo = ""
     I_err_nfo = ""

     if(E_message == "ошибка")do
     E_err_nfo = "e-gen"
     endif

if(I_message == "ошибка")do
     I_err_nfo = "idealab"
     endif

*bar show checkupdate
MiscPlugin.Sleep("1")
cl.SetLabel("checkupdate", 0, "error")
cl.SetLabel("checkupdate", 2, E_err_nfo)
cl.SetLabel("checkupdate", 4, I_err_nfo)
MiscPlugin.Sleep("1")
cl.SetWidth("checkupdate", 0, 50)
MiscPlugin.Sleep("1")
cl.SetHeight("checkupdate", 0, 8)
cl.SetHeight("checkupdate", 2, 10)
cl.SetHeight("checkupdate", 4, 12)
MiscPlugin.Sleep("1")
cl.SetTextColor("checkupdate", 0, 16777215 )
cl.SetTextColor("checkupdate", 2, 0 )
cl.SetTextColor("checkupdate", 4, 0 )
MiscPlugin.Sleep("1")
cl.SetBackColor("checkupdate", 0, 230)
cl.SetBackColor("checkupdate", 2, 13553407)
cl.SetBackColor("checkupdate", 4, 13553407)
MiscPlugin.Sleep("1")
win.ontop("checkupdate")
MiscPlugin.Sleep("1")
cl.refresh("checkupdate")
MiscPlugin.Sleep("1")
win.move("checkupdate",1,836)
MiscPlugin.Sleep("10")
cl.refresh("checkupdate")
endif


;                                          обновления есть
if(E_message == "обновления есть") or (I_message == "обновления есть")do

     E_upd_nfo = ""
     I_upd_nfo = ""

     if(E_message == "обновления есть")do
     E_upd_nfo = "e-generator"
     endif

     if(I_message == "обновления есть")do
     I_upd_nfo = "idealab"
     endif



report = E_upd_nfo ++ I_upd_nfo
message &(report)
DO("c:\\Мои документы\\03nov_2102.mp3")
endif


; завершение и ожидание завершения
distance = "off"

if(dialupname != "isp") and (modem == "1")do
    quit
else
    DO("c:\\Program Files\\PowerPro\\dunhang.exe","*","c:\\Program Files\\PowerPro\\","hidden")
    window.close_("*Connect To*")

        counter3 == "0"
    @handupwait2
if(dialupname == "") and (mode == "0")do
                jump handupwaitEXIT2
elseif(counter3 == "500")do
                jump handupwaitEXIT2
        elseif(dialupname != "")do
MiscPlugin.Sleep("100")
    counter3 = counter3 + 1
    jump handupwait2
        endif
@handupwaitEXIT2
endif
; ожидание завершения раюоты диалера
@dialer_hangup_wait

if("&-Dial" == MiscPlugin.Get_WindowText("Alexf Dialer" ,4 ,"win=all" , "pump=1"))do
    jump dialer_hangup_wait_exit
endif
MiscPlugin.Sleep("500")
jump dialer_hangup_wait

    @dialer_hangup_wait_exit
MiscPlugin.Sleep("1000")
; востстановление параметров


recover_ini = file.readall("d:\\checkupdate_dialer_ini.tmp")
MiscPlugin.Sleep("100")
recover_reg = file.readall("d:\\checkupdate_reg.tmp")
;установить


file.writeall("c:\\Program Files\\alexdialer\\afd.ini" , recover_ini)
reg.set_string(?"HKLM\System\CurrentControlSet\Services\Class\Modem\0000\UserInit" , recover_reg)

;установить
MiscPlugin.Sleep("200")
recover_ini = file.readall("d:\\checkupdate_dialer_ini.tmp")
file.writeall("c:\\Program Files\\alexdialer\\afd.ini" , recover_ini)

MiscPlugin.Sleep("200")
file.writeall("c:\\Program Files\\alexdialer\\afd.ini" , recover_ini)




; очистка переменных





cntr = ""
counter2 = ""
END_e = ""
END_i = ""
E_checkdata = ""
E_COMPLETED = ""
e_DATA = ""
E_file = ""
E_fl_size = ""
E_log_data = ""
E_log_result = ""
E_message = ""
E_PHRASE = ""
E_sHABLON = ""
E_srch_result = ""
I_checkdata = ""
I_COMPLETED = ""
i_DATA = ""
I_file = ""
I_fl_size = ""
I_log_data = ""
I_log_result = ""
I_message = ""
i_PHRASE = ""
i_SHABLON = ""
I_srch_result = ""
mpDlgCaption = ""
mpDlgText = ""
report = ""
sOutput = ""
START_e = ""
START_i = ""
sum_COMPLETED = ""
ini_save = ""
reg_save = ""
AFD_INI = ""
START_ini_strng = ""
END_ini_word = ""
ini_WORD = ""
workin_ini = ""
recover_reg = ""
recover_ini = ""

quit
////////////////////////////////////////////////////////////////////////////////////////////////////
[/more]

NORIO
А тогда не подскажете... Есть у Повера встроенное условие "При активации окна делать<моя_задача>"? Точно знаю, что можно сделать такое, когда окно данного приложения(например окно IE) впервые появляется на десктопе. А вот если оно просто выносится вперед мышой или по Alt+Tab?


Цитата:

Ну а если его комбинировать с другими прогами особенно с кроном

Кстати, а я с крона(2 года просидел) переезжаю на Повер... Такое ощущение, что последний ГОРАЗДО мощнее и гибче в настройках. И гораздо благодарнее в плане написания собственных задач. Все-таки Форт(яз. прогр. своих задач на Кроне) это... как бы.. ну, не покатил мне, короче... Синтаксис еще тот - без стакана не разобраться, а со стаканом - быстрей сопьешься, чем чего путное изобразишь... А зачем вообще Повер с Кроном скрещивать? Неужто последний может что-то, что не может первый?

NORIO

Цитата:

Без проблем. Но только глянуть, работать не будет так как ориентирован на конкретные условия.

Cоветую смотреть с помощью подвсветки синтаксиса.
редактор
файл синтаксиса
в противном случае будет рудно разобраться.

Будут вопросы, спрашивай.

Скрипт...

Спасибо. Глянул. Немного не то что я думал, но спасибо - очень поучительно глянуть на плод чужого труда. У меня на написание такого терпения не хватило бы

а возможно ли в расписании pp сделать так, чтобы он выводил комп из ждущего режима, как умеет делать это виндовозный Планировщик задач??

Spark

Цитата:

А тогда не подскажете... Есть у Повера встроенное условие "При активации окна делать<моя_задача>"?

Условия нет. Но можно сделать так.

Код:
local var = "0"
@loop
var = caption
wait.for(caption != var)
;нужное тебе действие, когда происходит переключение на какое либо окно
wait.for("100")
jump loop

Я думаю, что вполне можно научить PP создавать задание для стандартного виндозного планировщика - а он умеет будить комп

Да зачем трудиться лишний раз если это легко можно сделать тем же кроном. Тем более что любую его задачю можно запустить ярлыком.

Мне вот ставить крон и разбираться в нем ленивее чем попробовать обойтись тем что под рукой
Хотя пожалуй если припечет, то буду разбираться

Просто пока что я в Планировщике имею одну задачу - будильник на 08 утра. А всё остальное своим путем

Может кто подскажет как сделать кнопку при нажатии на которую выпадало меню быстрого запуска?
Ставлю *Menu Folder, указываю нужную мне папку с ссылками, но при нажатии на них ничего не происходит.

Подкиньте для науки файлик настроек программы: pproconf.pcf, Благодарю.

ror1
Ты не одинок! Я тоже хочу!

ror1,
Kolik
Выслал. Только надо как минимум все пути E:\ заменить на ваши (скорее всего, C:\)