建议增加 枚举线程 函数

wjt741106

.版本 2
.子程序 进程_枚举线程, 整数型, 公开, 枚举指定进程的线程(成功返回线程数目,失败返回0)
.参数 进程ID, 整数型, , 线程相关进程ID
.参数 线程属性, 精易_线程属性, 参考 可空 数组, 返回所有线程相关信息
.局部变量 句柄, 整数型
.局部变量 快照句柄, 整数型
.局部变量 线程结构, 精易_线程属性
清除数组 (线程属性)
快照句柄 ＝ CreateToolhelp32Snapshot (4, 进程ID)  ' 枚举所有线程
.如果真 (快照句柄 ≠ 0)
    线程结构.结构大小 ＝ 28
    句柄 ＝ Thread32First (快照句柄, 线程结构)
    .判断循环首 (句柄 ≠ 0)
        .如果真 (线程结构.父进程ID ＝ 进程ID)
            加入成员 (线程属性, 线程结构)
        .如果真结束
        句柄 ＝ Thread32Next (快照句柄, 线程结构)
    .判断循环尾 ()
    CloseHandle (快照句柄)
.如果真结束
返回 (取数组成员数 (线程属性))

.版本 2
.DLL命令 Thread32First, 整数型, , "Thread32First"
    .参数 hSnapshot, 整数型
    .参数 lpte, 精易_线程属性
.版本 2
.DLL命令 Thread32Next, 整数型, , "Thread32Next"
    .参数 hSnapshot, 整数型
    .参数 lpte, 精易_线程属性
.版本 2
.数据类型 精易_线程属性, 公开, THREADENTRY32
    .成员 结构大小, 整数型, , , dwSize  28
    .成员 引用线程数, 整数型, , , cntUsage
    .成员 线程ID, 整数型, , , th32ThreadID
    .成员 父进程ID, 整数型, , , th32OwnerProcessID
    .成员 优先级, 整数型, , , tpBasePri
    .成员 更改的优先级, 整数型, , , tpDeltaPri
    .成员 保留, 整数型, , , dwFlags
    .成员 许可证, 整数型, , , th32AccessKey
    .成员 当前进程ID, 整数型, , , th32CurrentProcessID

xj839493922

还有一个线程，我私信你