好友
阅读权限20
听众
最后登录1970-1-1
|
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 程序集_现行选中项, 整数型
.程序集变量 程序集_图片组, 字节集
.子程序 查看系统窗口树
.局部变量 文件号
.局部变量 项目数据, 字节集
_启动窗口.树型框_窗口探测.清空 ()
连续赋值 (#图片_控件图标, 程序集_图片组, _启动窗口.树型框_窗口探测.图片组)
文件号 = 打开内存文件 ()
递归生成窗口树 (文件号, 0, GetDesktopWindow (), 2, , 假)
移动读写位置 (文件号, #文件首, 0)
项目数据 = 读入字节集 (文件号, 取文件长度 (文件号))
关闭文件 (文件号)
_启动窗口.树型框_窗口探测.项目 = 项目数据
_启动窗口.树型框_窗口探测.扩展 (0)
_启动窗口.树型框_窗口探测.现行选中项 = 程序集_现行选中项
.子程序 递归生成窗口树, 逻辑型, , 通过为树型框构造项目数据字节集的方式来生成窗口树
.参数 参文件号, 整数型
.参数 参缩进层次, 整数型
.参数 参窗口句柄, 整数型
.参数 参枚举层级, 整数型, 可空
.参数 参窗口标题, 文本型, 可空
.参数 参只显示可见窗口, 逻辑型, 可空
.局部变量 局部_窗口类名, 文本型
.局部变量 局部_窗口标题, 文本型
.局部变量 局部_窗口句柄, 整数型
.局部变量 局部_缩进层次, 整数型
.局部变量 局部_窗口信息, 文本型
.局部变量 局部_ICO索引, 整数型
.局部变量 局部_计次, 整数型, 静态
.如果真 (是否为空 (参只显示可见窗口))
参只显示可见窗口 = 真
.如果真结束
.如果真 (参窗口句柄 = 0)
返回 (假)
.如果真结束
.如果真 (参只显示可见窗口 = 假)
局部_计次 = 0
.如果真结束
连续赋值 (取空白文本 (256), 局部_窗口类名, 局部_窗口标题)
GetWindowTextA (参窗口句柄, 局部_窗口标题, 取文本长度 (局部_窗口标题) + 1)
GetClassNameA (参窗口句柄, 局部_窗口类名, 255)
局部_窗口标题 = 删首尾空 (局部_窗口标题)
局部_窗口信息 = 到文本 (参窗口句柄) + “|” + 局部_窗口类名 + “|” + 局部_窗口标题
' 写出数据(内存文件号,树型框标题,图片索引,选中图片索引,项目数值,是否加粗,缩进层次)
' 第四个整数:0:通常;1:加粗;2:展开;3:既展开又加粗
.判断开始 (参窗口标题 = “”)
.判断 (寻找文本 (局部_窗口标题, 参窗口标题, 1, 假) ≠ -1)
返回 (真)
.默认
.判断结束
写出数据 (参文件号, 局部_窗口信息, 局部_ICO索引, 局部_ICO索引, 局部_计次, 0, 参缩进层次)
局部_计次 = 局部_计次 + 1
' 枚举子窗口
局部_窗口句柄 = GetWindow (参窗口句柄, #GW_CHILD)
参缩进层次 = 参缩进层次 + 1
.判断开始 (参枚举层级 = 0)
.判断循环首 (局部_窗口句柄 ≠ 0)
处理事件 ()
.如果 (参只显示可见窗口 = 假 且 IsWindowVisible (局部_窗口句柄) = 0)
.否则
递归生成窗口树 (参文件号, 参缩进层次, 局部_窗口句柄, 参枚举层级, 参窗口标题)
.如果结束
局部_窗口句柄 = GetWindow (局部_窗口句柄, #GW_HWNDNEXT)
.判断循环尾 ()
.默认
.判断循环首 (局部_窗口句柄 ≠ 0 且 参缩进层次 ≤ 参枚举层级)
处理事件 ()
.如果 (参只显示可见窗口 = 假 且 IsWindowVisible (局部_窗口句柄) = 0)
.否则
递归生成窗口树 (参文件号, 参缩进层次, 局部_窗口句柄, 参枚举层级, 参窗口标题)
.如果结束
局部_窗口句柄 = GetWindow (局部_窗口句柄, #GW_HWNDNEXT)
.判断循环尾 ()
.判断结束
返回 (假)
这里写出数据的格式,我尝试修改好像不行,请问这个格式是在哪里设定的、
|
|