ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / НАйти и включить процесс
12 сообщений из 12, страница 1 из 1
НАйти и включить процесс
    #34058524
Kifir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kifir
Гость
Всем добрый вечер! Помогите решить задачу. У меня стоит прога secretmaker.exe - закрытие баннеров. Как сделать, чтобы как только процесс secretmaker.exe выключили, его сного запустить. Вернее как мне проверить запущен ли у меня secretmaker.exe, если нет то немедленно запустить.
...
Рейтинг: 0 / 0
16.10.2006, 20:00
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34058938
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Например средствами WMI или API проверять список процессов каждые n-ый промежуток времени и если нет этого процесса запускать его, через планировщик задач например и т.д. и т.п.
...
Рейтинг: 0 / 0
17.10.2006, 08:44
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34061194
Kifir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kifir
Гость
Конечно лучше через API, если у кого то есть пример, просьба выложить его сюда.
...
Рейтинг: 0 / 0
17.10.2006, 17:38
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34061343
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
SetTimer, ShellExecute, KillTimer?
Либо запускать ваш secretmaker через WaitForSingleObject.
...
Рейтинг: 0 / 0
17.10.2006, 18:07
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34061572
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Запускаешь secretmaker.exe при входе пользователя
Запускаешь скрипт

Windows2003FAQv1.1.0.chm
Код: plaintext
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.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

'Set colMonitoredProcesses = objWMIService. _        
'    ExecNotificationQuery("select * from __InstanceCreationEvent" _ 
'        & " within 1 where TargetInstance isa 'Win32_Process'")

Set colMonitorProcessesd = objWMIService.ExecNotificationQuery _
 ("SELECT * FROM __InstanceDeletionEvent " & _ 
 "WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' ")

i =  0 

Do While i =  0 

    Set objLatestProcessd = colMonitorProcessesd.NextEvent

    If objLatestProcessd.TargetInstance.Name = "secretmaker.exe" Then

	Wscript.Echo "Программу вырубили!"
        ' запускаешь ее снова здесь
        ' ну не помню я WMI
        ' можешь просто Run'ом

    End If

Loop
Типа того
...
Рейтинг: 0 / 0
17.10.2006, 19:12
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34064983
Kifir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kifir
Гость
Спасибо за скрипт!!! Респект!
только в vbs я не шарю, а вот этот код не запускает secretmaker.exe
Как правильно запустить?
Пытался перевести в vb, но выскакивает ошибка об отключение объекта(мол перенесите его)
Код: plaintext
1.
2.
3.
4.
5.
Option Explicit
Dim objWsShell
Set objWsShell=WScript.CreateObject("WScript.Shell")
objWsShell.Run "C:/Program Files/Secretmaker/secretmaker.exe" 'или objWsShell.Run "папка.exe"
Set objWsShell=Nothing
Буду очень признателен если код который привел AndreTM будет переведен в VB
...
Рейтинг: 0 / 0
18.10.2006, 20:26
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34065460
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Например:
Код: plaintext
1.
2.
3.
4.
5.
Sub Test
    Dim objWsShell As Object
    Set objWsShell = CreateObject("WScript.Shell")
    objWsShell.Run "C:/WINDOWS/notepad.exe"
    Set objWsShell = Nothing
End Sub
...
Рейтинг: 0 / 0
19.10.2006, 09:05
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34067139
Kifir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kifir
Гость
Странно, данный код вызывает ошибку типо данный файл не найден.
Код: plaintext
1.
2.
3.
4.
5.
  Dim objWsShell
    Set objWsShell = CreateObject("WScript.Shell")
objWsShell.Run "C:\Program Files\Secretmaker\secretmaker.exe"
    Set objWsShell = Nothing
...
Рейтинг: 0 / 0
19.10.2006, 15:40
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34068515
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
KifirСтранно, данный код вызывает ошибку типо данный файл не найден.
Код: plaintext
1.
2.
3.
4.
5.
  Dim objWsShell
    Set objWsShell = CreateObject("WScript.Shell")
objWsShell.Run "C:\Program Files\Secretmaker\secretmaker.exe"
    Set objWsShell = Nothing

попробуй другое приложение запустить тот же самый notepad
...
Рейтинг: 0 / 0
20.10.2006, 09:30
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34069568
Kifir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kifir
Гость
Так в том то и дело: notepad загружается а secretmaker увы нет ((
...
Рейтинг: 0 / 0
20.10.2006, 13:14
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34069749
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
ну значит этого файла нету, или доступа нету, или путь неправильно прописываешь, попробуй в корень диска С перенести и оттуда вручную запустить если все ок, тада и через скрипт тоже должен запуститься
...
Рейтинг: 0 / 0
20.10.2006, 13:51
| Ответить | Цитировать | Написать  
НАйти и включить процесс
    #34070602
Kifir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kifir
Гость
Все наконецто скрипт полностью работоспособен!
Всем спасибо, кто принимал участие в дискуссии.
...
Рейтинг: 0 / 0
20.10.2006, 16:37
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / НАйти и включить процесс
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34069749&tid=2165125]:
 0ms
get settings:
 11ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 159ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 69ms
get tp. blocked users:
 1ms
others: 255ms
total:  537ms
созд. / загр.: 537ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]