按键精灵开发程遍历子窗口.docxVIP

按键精灵开发教程：遍历子窗口来源：按键学院 【按键精灵】遍历一个窗口的所有子窗口,返回符合条件(标题或类名)的窗口句柄,请写出函数(遍历子窗口). 题意解析假设红色框框圈起来的就是我们要遍历的窗口。那么，我们要遍历到的是这个窗口下的所有子窗口，二级子窗口，三级子窗口……有多少级都要遍历下去。如果遍历到类名或标题符合的子窗口，则记录下来。以上图的窗口为例，? ?? ???假设我们设置的返回条件是窗口类名=Button，? ?? ???那么只有 窗口句柄为65638这个子窗口符合条件，则返回窗口句柄：65638? ?? ???假设我们设置的返回条件是窗口类名=ToolbarWindow32?，? ?? ???那么有两个子窗口符合条件，则返回这两个窗口的窗口句柄：65632和65636有多少童鞋坑在了这一题呢？是否写了很长的一段代码，但是测试的时候发现就是行不通？不必烦恼不必彷徨，小编今天带来了 工程师06，也就是咱们骚气的06老师的精品代码，十六行代码搞定遍历子窗口 思路 遍历子窗口源码分享Function 遍历子窗口(Parent, ClassName) Dim RetStr,TmpHdr //定义局部变量 Do TmpHdr = Plugin.Window.FindEx(Parent, TmpHdr, 0, 0) //查找子窗口 If TmpHdr Then // 判断是否有查找到子窗口 If Plugin.Window.GetClass(TmpHdr) = ClassName Then //判断窗口类名 RetStr = RetStr TmpHdr | //符合则记录窗口句柄 RetStr = RetStr 遍历子窗口(TmpHdr, ClassName)//递归寻找下一级窗口 Else RetStr = RetStr 遍历子窗口(TmpHdr, ClassName)//递归寻找下一级窗口 End If End If Loop While TmpHdr //如果没有子窗口则退出循环 遍历子窗口 = RetStr //将查找到的符合的窗口句柄返回End Function代码分析要怎么理解递归呢？《盗梦空间》不知道大伙有没有看过，小编很喜欢这部电影，刺激带感……咳咳 言归正传我们可以把递归比作梦境来理解。整个??遍历子窗口???函数就是一个梦境当我们在脚本开始的时候，还清醒着。TracePrint 遍历子窗口(65608,Button)执行这句的时候，我们就带着?65608,Button这两个参数值进入了第一重梦境第一重梦境先将?RetStr,TmpHdr?两个变量定义成局部变量，局部变量只作用于当前梦境，进入下一重梦境，它们会初始化。进入循环，查找子窗口我们带来的两个参数，65608?是传递给parent的 ，而?Tmphdr?此刻的值是0/空。带入??TmpHdr = Plugin.Window.FindEx(Parent, TmpHdr, 0, 0)??中运算：? ?? ??TmpHdr = Plugin.Window.FindEx(65608,?0, 0, 0)? ?? ? TmpHdr =?65614判断是否有子窗口? ?? ?? ??If TmpHdr Then? ?? ?? ? End If? ?? ?? ??TmpHdr =?65614?有子窗口，则判断窗口句柄类名我们带来的两个参数，Button?是传递给?ClassName的?带入?if?Plugin.Window.GetClass(TmpHdr) = ClassName Then?中运算：当前子窗口的类名为：TrayNotifyWnd不符合要求，则执行else后面的语句：RetStr = RetStr 遍历子窗口(TmpHdr, ClassName)执行这一句，又调用了 遍历子窗口 函数，带着TmpHdr, ClassName?进入了第二重梦境。?此时?TmpHdr=65614??? ?? ??ClassName??值不变? ?? ??parent=65608第二重梦境TmpHdr?的值传递给了parentClassName?的值传递给了?ClassName之前在第一重梦境里的?RetStr?和TmpHdr?的值在第二重梦境不生效，初始化为0/空带入??TmpHdr = Plugin.Window.FindEx(Parent, TmpHdr, 0, 0)??中运算：Tm