Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / НАйти и включить процесс / 12 сообщений из 12, страница 1 из 1
16.10.2006, 20:00
    #34058524
Kifir
Kifir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НАйти и включить процесс
Всем добрый вечер! Помогите решить задачу. У меня стоит прога secretmaker.exe - закрытие баннеров. Как сделать, чтобы как только процесс secretmaker.exe выключили, его сного запустить. Вернее как мне проверить запущен ли у меня secretmaker.exe, если нет то немедленно запустить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2006, 08:44
    #34058938
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НАйти и включить процесс
Например средствами WMI или API проверять список процессов каждые n-ый промежуток времени и если нет этого процесса запускать его, через планировщик задач например и т.д. и т.п.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2006, 17:38
    #34061194
Kifir
Kifir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НАйти и включить процесс
Конечно лучше через API, если у кого то есть пример, просьба выложить его сюда.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2006, 18:07
    #34061343
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НАйти и включить процесс
SetTimer, ShellExecute, KillTimer?
Либо запускать ваш secretmaker через WaitForSingleObject.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2006, 19:12
    #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
| Ответить | Цитировать | Написать  
18.10.2006, 20:26
    #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
| Ответить | Цитировать | Написать  
19.10.2006, 09:05
    #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, 15:40
    #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
| Ответить | Цитировать | Написать  
20.10.2006, 09:30
    #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, 13:14
    #34069568
Kifir
Kifir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НАйти и включить процесс
Так в том то и дело: notepad загружается а secretmaker увы нет ((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.10.2006, 13:51
    #34069749
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НАйти и включить процесс
ну значит этого файла нету, или доступа нету, или путь неправильно прописываешь, попробуй в корень диска С перенести и оттуда вручную запустить если все ок, тада и через скрипт тоже должен запуститься
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.10.2006, 16:37
    #34070602
Kifir
Kifir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НАйти и включить процесс
Все наконецто скрипт полностью работоспособен!
Всем спасибо, кто принимал участие в дискуссии.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / НАйти и включить процесс / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 467ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165125]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 174ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 216ms
total:  467ms
x
x
Закрыть


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