Неубиваемый процесс [VB6, VB.net, AutoIt, Delphi, Pascal ]

[DDoSer]

Дополнение для autoit v3, можно назначить ЛЮБОЙ процесс неубиваемым :

Func sNonKillableProcess($sProcess)

	Local $sProcessHandle, $sPid, $sAccess, $sSignedvalue, $ProcessIoPriority, $sProcessInformationLength, $sStruct

	If Not @Compiled Then Exit

	$sPid = ProcessExists($sProcess)

	If Not $sPid Then Exit

	$sAccess = 0x001F0FFF

	$sProcessHandle = DllCall("kernel32.dll", "handle", "OpenProcess", "dword", $sAccess, "bool", True, "dword", $sPid)

	$sSignedvalue = 0x8000F129 ;0xFFFFFFFF (BSOD not work on Win7 x86 )

	$ProcessIoPriority = 0x21

	$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)

EndFunc   ;==>sNonKillableProcess

Использование: sNonKillableProcess(ИмяПроцесса.exe)


P.s. "Убить процесс поможет программка IObit unlocker"
Да помоему его можно завершить просто закрывая потоки процесса через процессхакер