线程状态记录类测试

G_线程状态.显示到超级列表框 (超级列表框1)
时间 ＝ 取现行时间 ()
.计次循环首 (G_线程状态.取线程状态数组 (数组), i)
.如果真 (取时间间隔 (时间, 数组 [i].活跃时间, #秒) ＞ 10) ' 卧槽,你怎么了?
时钟1.时钟周期 ＝ 0
信息框 (“线程ID” ＋ 到文本 (数组 [i].线程ID) ＋ #换行符 ＋ “记录内容:” ＋ 数组 [i].记录文本 ＋ #换行符 ＋ “活跃时间:” ＋ 到文本 (取时间间隔 (时间, 数组 [i].活跃时间, #秒)) ＋ “ 秒之前!”, 0, “检测到有线程卡主了!”, )
时钟1.时钟周期 ＝ 1000
.如果真结束

.计次循环尾 ()