|
Проверка запущенности программ
|
|
| zhukovnet | Дата: Вторник, 25 Января 2011, 19:45 | Сообщение # 1 |
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| Здравствуйте ув. форумчане!!!
У меня возник вопрос. Я делаю диск с тихими установками программ. И надо сделать так, чтобы авторан проверял запущены ли определённые процессы или нет... И если запущены - нужно чтобы выводился Wait bar... Я поискал по форуму, но ничего так найти и не смог...
Помогите чем можете... Подскажите как это реализовать самым простейшим образом?
|
| |
| |
| DEMBEL | Дата: Вторник, 25 Января 2011, 19:55 | Сообщение # 2 |
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
| ну сейчас подскажу...
Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
|
| |
| |
| zhukovnet | Дата: Вторник, 25 Января 2011, 21:08 | Сообщение # 3 |
|
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| DEMBEL, Буду премного благодарен!!! Добавлено (25 Январь 2011, 21:08)
---------------------------------------------
 А когда именно поступит ответ? Просто я хотел завершить этот авторан до завтрашнего утра...
|
| |
| |
| DEMBEL | Дата: Вторник, 25 Января 2011, 21:15 | Сообщение # 4 |
|
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
| прям щас поступит. я наковырял маленький скрипт (см. внутри), он кладет число 0/1 в файл, из которого читается в проект. если процесс с указанным именем запущен - 1, если нет - 0.
Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
|
| |
| |
| zhukovnet | Дата: Вторник, 25 Января 2011, 21:22 | Сообщение # 5 |
|
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| DEMBEL, Спасибо) Сейчас буду разбиратся)
|
| |
| |
| DEMBEL | Дата: Вторник, 25 Января 2011, 21:23 | Сообщение # 6 |
|
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
| если во время доступа к процессам будут ошибки в файл запишется ERROR
Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
|
| |
| |
| zhukovnet | Дата: Вторник, 25 Января 2011, 22:03 | Сообщение # 7 |
|
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| Спасибо, ну как я понимаю тут надо чтобы этот скрипт работал в цикле... То есть он должен выглядеть так:
Code cmd$='opera.exe'
Run("<Embedded>pcheck.vbe","cmd$")
file$=<Embedded>+'pcheck.txt'
str$=StrFromFile(file$,1,1)
If (str$='0') Then
Return()
Else
NextPage()
Return()
End
Но в таком виде всё-равно не хочет выполнятся цикл. После одной проверки он дальше не проверяет...
|
| |
| |
| DEMBEL | Дата: Вторник, 25 Января 2011, 22:22 | Сообщение # 8 |
|
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
| вы хотите постоянно мониторить запущен процесс или нет? вам может помочь соседняя тема про бесконечный скрипт. Используйте For... Infinity.
Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
|
| |
| |
| zhukovnet | Дата: Вторник, 25 Января 2011, 22:27 | Сообщение # 9 |
|
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| Спасибо, попробую...
|
| |
| |
| DEMBEL | Дата: Вторник, 25 Января 2011, 22:31 | Сообщение # 10 |
|
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
| Code cmd$='WAIT opera.exe'
file$=<Embedded>+'pcheck.txt'
For i=1 To Infinity
Run("<Embedded>pcheck.vbe","cmd$")
str$=StrFromFile(file$,1,1)
If (str$='1') Then
NextPage()
Break()
End
Next i будет крутить скрипт пока не запустите оперу. правда у меня с этим курсор моргает, постоянно то занят то не занят...
Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
|
| |
| |
| zhukovnet | Дата: Вторник, 25 Января 2011, 23:39 | Сообщение # 11 |
|
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| Спасибо, сейчас гляну... Добавлено (25 Январь 2011, 22:53)
---------------------------------------------
Спасибо огромное!!! Это то что нужно... Но как ещё записать такую же проверку но одновременно нескольких поцессов? Чесно признаюсь... Я в скриптах полный валенок.... Извините конечно за мою надоедливость... Добавлено (25 Январь 2011, 23:39)
---------------------------------------------
Хотя... я и так могу много чего придумать. Спасибо большое!!!
|
| |
| |
| DEMBEL | Дата: Среда, 26 Января 2011, 00:12 | Сообщение # 12 |
|
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
| одновременно нескольких это тоже можно... потом попробую.
Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
|
| |
| |
| zhukovnet | Дата: Среда, 26 Января 2011, 00:40 | Сообщение # 13 |
|
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| Я уже придумал как мне всё реализовать. Я ошибся. Я думал что некоторые программы когда устанавливаются - поочерёдно запускают процессы. То есть сначала распаковуются установочные файлы, распаковщик закрывается, и начинают запускатся уже распакованные установочные файлы. Я ошибся. Распаковщик остаётся открытым до полного завершения установки. Так что спасибо! Но проверку нескольких процесов мне уже не надо.
|
| |
| |
| DEMBEL | Дата: Среда, 26 Января 2011, 00:54 | Сообщение # 14 |
|
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
| ну так еще кому-нибудь сгодится.
Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
|
| |
| |
| zhukovnet | Дата: Четверг, 27 Января 2011, 00:35 | Сообщение # 15 |
|
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| Извините за нарушение правил, но просто думаю не стоит создавать новую тему, так как это также относится к этому же скрипту. Как сделать так чтобы после того как выполнилась программа, скрылся обьект, но не на этой-же странице? Воспользовался поиском по форуму, вроде тем по этому вопросу не создано... Помогите пожалуйста и в этом? буду очень благодарен!
|
| |
| |
| mishem | Дата: Четверг, 27 Января 2011, 00:40 | Сообщение # 16 |
Ветеран форума
Группа: Проверенные
Сообщений: 552
Репутация: 85
Награды: 12
Статус: Offline
| Или штатная команда HideObject. или плагин Петра.Quote (zhukovnet) Воспользовался поиском по форуму, вроде тем по этому вопросу не создано...
Дык грех создавать такую тему. 
Не хочешь читать хелп?  
Если хелп и форум не помогли, тогда все ответы здесь
|
| |
| |
| zhukovnet | Дата: Четверг, 27 Января 2011, 00:45 | Сообщение # 17 |
|
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| Штатная команда скрывает обьект на текущей странице, а как скрыть обьект на другой странице? Как указать на какой странице скрывать обьект? Добавлено (27 Январь 2011, 00:45)
---------------------------------------------
И что это за плагин?
|
| |
| |
| DEMBEL | Дата: Четверг, 27 Января 2011, 01:04 | Сообщение # 18 |
|
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
| mishem ты не по адресу чтобы выполнить действие над обьектом расположенным на другой странице нужно в командах указывать имя страницы перед именем обьекта, разделяя двойными точками: Hide("Page 1::Text") Hide("Master Page::Rectangle1")
Hide("Master Layer::Rectangle1")
Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
|
| |
| |
| mishem | Дата: Четверг, 27 Января 2011, 01:05 | Сообщение # 19 |
|
Ветеран форума
Группа: Проверенные
Сообщений: 552
Репутация: 85
Награды: 12
Статус: Offline
| Quote (mishem) mishem ты не по адресу
О блин, только после твоего поста обратил внимание. 
Не хочешь читать хелп?
Если хелп и форум не помогли, тогда все ответы здесь
Сообщение отредактировал mishem - Четверг, 27 Января 2011, 01:06 |
| |
| |
| zhukovnet | Дата: Четверг, 27 Января 2011, 01:23 | Сообщение # 20 |
|
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| DEMBEL, Что-то всё-равно не скрывается... Вроде и делаю как вы написали...
|
| |
| |
| DEMBEL | Дата: Четверг, 27 Января 2011, 03:01 | Сообщение # 21 |
|
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
| мда, если изменить видимость обьекта на 2 странице с первой, то при открытии 2 страницы видимость снова изначально заданная и кажется что толку нет... а с другими командами (типа loadtext) работает... мож Yuriy что подскажет, я с этим не сталкивался. Добавлено (27 Январь 2011, 03:01)
---------------------------------------------
изврат придумал, можно с первой страницы чтобы скрыть обьект установить для него флаг статуса (переменную) hideobject=0, а в стартовом скрипте второй страницы условие If (hideobject=0) Then
Hide("Text")
Else
Show("Text")
End чтоб показать переключить флаг на 1.
Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
|
| |
| |
| Alex3A | Дата: Четверг, 27 Января 2011, 03:23 | Сообщение # 22 |
Друг клуба ММВ
Группа: Проверенные
Сообщений: 2646
Репутация: 39
Награды: 11
Статус: Offline
| В пользу ищущих 
В командной строке, как прикрутить к ммв, перенаправить в файл, знаете.
qprocess - отображает информацию о процессах
tasklist - показывает процесы выполняемые в данный момент
В прищепке многа чего, копайтесь. палезна.
|
| |
| |
| DEMBEL | Дата: Четверг, 27 Января 2011, 03:29 | Сообщение # 23 |
|
Наш дизайнер
Группа: Модераторы
Сообщений: 2266
Репутация: 135
Награды: 32
Статус: Offline
| скажи лучше что сделать с show/hide обьекта с других страниц, он так и будет при открытии своей страницы возвращаться в первоначальный вид?
Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62
|
| |
| |
| Alex3A | Дата: Четверг, 27 Января 2011, 04:32 | Сообщение # 24 |
|
Друг клуба ММВ
Группа: Проверенные
Сообщений: 2646
Репутация: 39
Награды: 11
Статус: Offline
| Quote (DEMBEL) скажи лучше что сделать с show/hide обьекта с других страниц, он так и будет при открытии своей страницы возвращаться в первоначальный вид?
Так как ты и предлагал, объекты страницы доступны с самой страницы, в полном объеме.
Quote (DEMBEL) изврат придумал, можно с первой страницы чтобы скрыть обьект установить для него флаг статуса (переменную) hideobject=0, а в стартовом скрипте второй страницы условие |
| |
| |
| zhukovnet | Дата: Четверг, 27 Января 2011, 14:14 | Сообщение # 25 |
|
Новый участник
Группа: Пользователи
Сообщений: 11
Репутация: 0
Награды: 0
Статус: Offline
| Спасибо)) Получилось)) Теперь остался последний штрих и всё готово))
|
| |
| |
Все права защищены
