Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » убитие процесса

Ответить
Настройки темы
убитие процесса

Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать


Доброго времени суток, ребята, помогите, необходим скрипт

нужно сделать слебующее:
есть 5 процессов которые не должны запускаться
и 1 процесс, при запуске которого, должен закрыться процесс, и открыться другой файл.

имеется код

PHP код: Выделить весь код

///////скрытый режим

#NoTrayIco
Opt("WinTitleMatchMode"4)
Opt("TrayOnEventMode"1)
Opt("TrayMenuMode"3)
Opt("TrayIconHide"1)
/////// запись в автозагрузку  
$sName 'close.exe'
$sRegRun 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'
If RegRead($sRegRun, @ScriptName) = '' Or RegRead($sRegRun, @ScriptName) <> @ScriptFullPath Then
    RegWrite
($sRegRun, @ScriptName"REG_SZ", @ScriptFullPath)
EndIf

//////// проверка процесса (если есть то убиваем, и запускаем файл)
While 1
ProcessClose
(Processwait("good_process.exe"))
/////// запуск файла если есть процесс
Run("file1.exe")
Wend 

подскажите, что /как/куда добавить, чтоб
process1.exe
process2.exe
process3.exe
process4.exe
process5.exe
закрывались при запуске.
в delphi напирмер делал следующим образом:

ставил таймер с интевалом 1 секунда, и код

PHP код: Выделить весь код

WinExec(Pchar('taskkill /f /im process.exe'),sw_hide); 


в таком случае, посылалась команда завершения процесса, независимо от того, есть он или нет.

вся программа должна работать в скрытом режиме, заранее благодарю за помощь

Отправлено: 19:15, 12-06-2012

 

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Цитата Freaxxx:
имеется код »
Это php-код?
Используйте тег code а не php.

Цитата Freaxxx:
что /как/куда добавить, чтоб
process1.exe
process2.exe
process3.exe
process4.exe
process5.exe
закрывались при запуске. »
Ну так у вас в коде ведь уже имеется решение, ProcessClose закрывает процесс, в чём проблема?

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


Отправлено: 23:59, 12-06-2012 | #2



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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Creat0R, ему надо следить одновременно за несколькими процессами. То есть, что-нибудь наподобие «Prevent process from running» со «Script Center»:
читать дальше »
Код: Выделить весь код
AutoItSetOption("MustDeclareVars", 1)

Local $aProcesses        = StringSplit("notepad.exe|calc.exe|wordpad.exe", "|")
Local $sProcessName

Local $sComputer         = "."
Local $oSWbemLocator     = ObjCreate("WbemScripting.SWbemLocator")
$oSWbemLocator.Security_.Privileges.AddAsString("SeDebugPrivilege", True)

Local $oSWbemServicesEx  = $oSWbemLocator.ConnectServer($sComputer, "root\cimv2")
Local $oSWbemEventSource = $oSWbemServicesEx.ExecNotificationQuery( _
	"SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'")

Do
	With $oSWbemEventSource.NextEvent().TargetInstance
		For $sProcessName In $aProcesses
			If $sProcessName = .Name Then
				If .Terminate() = 0 Then
					; ConsoleWrite .Name
				EndIf
			EndIf
		Next
	EndWith
Until False

$oSWbemEventSource = 0
$oSWbemServicesEx  = 0
$oSWbemLocator     = 0

Exit(0)


Цитата Freaxxx:
… и открыться другой файл. »
Что сие означает — я не понял.
Это сообщение посчитали полезным следующие участники:

Отправлено: 00:29, 13-06-2012 | #3


Аватара для AZJIO

Старожил


Сообщения: 254
Благодарности: 126

Профиль | Отправить PM | Цитировать


Freaxxx, сможешь разобраться в исходнике? Там слежение за процессами оргинизованно, а вместо запуска пишется лог.
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:21, 13-06-2012 | #4


Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата Iska:
Цитата Freaxxx:… и открыться другой файл. »
Что сие означает — я не понял. »
ну это уже реализовано, просто при обнаружении определенного процесса, должен открыться определенный файл

Отправлено: 14:12, 13-06-2012 | #5


Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать


ладно ребят, спасибо, сделаю дополнительный файл на delphi

Отправлено: 14:31, 13-06-2012 | #6


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата Freaxxx:
просто при обнаружении определенного процесса, должен открыться определенный файл »
Приведите пример.

Отправлено: 15:26, 13-06-2012 | #7


Аватара для AZJIO

Старожил


Сообщения: 254
Благодарности: 126

Профиль | Отправить PM | Цитировать


Freaxxx, ф-я ProcessExists проверяет существование процесса. Только триггер добавить, чтобы после срабатывания функции не вызывать запуск файла повторно.
ShellExecute - запуск файла в ассоциированной программе.

Отправлено: 04:35, 14-06-2012 | #8



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » убитие процесса

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Доступ - [решено] Прекращение работы хост процесса (Прекращение работы хост процесса (Rundll32)) decoy! Microsoft Windows Vista 2 24-04-2010 19:51
Разное - Прекращение работы процесса chudishe Microsoft Windows 2000/XP 0 03-01-2009 03:34
Delphi - отслеживание процесса. mikola1983 Программирование и базы данных 4 02-10-2007 17:51
Автозагрузка процесса yuger Хочу все знать 3 06-08-2007 15:11
Автоматизазия процесса !!! ProKazNik Программирование и базы данных 5 28-10-2003 19:14




 
Переход