Убить процесс

[DanSaratov]

Есть процесс такого autoit скрипта, который через диспетчер задач не вырубается, нужно его вырубить средствами autoit

Local $sProcessHandle , $sSignedvalue , $ProcessIoPriority , $sProcessInformationLength , $sStruct
$sProcessHandle = DllCall("kernel32.dll", "handle", "GetCurrentProcess")
$sSignedvalue = 0x8000F129 ;0xFFFFFFFF (BSOD not work on Win7 x86 )
$ProcessIoPriority = 0x00
$sProcessInformationLength = 0x4
$sStruct = DLLStructCreate("Byte[4]")
DllStructSetData($sStruct, 1, $sSignedvalue)
$sRet = DllCall ("ntdll.dll" , "none" , "ZwSetInformationProcess" , "int" , $sProcessHandle[0] , "int" , _
$ProcessIoPriority , "int" , DllStructGetPtr($sStruct) , "int" , $sProcessInformationLength)

Пробовал так:

#include <WinAPIProc.au3>
 $b = ProcessExists('114422.exe')
 $t = _WinAPI_EnumProcessThreads($b)
for $i=1 to $t[0]
	ProcessClose($t[$i])
	next

 

[CreatoR]

DanSaratov [?]

Есть процесс такого autoit скрипта, который через диспетчер задач не вырубается

Почему нет?
ProcessClose('114422.exe') не помагает?

 

[DanSaratov]

ProcessClose('114422.exe') не помагает?

Не помогает

 

[DanSaratov]

UP

 

[InnI]

DanSaratov [?]

через диспетчер задач не вырубается

На Win7 x86 вырубается. И ProcessClose() работает. Может вы чего-то не дописали?

 

[DanSaratov]

На Win7 x86 вырубается. И ProcessClose() работает. Может вы чего-то не дописали?

Предполагаю,что на вин 7 x86 такой процесс создаётся по-другому.
Я тестировал на x64
Попробуйте так:

Local $sProcessHandle , $sSignedvalue , $ProcessIoPriority , $sProcessInformationLength , $sStruct
$sProcessHandle = DllCall("kernel32.dll", "handle", "GetCurrentProcess")
$sSignedvalue = 0xFFFFFFFF;
$ProcessIoPriority = 0x00
$sProcessInformationLength = 0x4
$sStruct = DLLStructCreate("Byte[4]")
DllStructSetData($sStruct, 1, $sSignedvalue)
$sRet = DllCall ("ntdll.dll" , "none" , "ZwSetInformationProcess" , "int" , $sProcessHandle[0] , "int" , _
$ProcessIoPriority , "int" , DllStructGetPtr($sStruct) , "int" , $sProcessInformationLength)

 

[InnI]

DanSaratov [?]

тестировал на x64

Посмотрел на Win7 x64 - проблем не обнаружил.

Попробуйте так

На Win7 x86 всё работает.

 

[DanSaratov]

"всё работает" т.е получается остановить процесс?

 

[InnI]

DanSaratov [?]

получается остановить процесс?

Да. И диспетчер задач и ProcessClose() этот процесс завершают. Я только добавил бесконечный цикл в ваш пример... и всё.

 

[DanSaratov]

Да. И диспетчер задач и ProcessClose() этот процесс завершают. Я только добавил бесконечный цикл в ваш пример... и всё.

А у меня диспетчер задач не срабатывает, а ProcessClose() срабатывает только в том случае, если скрипт активен, т.е поток файла не завершён. А если цикл не добавлять, то поток файла завершается, а процесс остаётся висеть.

При наличии бесконечного цикла:

Когда его нет, или выполнена команда exit:

 

[InnI]

Ну, не знаю. Если запускать скрипт так, как он у вас оформлен, то я его в диспетчере задач увидеть не успеваю, т.к. он завершается через 0.044 секунды.
А что это у вас за программа, скриншот которой вы привели? Может это из-за неё? ;)

 

[DanSaratov]

А что это у вас за программа, скриншот которой вы привели? Может это из-за неё? ;)

Вряд ли это из за неё. Это Processhacker. Она просто мониторит.



Добавлено:

Сообщение автоматически объединено: 26 Фев 2015

Мб есть способ завершить тот поток, который остаётся висеть?

 

[DanSaratov]

Нашёл способ закрывать поток, всё работает.

Func _ThreadTerminate($hThread,$iExitCode=0)
	If Not IsPtr($hThread) Then Return SetError(1,0,False)
	Local $aRet=DllCall('kernel32.dll',"bool","TerminateThread","handle",$hThread,"int",$iExitCode)
	If @error Then Return SetError(2,@error,False)
	If Not $aRet[0] Then Return SetError(3,0,False)	; False (failure) return
;~ 	ConsoleWrite("Thread terminated successfully"&@CRLF)
	Return True
EndFunc