Перезапуск программы через час

Форумы Помощь по пакетуПерезапуск программы через час ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 38

Рейтинг: 8

#1: 2011-06-12 12:22:28 ЛС | профиль | цитата

Не могу разобраться с EnumProcess.
Нужна маленькая схемка. Каждый час которая должна перезапускать указанное приложение. Помогите, кто чем может

Например Notepad.exe находящийся по адресу c

rogram FilesNotepad.exe

карма: 1

Ответов: 8978

Рейтинг: 825

#2: 2011-06-12 13:22:27 ЛС | профиль | цитата

Devilsoft, для запуска не нужно разбираться с EnumProcess code_24382.txt

карма: 19

файлы: 1

code_24382.txt [214B] [161]

Ответов: 38

Рейтинг: 8

#3: 2011-06-12 13:27:28 ЛС | профиль | цитата

Леонид, ок, про запуск я знаю, а как убить процесс?

карма: 1

Ответов: 3889

Рейтинг: 362

#4: 2011-06-12 13:41:55 ЛС | профиль | цитата

Devilsoft, плохо разбирались

doFindName

doKill


Add(MainForm,2953706,126,126)
{
 link(onCreate,10543187:doWork2,[])
}
Add(WinExec,4557846,224,133)
{
 Param=" "
 FileName="notepad.exe"
}
Add(EnumProcess,10923929,427,147)
{
 Name="notepad.exe"
 Point(doFindName)
 Point(onFind)
 link(onFind,10272101:doEvent1,[])
}
Add(Timer,12794496,280,147)
{
 Interval=2000
 link(onTimer,10923929:doFindName,[(352,153)(352,174)])
}
Add(Hub,10272101,497,154)
{
 link(onEvent1,10923929:doKill,[(523,160)(523,125)(383,125)(383,167)])
 link(onEvent2,10543187:doWork3,[(516,167)(516,197)(200,197)])
}
Add(HubEx,10543187,196,140)
{
 link(onEvent,4557846:doShellExec,[])
}

карма: 1

Голосовали: Devilsoft

Ответов: 704

Рейтинг: 7

#5: 2012-09-11 17:22:45 ЛС | профиль | цитата

А как убить процесс, если он висит с активным Message? Не убивается почему-то из EnumProcess даже с доступом на уровне отладчика. А вот диспетчер задач его закрывает.

карма: 0

Ответов: 1536

Рейтинг: 176

#6: 2012-09-11 17:53:45 ЛС | профиль | цитата

Neo, а вот так убьёт?

Add(MainForm,11945221,336,105)
{
 Width=255
 Height=158
}
Add(WinExec,4602740,497,119)
{
 Point(doConsoleExec)
}
Add(Button,12116239,441,133)
{
 Left=15
 Top=20
 Width=170
 Height=30
 Caption="Выключить"
 Data=String(taskkill /f /im explorer.exe)
 link(onClick,4602740:doConsoleExec,[])
}
Add(Button,7877817,399,119)
{
 Left=15
 Top=55
 Width=170
 Height=30
 Caption="Включить"
 Data=String(explorer.exe)
 link(onClick,4602740:doExec,[])
}