按键精灵中用循环和栈实现递归算法 _ 【集结令●英雄归来】

查看: 6502\|回复: 64	[神梦] 按键精灵中用循环和栈实现递归算法 [复制链接]

神梦科技

神梦无痕

组别按键认证大神
UID2699998
帖子3587
精华11
鲜花2173 朵
铜币7386 个
银币1021 个
在线时间91120
注册时间2014-08-23

1^#

字体大小: t T

发表于 2022-02-27 17:15 | |只看楼主

标题: VB6、按键精灵中用循环和栈实现递归算法
作者: 神梦无痕（QQ：1042207232）
链接: http://bbs.anjian.com/showtopic-697929-1.aspx
版权: 本人所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

'遍历当前句柄的所有子句柄
Call 遍历所有子句柄(GetForegroundWindow())

复制代码

Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Function 遍历所有子句柄(Hwnd)
Dim i, HwndIE
'用循环和栈代替递归：
栈_数组 = Array() : i = -1 : HwndIE = 0
Do
HwndIE = FindWindowEx(Hwnd, HwndIE, vbNullString, vbNullString)
If HwndIE > 0 Then
sClass = Space(50)
GetClassName HwndIE, sClass, Len(sClass) : sClass = Left(sClass, Len(Trim(sClass)) - 1)
sText = Space(255)
GetWindowText HwndIE, sText, Len(sText) : sText = Left(sText, Len(Trim(sText)) - 1)
TracePrint HwndIE & "|" & sClass & "|" & sText
'------[入栈]------
i = i + 1 : Redim Preserve 栈_数组(i) : 栈_数组(i) = Array(Hwnd, HwndIE)
Hwnd = HwndIE : HwndIE = 0
Else
If i = -1 Then Exit Do
'------[出栈]------
Hwnd = 栈_数组(i)(0) : HwndIE = 栈_数组(i)(1) : i = i - 1
End If
Loop
栈_数组 = ""
End Function

复制代码

本主题由超级版主瑞祥幽冥狼于 2023/7/6 9:17:40 执行审核帖子操作

游戏、办公、网页、脚本辅助定制
联系QQ: 1042207232
【命令库】利用IE+Chrome谷歌双核操纵网页填表，支持框架操作
【命令库】按键精灵也玩套接字(Sock)
SMWHff's Blog | 梦痕编程 - 神梦博客

回顶部

发送短消息 UID 8642306 帖子 10 精华 0 鲜花 7 朵铜币 11 个银币 11 个性别在线时间 0 注册时间 2022-02-28 最后登录 2022-03-07 查看公共资料搜索主题搜索帖子 tlfenghua 组别小学一年级 UID8642306 帖子10 精华0 鲜花7 朵铜币11 个银币11 个在线时间0 注册时间2022-02-28	2^# 字体大小: t T 发表于 2022-02-28 13:53 \| \|只看该用户说的好！


	回顶部

发送短消息 UID 3958378 帖子 651 精华 0 鲜花 141 朵铜币 3298 个银币 128 个性别在线时间 7160 注册时间 2016-06-07 最后登录 2023-12-17 查看公共资料搜索主题搜索帖子 z3090712 组别高中三年级 UID3958378 帖子651 精华0 鲜花141 朵铜币3298 个银币128 个在线时间7160 注册时间2016-06-07 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	3^# 字体大小: t T 发表于 2022-02-28 14:10 \| \|只看该用户 vhjhjghbnmgh


	回顶部

发送短消息 UID 1962989 帖子 4027 精华 0 鲜花 1595 朵铜币 10945 个银币 1407 个性别在线时间 213980 注册时间 2013-06-30 最后登录 2024-05-05 2929338900 查看公共资料搜索主题搜索帖子 Danboy 洛洛米组别官方脚本作者 UID1962989 帖子4027 精华0 鲜花1595 朵铜币10945 个银币1407 个在线时间213980 注册时间2013-06-30 按键X开拓者勋章按键精灵X版开拓者勋章按键剑侠客按键剑侠客勋章图灵勋章参与按键精灵验证码识别大赛奖励按键图书勋章尊贵的按键图书用户天使勋章天使一样的用户按键明星按键明星勋章黄金之翼黄金之翼勋章骨灰级按键用户 3年以上的按键论坛用户按键精灵开发者5级可通过提升认证等级来升级勋章：rz.anjian.com 论坛GG 按键论坛男性用户勋章学有所成学有所成勋章，新手步入按键学堂的第一枚勋章	4^# 字体大小: t T 发表于 2022-02-28 16:12 \| \|只看该用户学习一下
	脚本定制,欢迎咨询QQ: 2692863915

	回顶部

发送短消息 UID 7726783 帖子 87 精华 0 鲜花 44 朵铜币 95 个银币 85 个性别在线时间 0 注册时间 2020-06-12 最后登录 2024-01-21 查看公共资料搜索主题搜索帖子 q632592596 组别小学四年级 UID7726783 帖子87 精华0 鲜花44 朵铜币95 个银币85 个在线时间0 注册时间2020-06-12 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	5^# 字体大小: t T 发表于 2022-02-28 19:01 \| \|只看该用户学习学习


	回顶部

发送短消息 UID 5648909 帖子 16 精华 0 鲜花 34 朵铜币 136 个银币 11 个性别在线时间 0 注册时间 2018-10-03 最后登录 2022-06-09 查看公共资料搜索主题搜索帖子 nzgzs998 脚本作者--暮然组别小学一年级 UID5648909 帖子16 精华0 鲜花34 朵铜币136 个银币11 个在线时间0 注册时间2018-10-03	6^# 字体大小: t T 发表于 2022-02-28 21:02 \| \|只看该用户 6666666666666666666666666


	回顶部

发送短消息 UID 8295210 帖子 3 精华 0 鲜花 3 朵铜币 13 个银币 3 个性别在线时间 0 注册时间 2021-05-17 最后登录 2022-03-09 查看公共资料搜索主题搜索帖子 2507115874 2507115874 组别幼儿园 UID8295210 帖子3 精华0 鲜花3 朵铜币13 个银币3 个在线时间0 注册时间2021-05-17	7^# 字体大小: t T 发表于 2022-03-01 15:23 \| \|只看该用户 11111111111111111111111111111


	回顶部

发送短消息 UID 8525108 帖子 23 精华 0 鲜花 11 朵铜币 22 个银币 22 个性别在线时间 0 注册时间 2021-11-04 最后登录 2022-08-30 673405852 查看公共资料搜索主题搜索帖子 q673405852 q673405852 组别小学一年级 UID8525108 帖子23 精华0 鲜花11 朵铜币22 个银币22 个在线时间0 注册时间2021-11-04	8^# 字体大小: t T 发表于 2022-03-01 22:18 \| \|只看该用户 11111111111111


	回顶部

发送短消息 UID 1429548 帖子 174 精华 0 鲜花 53 朵铜币 299 个银币 213 个性别在线时间 580 注册时间 2012-11-16 最后登录 2024-01-02 88388674 查看公共资料搜索主题搜索帖子 hpl1222 hpl1222 组别初中一年级 UID1429548 帖子174 精华0 鲜花53 朵铜币299 个银币213 个在线时间580 注册时间2012-11-16 按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。	9^# 字体大小: t T 发表于 2022-03-01 23:31 \| \|只看该用户牛皮哥


	回顶部

发送短消息 UID 8402316 帖子 92 精华 0 鲜花 49 朵铜币 97 个银币 105 个性别在线时间 0 注册时间 2021-08-04 最后登录 2022-08-30 12345 查看公共资料搜索主题搜索帖子 Mo丶Xiaobai Mo丶Xiaobai 组别小学五年级 UID8402316 帖子92 精华0 鲜花49 朵铜币97 个银币105 个在线时间0 注册时间2021-08-04	10^# 字体大小: t T 发表于 2022-03-02 04:09 \| \|只看该用户看看大神的帖子


	回顶部

发送短消息 UID 3328028 帖子 1497 精华 0 鲜花 199 朵铜币 3957 个银币 204 个性别在线时间 26840 注册时间 2015-06-28 最后登录 2024-03-09 查看公共资料搜索主题搜索帖子 zjcyjj zjcyjj 组别大学三年级 UID3328028 帖子1497 精华0 鲜花199 朵铜币3957 个银币204 个在线时间26840 注册时间2015-06-28 小红帽对论坛提出良好建议（可向管理员申请）	11^# 字体大小: t T 发表于 2022-03-02 05:59 \| \|只看该用户算法算法


	回顶部

发送短消息 UID 8472878 帖子 9 精华 0 鲜花 7 朵铜币 19 个银币 9 个性别在线时间 0 注册时间 2021-09-21 最后登录 2023-11-07 80718598 查看公共资料搜索主题搜索帖子 qq80718598 qq80718598 组别小学一年级 UID8472878 帖子9 精华0 鲜花7 朵铜币19 个银币9 个在线时间0 注册时间2021-09-21	12^# 字体大小: t T 发表于 2022-03-02 08:14 \| \|只看该用户瞅瞅大神,


	回顶部

发送短消息 UID 8643836 帖子 1 精华 0 鲜花 2 朵铜币 2 个银币 2 个性别在线时间 0 注册时间 2022-03-02 最后登录 2022-03-02 查看公共资料搜索主题搜索帖子 taokeliang 组别幼儿园 UID8643836 帖子1 精华0 鲜花2 朵铜币2 个银币2 个在线时间0 注册时间2022-03-02	13^# 字体大小: t T 发表于 2022-03-02 09:35 \| \|只看该用户学习一下，谢谢


	回顶部

发送短消息 UID 8177281 帖子 67 精华 0 鲜花 57 朵铜币 90 个银币 230 个性别在线时间 0 注册时间 2021-02-23 最后登录 2023-07-07 查看公共资料搜索主题搜索帖子 a1234lxm a1234lxm 组别小学三年级 UID8177281 帖子67 精华0 鲜花57 朵铜币90 个银币230 个在线时间0 注册时间2021-02-23 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	14^# 字体大小: t T 发表于 2022-03-02 13:56 \| \|只看该用户看看


	回顶部

发送短消息 UID 92213 帖子 571 精华 0 鲜花 39 朵铜币 656 个银币 48 个性别在线时间 22960 注册时间 2006-08-17 最后登录 2024-04-10 查看公共资料搜索主题搜索帖子 zvbs zvbs 组别高中二年级 UID92213 帖子571 精华0 鲜花39 朵铜币656 个银币48 个在线时间22960 注册时间2006-08-17 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	15^# 字体大小: t T 发表于 2022-03-02 19:51 \| \|只看该用户看看！！！


	回顶部

发送短消息 UID 1336784 帖子 6 精华 0 鲜花 1 朵铜币 19 个银币 2 个性别在线时间 420 注册时间 2012-09-26 最后登录 2024-01-09 380132334 查看公共资料搜索主题搜索帖子 onea001 onea001 组别小学一年级 UID1336784 帖子6 精华0 鲜花1 朵铜币19 个银币2 个在线时间420 注册时间2012-09-26	16^# 字体大小: t T 发表于 2022-03-03 00:33 \| \|只看该用户 994845454545


	回顶部

发送短消息 UID 8671879 帖子 20 精华 0 鲜花 18 朵铜币 21 个银币 21 个性别在线时间 0 注册时间 2022-03-24 最后登录 2022-05-16 371293716@qq 查看公共资料搜索主题搜索帖子 qq371293716 qq371293716 组别小学一年级 UID8671879 帖子20 精华0 鲜花18 朵铜币21 个银币21 个在线时间0 注册时间2022-03-24	17^# 字体大小: t T 发表于 2022-03-27 18:44 \| \|只看该用户我是来学习的，感谢大神


	回顶部

发送短消息 UID 4676648 帖子 93 精华 0 鲜花 32 朵铜币 410 个银币 47 个性别在线时间 1760 注册时间 2017-10-18 最后登录 2023-06-13 查看公共资料搜索主题搜索帖子 xhmm 组别小学五年级 UID4676648 帖子93 精华0 鲜花32 朵铜币410 个银币47 个在线时间1760 注册时间2017-10-18 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	18^# 字体大小: t T 发表于 2022-04-08 21:27 \| \|只看该用户来看看


	回顶部

发送短消息 UID 174077 帖子 66 精华 0 鲜花 2 朵铜币 214 个银币 6 个性别在线时间 820 注册时间 2008-04-05 最后登录 2023-02-16 查看公共资料搜索主题搜索帖子 huiker2431 huiker2431 组别小学三年级 UID174077 帖子66 精华0 鲜花2 朵铜币214 个银币6 个在线时间820 注册时间2008-04-05	19^# 字体大小: t T 发表于 2022-04-08 23:37 \| \|只看该用户向大神学习


	回顶部

发送短消息 UID 4387663 帖子 115 精华 0 鲜花 108 朵铜币 134 个银币 114 个性别在线时间 20 注册时间 2017-03-20 最后登录 2022-09-29 3010819597 查看公共资料搜索主题搜索帖子 zwc18752059192 zwc18752059192 组别小学六年级 UID4387663 帖子115 精华0 鲜花108 朵铜币134 个银币114 个在线时间20 注册时间2017-03-20	20^# 字体大小: t T 发表于 2022-04-19 13:08 \| \|只看该用户学习了


	回顶部

上一主题| 下一主题

[神梦] 按键精灵中用循环和栈实现递归算法 [复制链接]