万能注入器5种注入任意选

超级列表框取消行色 (进程, 假)
.计次循环首 (隐藏进程数, x)
超级列表框置行色 (_启动窗口, 进程, 进程.取表项数 () － x, #黑色, #红色, 真)
.计次循环尾 ()
x ＝ 进程.查找表项 (到文本 (MyPid), , 真, 1)
.如果真 (x ≠ -1)
超级列表框置行色 (_启动窗口, 进程, x, #黑色, #灰色, 真)
.如果真结束
_启动窗口.标题 ＝ “InjectorV1.0 进程列表 - ” ＋ “正常进程数:” ＋ 到文本 (正常进程数) ＋ “ | 隐藏进程数:” ＋ 到文本 (隐藏进程数)

进程快照 ＝ Api_CreateToolhelp32Snapshot (#TH32CS_SNAPPROCESS, 0)
.如果真 (进程快照 ≤ 0)
返回 (0)
.如果真结束
临时进程信息.dwSize ＝ 1024
进程句柄 ＝ Api_Process32First (进程快照, 临时进程信息)
.判断循环首 (进程句柄 ≠ 0)
加入成员 (临时进程信息组, 临时进程信息)
进程句柄 ＝ Api_Process32Next (进程快照, 临时进程信息)
.判断循环尾 ()
Api_ZwClose (进程快照)
进程信息 ＝ 临时进程信息组
返回 (取数组成员数 (进程信息))

.如果 (类型 ＝ 假)
Api_ImageList_Destroy (超级列表框图像)
超级列表框图像 ＝ Api_ImageList_Create (16, 16, 24, 0, 0)
超级列表框.发送信息 (4099, 1, 超级列表框图像)
Api_ImageList_SetBkColor (超级列表框图像, 超级列表框.背景颜色)
.否则
.如果真 (Api_SHGetFileInfoA (文件路径, 128, 文件信息, 348, 257) ＝ 0)
.如果真 (Api_SHGetFileInfoA (文件路径, 128, 文件信息, 348, 273) ＝ 0)
文件路径 ＝ Api_PathFindExtensionA (文件路径)
Api_SHGetFileInfoA (文件路径, 128, 文件信息, 348, 272)
.如果真结束

.如果真结束
超级列表框.置图片 (表项, , Api_ImageList_AddIcon (超级列表框图像, 文件信息.hIcon))