线程信息 取线程等待原因优化问题

tjzoo111

.版本 2
.子程序 线程_取等待原因, 整数型, 公开, 参数1 线程ID   '例 线程句柄=CreateThread (0, 0, &子程序, 参数, 0, 线程ID)
.参数 线程ID, 整数型
.局部变量 内存长度, 整数型
.局部变量 内存地址, 整数型
.局部变量 缓存地址, 整数型
.局部变量 查询结果, 整数型
.局部变量 临时信息, 系统进程信息
.局部变量 进程信息, 系统进程信息
.局部变量 i, 整数型
.局部变量 等待原因, 整数型
ZwQuerySystemInformation (5, 0, 0, 内存长度)
内存地址 ＝ LocalAlloc (64, 内存长度)
缓存地址 ＝ 内存地址
查询结果 ＝ ZwQuerySystemInformation (5, 缓存地址, 内存长度, 0)
.如果真 (查询结果 ＝ 0)
    拷贝_进程信息 (临时信息, 缓存地址, 244)
    拷贝_进程信息 (进程信息, 缓存地址, 180 ＋ 64 × 临时信息.线程数)
    .判断循环首 (查询结果 ≥ 0)
        查询结果 ＝ 临时信息.结构链偏移量 － 1
        .如果真 (进程信息.进程ID ＝ GetCurrentProcessId ())
            .计次循环首 (进程信息.线程数, i)
                .如果真 (进程信息.进程线程结构 .进程线程ID [2] ＝ 线程ID)
                    等待原因 ＝ 进程信息.进程线程结构 .等待原因
                    LocalFree (内存地址)
                    返回 (等待原因)
                .如果真结束
            .计次循环尾 ()
        .如果真结束
        缓存地址 ＝ 缓存地址 ＋ 临时信息.结构链偏移量
        拷贝_进程信息 (临时信息, 缓存地址, 244)
        拷贝_进程信息 (进程信息, 缓存地址, 180 ＋ 64 × 临时信息.线程数)
    .判断循环尾 ()
.如果真结束
LocalFree (内存地址)
返回 (-1)

能优化不费资源点吗


补充内容 (2014-7-9 19:15):
这样找 等待原因方法对吗?

tjzoo111

求改进求提高