高仿PChunter线程管理器可操作任意进程 纯DLL架构注入可写exe

伝天

  

子程序名	返回值类型	公开	备 注
wsShowThdInfo
参数名	类 型	参考	可空	数组	备 注
pid	整数型

进程提权 (“SeDebugPrivilege”)
系统_处理事件 ()
ZwQuerySystemInformation ( #SystemProcessesAndThreadsInformation, buf, 0, size)
memaddr ＝ GlobalAlloc (64, size)
buf ＝ memaddr
ret ＝ ZwQuerySystemInformation ( #SystemProcessesAndThreadsInformation, buf, size, 0)
如果真 (ret ＝ 0)
CopyMemory_SYSTEM_PROCESSES (temp, buf, 240)
CopyMemory_SYSTEM_PROCESSES (temper, buf, 180 ＋ 64 × temp.ThreadCount)
判断循环首 (temper.NextEntryDelta ≠ 0)
如果真 (temper.ProcessID ＝ pid)
变量循环首 (1, temper.ThreadCount － 1, 1, i)
ii ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (ii, 0, 到文本 (temper.Threads [i].ClientId.UniqueThread))
超级列表框1.置标题 (ii, 1, GetEthreadByTid (temper.Threads [i].ClientId.UniqueThread))
超级列表框1.置标题 (ii, 2, GetTeb (temper.Threads [i].ClientId.UniqueThread))
超级列表框1.置标题 (ii, 3, 到文本 (temper.Threads [i].Priority))
超级列表框1.置标题 (ii, 4, 取线程入口 (temper.Threads [i].ClientId.UniqueThread))
超级列表框1.置标题 (ii, 5, 取线程模块 (temper.Threads [i].ClientId.UniqueThread))
超级列表框1.置标题 (ii, 6, 到文本 (temper.Threads [i].ContextSwitchCount))
如果 (状态 ＝ 5)

超级列表框1.置标题 (ii, 7, 到文本 (“结束”))
超级列表框1.置标题 (ii, 7, 到文本 (“运行”))
超级列表框1.置标题 (ii, 9, 到文本 (“用户未操作”))
超级列表框1.置标题 (ii, 8, 到文本 (到小数 (temper.Threads [i].WaitTime)))
超级列表框1.置标题 (ii, 10, 到文本 (ii ＋ 1))
' 超级列表框1.置标题 (ii, 4, 到文本 (temper.Threads [i].StartAddress))
' 超级列表框1.置标题 (ii, 8, 到文本 (temper.Threads [i].ClientId.UniqueThread))
' 超级列表框1.置标题 (ii, 6, 到文本 (temper.Threads [i].ClientId.UniqueProcess))
' 超级列表框1.置标题 (ii, 8, 到文本 (temper.Threads [i].BasePriority))
' 超级列表框1.置标题 (ii, 8, 到文本 (temper.Threads [i].WaitReason))
变量循环尾 ()
跳出循环 ()
buf ＝ buf ＋ temp.NextEntryDelta
CopyMemory_SYSTEM_PROCESSES (temp, buf, 240)
CopyMemory_SYSTEM_PROCESSES (temper, buf, 180 ＋ 64 × temp.ThreadCount)
如果 (超级列表框1.查找表项 (超级列表框1.取标题 (ii, 5), , , 5) ＝ 到整数 (“”) 且 超级列表框1.查找表项 (超级列表框1.取标题 (ii, 2), , , 2) ＝ 到整数 (“”))
超级列表框1.获取焦点 ()
超级列表框1.现行选中项 ＝ ii
超级列表框1.置标题 (ii, 7, 到文本 (“不存在”))
超级列表框1.置标题 (超级列表框1.现行选中项, 9, 到文本 (“线程不存在”))
置行列颜色 (窗口_进程线程, 超级列表框1, 超级列表框1.现行选中项, 9, #芙红 )




判断循环尾 ()
GlobalFree (memaddr)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 wsShowThdInfo<br /> .参数 pid, 整数型<br /> <br /> 进程提权 (“SeDebugPrivilege”)<br /> 系统_处理事件 ()<br /> ZwQuerySystemInformation (#SystemProcessesAndThreadsInformation, buf, 0, size)<br /> memaddr ＝ GlobalAlloc (64, size)<br /> buf ＝ memaddr<br /> ret ＝ ZwQuerySystemInformation (#SystemProcessesAndThreadsInformation, buf, size, 0)<br /> .如果真 (ret ＝ 0)<br />     CopyMemory_SYSTEM_PROCESSES (temp, buf, 240)<br />     CopyMemory_SYSTEM_PROCESSES (temper, buf, 180 ＋ 64 × temp.ThreadCount)<br />     .判断循环首 (temper.NextEntryDelta ≠ 0)<br />         .如果真 (temper.ProcessID ＝ pid)<br />             .变量循环首 (1, temper.ThreadCount － 1, 1, i)<br />                 ii ＝ 超级列表框1.插入表项 (, , , , , )<br />                 超级列表框1.置标题 (ii, 0, 到文本 (temper.Threads <i>.ClientId.UniqueThread))<br />                 超级列表框1.置标题 (ii, 1, GetEthreadByTid (temper.Threads <i>.ClientId.UniqueThread))<br />                 超级列表框1.置标题 (ii, 2, GetTeb (temper.Threads <i>.ClientId.UniqueThread))<br />                 超级列表框1.置标题 (ii, 3, 到文本 (temper.Threads <i>.Priority))<br />                 超级列表框1.置标题 (ii, 4, 取线程入口 (temper.Threads <i>.ClientId.UniqueThread))<br />                 超级列表框1.置标题 (ii, 5, 取线程模块 (temper.Threads <i>.ClientId.UniqueThread))<br />                 超级列表框1.置标题 (ii, 6, 到文本 (temper.Threads <i>.ContextSwitchCount))<br />                 .如果 (状态 ＝ 5)<br /> <br />                 .否则<br />                     超级列表框1.置标题 (ii, 7, 到文本 (“结束”))<br />                 .如果结束<br />                 超级列表框1.置标题 (ii, 7, 到文本 (“运行”))<br />                 超级列表框1.置标题 (ii, 9, 到文本 (“用户未操作”))<br />                 超级列表框1.置标题 (ii, 8, 到文本 (到小数 (temper.Threads <i>.WaitTime)))<br />                 超级列表框1.置标题 (ii, 10, 到文本 (ii ＋ 1))<br /> <br />                 ' 超级列表框1.置标题 (ii, 4, 到文本 (temper.Threads <i>.StartAddress))<br />                 ' 超级列表框1.置标题 (ii, 8, 到文本 (temper.Threads <i>.ClientId.UniqueThread))<br />                 ' 超级列表框1.置标题 (ii, 6, 到文本 (temper.Threads <i>.ClientId.UniqueProcess))<br /> <br />                 ' 超级列表框1.置标题 (ii, 8, 到文本 (temper.Threads <i>.BasePriority))<br /> <br />                 ' 超级列表框1.置标题 (ii, 8, 到文本 (temper.Threads <i>.WaitReason))<br />             .变量循环尾 ()<br />             跳出循环 ()<br />         .如果真结束<br />         buf ＝ buf ＋ temp.NextEntryDelta<br />         CopyMemory_SYSTEM_PROCESSES (temp, buf, 240)<br />         CopyMemory_SYSTEM_PROCESSES (temper, buf, 180 ＋ 64 × temp.ThreadCount)<br />         .如果 (超级列表框1.查找表项 (超级列表框1.取标题 (ii, 5), , , 5) ＝ 到整数 (“”) 且 超级列表框1.查找表项 (超级列表框1.取标题 (ii, 2), , , 2) ＝ 到整数 (“”))<br />             超级列表框1.获取焦点 ()<br />             超级列表框1.现行选中项 ＝ ii<br />             超级列表框1.置标题 (ii, 7, 到文本 (“不存在”))<br />             超级列表框1.置标题 (超级列表框1.现行选中项, 9, 到文本 (“线程不存在”))<br />             置行列颜色 (窗口_进程线程, 超级列表框1, 超级列表框1.现行选中项, 9, #芙红)<br /> <br />         .否则<br /> <br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .如果真结束<br /> GlobalFree (memaddr)

高仿PChunter线程管理可直接移植EXE模式可过线程保护程序  内置自动搜索指定线程并处理
回复下载 xcdll.rar (415.23 KB, 下载次数: 703)

2020-10-31 20:15 上传

点击文件名下载附件

fyh505099

支持开源 谢谢分享 抢个沙发

simpledas

白嫖了谢谢

ezzuhao

pchunter NB

阿仁同学

支持开源 谢谢分享

f261625

看看是不是好东西

QQ1329127360

很好很强悍,坚持下去哦~

evilbeast

喜欢看反馈

qq674066468

谢谢分享

ffsfdsa

支持一下！感谢分享!