关于谦卑的结束语句,易语言怎么强制结束进程

关于谦卑的结束语句,易语言怎么强制结束进程

.版本 2
.子程序 进程_强力结束进程, 逻辑型, 公开,强制结束进程。
.参数 hProcess, 整数型
.参数 ExitStatus, 整数型, , 填0
.局部变量 st, 整数型
.局部变量 hJob, 整数型
.局部变量 oa, OBJECT_ATTRIBUTES
.局部变量 ret, 逻辑型
ret ＝ 假
oa.Length ＝ 24
st ＝ ZwCreateJobObject (hJob, #JOB_OBJECT_ALL_ACCESS, oa)
.如果真 (st ≥ 0)
st ＝ ZwAssignProcessToJobObject (hJob, hProcess)
.如果真 (st ≥ 0)
st ＝ ZwTerminateJobObject (hJob, ExitStatus)
.如果真 (st ≥ 0)
ret ＝ 真
.如果真结束
.如果真结束
ZwClose (hJob)
.如果真结束
.如果真 (ret ＝ 假)
st ＝ ZwTerminateProcess (hProcess, ExitStatus)
.如果真 (st ≥ 0)
ret ＝ 真
.如果真结束
.如果真结束
返回 (ret)
.子程序 进程_强力打开进程, 整数型, 公开
.参数 dwDesiredAccess, 整数型
.参数 bInhert, 逻辑型
.参数 ProcessId, 整数型
.局部变量 st, 整数型
.局部变量 cid, CLIENT_ID
.局部变量 oa, OBJECT_ATTRIBUTES
.局部变量 NumOfHandle, 整数型
.局部变量 pbi, PROCESS_BASIC_INFORMATION
.局部变量 i, 整数型
.局部变量 hProcessToDup, 整数型
.局部变量 hProcessCur, 整数型
.局部变量 hProcessToRet, 整数型
.局部变量 h_info, SYSTEM_HANDLE_TABLE_ENTRY_INFO
.局部变量 retlen, 整数型
.局部变量 a, 字节集
.局部变量 b, 整数型
.局部变量 c, 字节集
.局部变量 ret, 整数型
oa.Length ＝ 24
.如果真 (bInhert)
oa.Attributes ＝ 位或 (oa.Attributes, #OBJ_INHERIT)
.如果真结束
cid.UniqueProcess ＝ ProcessId ＋ 1
st ＝ ZwOpenProcess (hProcessToRet, dwDesiredAccess, oa, cid)
.如果真 (st ≥ 0)
ret ＝ hProcessToRet
返回 (ret)
.如果真结束
retlen ＝ 1
.循环判断首 ()
a ＝ 取空白字节集 (retlen)
ret ＝ ZwQuerySystemInformation (16, a, retlen, 0)
.如果 (ret ＝ #STATUS_INFO_LENGTH_MISMATCH)
retlen ＝ retlen × 2
a ＝ 取空白字节集 (retlen)
.否则
跳出循环 ()
.如果结束
.循环判断尾 (re......余下全文>>