查看: 30646|回复: 128	[老狼] [老狼][源码分享]----句柄生成器源码----被迫营业的第二天 [复制链接]

发送短消息 UID 1228894 帖子 26975 精华 25 鲜花 8050 朵 铜币 36129 个 银币 4746 个 性别 在线时间 421340 注册时间 2012-07-18 最后登录 2024-11-30 1223116618 查看公共资料 搜索主题 搜索帖子 瑞祥幽冥狼 按 键 工 程 师 ● 兼 职 组别超级版主 UID1228894 帖子26975 精华25 鲜花8050 朵 铜币36129 个 银币4746 个 在线时间421340 注册时间2012-07-18 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 双十一绝版纪念勋章 双十一绝版纪念勋章 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 幸运草勋章 商业小精灵限时活动勋章。 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 黄瓜勋章 体验商业小精灵活动的奖励 天使勋章 天使一样的用户 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 举报达人 长期举报不良帖子 活动狂人 论坛活动狂人 骨灰级按键用户 3年以上的按键论坛用户 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 论坛GG 按键论坛男性用户勋章 发帖高手 鼓励积极回复，但注意不要灌水哦 爱心大使 积极帮助新手（可向管理员进行申请） 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 按键运营团队 按键运营团队专属勋章 按键元老 资深按键用户的尊贵荣誉勋章 管理人员 按键论坛的管理团队专属勋章	1# 字体大小: t T 发表于 2021-11-16 00:03 | |只看楼主 原[2020.09.19更新]命令库分享----PC按键----句柄遍历代码生成[第一章●附录]源码分享 2021.11.11新建QQ交流群:８９１０５８９４６后续更新在本群发布 解压密码：Ｎ７示范： jdfw.gif(2706.05 K) 2022/2/20 22:43:56 源码： DimEnv 子窗口句柄 Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long Public Declare Function SetSystemCursor Lib "user32" Alias "SetSystemCursor" (ByVal hcur As Long, ByVal id As Long) As Long Public Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Event Form1.Timer1.Timer LButton = GetAsyncKeyState(1) If LButton = 0 Then hwnd = Plugin.Window.MousePoint() sRect1 = Plugin.Window.GetClientRect(Hwnd) xy = Split(sRect1, "|") GetCursorPos x1, y1 Form1.InputBox3.Text=x1 - xy(0)&","&y1 - xy(1) Form1.InputBox1.Text = hwnd Form1.PictureBox1.Picture = "Attachment:\光标2.jpg" SystemParametersInfo 87, 0, 0, 2 Form1.Timer1.Enabled = False 子窗口句柄=Hwnd BeginThread 生成代码 Else hwnd = Plugin.Window.MousePoint() Call Plugin.WndEx6.HighlightWindow(hwnd, 4, "0000FF", 200) End If End Event Event Form1.PictureBox1.Click hCursor = LoadCursorFromFile("c:\变化.cur") Call SetSystemCursor(hCursor, 32512) Form1.Timer1.Enabled = True Form1.PictureBox1.Picture = "Attachment:\光标1.jpg" Form1.InputBox2.Text = "" End Event Event Form1.Load PutAttachment "c:\","变化.cur" End Event Sub 生成代码() Call Plugin.File.DeleteFile("C:\七罪.txt") 原始窗口=子窗口句柄 Do 上一级窗口句柄=GetParent(子窗口句柄) If 上一级窗口句柄 = 0 Then 得到顶层窗口句柄 = 子窗口句柄 Exit Do Else 结果= 上一级窗口句柄&","&结果 子窗口句柄=上一级窗口句柄 End If Loop Do If 结果 = "" Then TracePrint "本句柄为父句柄 or 检查句柄＿句柄错误！" 类名 = Plugin.Window.GetClass(子窗口句柄) 标题 = Plugin.Window.GetText(子窗口句柄) Text= "Hwnd = Plugin.Window.Find(" & chr(34) & 类名 & chr(34) & ", " & chr(34) & 标题 & chr(34) & ")" Call Plugin.Sys.SetCLB(Text) Form1.InputBox2.Text = Text Call Plugin.Sys.SetCLB(Text) TracePrint "写入剪切板完成. ..."&vbcrlf&"作者ＱＱ:１２２３１１６６１８；交流群：８９１０５８９４６" ExitScript End If 分割 = Split(结果, ",") 类名 = Plugin.Window.GetClass(分割(0)) 标题 = Plugin.Window.GetText(分割(0)) Hwnd = Plugin.Window.Find(类名, 标题) Call Plugin.File.WriteFileEx("C:\七罪.txt","Hwnd = Plugin.Window.Find("&chr(34) & 类名 &chr(34)& ", " &chr(34) & 标题&chr(34) & ")") 分割(UBound(分割))=原始窗口 For i = 1 To UBound(分割) 类名 = Plugin.Window.GetClass(分割(i)) Call Plugin.File.WriteFileEx("C:\七罪.txt", " Hwnd1=0") Hwnd1 = 0 Do Hwnd1 = Plugin.Window.FindEx(Hwnd, Hwnd1, 类名, 0) If Hwnd1 = 0 Then Exit for End If Call Plugin.File.WriteFileEx("C:\七罪.txt","Hwnd1 = Plugin.Window.FindEx(Hwnd, Hwnd1, "&chr(34)&类名&chr(34)&", 0)") Delay 5 Loop Until Hwnd1 = int(分割(i)) Call Plugin.File.WriteFileEx("C:\七罪.txt","Hwnd = Hwnd1") Hwnd = Hwnd1 Next If Hwnd1 / 1 = 原始窗口 / 1 Then Exit Do Else 结果 = mid(结果, instr(结果, ",") + 1, len(结果) - instr(结果, ",")) End If Loop Call Plugin.File.WriteFileEx("C:\七罪.txt", "TracePrint Hwnd1") Call Plugin.File.WriteFileEx("C:\七罪.txt","TracePrint "&chr(34)&"写入剪切板完成. ...作者ＱＱ:１２２３１１６６１８；交流群：６７７０９９２０４"&chr(34)) Text = Replace(Plugin.File.ReadFileEx("C:\七罪.txt"), "|", vbcrlf) Form1.InputBox2.Text = Text Call Plugin.Sys.SetCLB(Text) End Sub Event Form1.Button1.Click Call Plugin.Sys.SetCLB( Form1.InputBox3.Text ) End Event 复制代码 源文件： x.rar (, 下载次数:665) 点评 果壳王子  桌面壁纸才是焦点  发表于 2021/11/16 0:30:44 已有2评分我要评分查看所有评分
	瑞祥幽冥狼 最后编辑于 2022-02-20 22:43:56 本主题由 超级版主 瑞祥幽冥狼 于 2023/7/6 8:41:20 执行 审核帖子 操作 点赞 收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击 个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］ 个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］
	回顶部

发送短消息 UID 5801026 帖子 96 精华 0 鲜花 71 朵 铜币 8 个 银币 17 个 性别 在线时间 0 注册时间 2018-11-11 最后登录 2024-12-02 查看公共资料 搜索主题 搜索帖子 METLIKE 组别小学五年级 UID5801026 帖子96 精华0 鲜花71 朵 铜币8 个 银币17 个 在线时间0 注册时间2018-11-11 图灵勋章 参与按键精灵验证码识别大赛奖励 黄金之翼 黄金之翼勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com	2# 字体大小: t T 发表于 2021-11-16 00:08 | |只看该用户 向大佬学习
	回顶部

发送短消息 UID 5968417 帖子 12 精华 0 鲜花 6 朵 铜币 176 个 银币 68 个 性别 在线时间 0 注册时间 2018-12-29 最后登录 2022-05-14 查看公共资料 搜索主题 搜索帖子 东城丶 组别小学二年级 UID5968417 帖子12 精华0 鲜花6 朵 铜币176 个 银币68 个 在线时间0 注册时间2018-12-29 按键精灵开发者3级 可通过提升认证等级来升级勋章：rz.anjian.com	3# 字体大小: t T 发表于 2021-11-16 00:10 | |只看该用户 被迫营业
	回顶部

发送短消息 UID 1030857 帖子 51 精华 0 鲜花 17 朵 铜币 87 个 银币 23 个 性别 在线时间 720 注册时间 2012-03-01 最后登录 2023-10-25 371044030 查看公共资料 搜索主题 搜索帖子 不做小白 不做小白 组别小学三年级 UID1030857 帖子51 精华0 鲜花17 朵 铜币87 个 银币23 个 在线时间720 注册时间2012-03-01 图灵勋章 参与按键精灵验证码识别大赛奖励 黄金之翼 黄金之翼勋章	4# 字体大小: t T 发表于 2021-11-16 00:21 | |只看该用户 学习学习
	回顶部

发送短消息 UID 5286780 帖子 6 精华 0 鲜花 5 朵 铜币 31 个 银币 5 个 性别 在线时间 100 注册时间 2018-06-03 最后登录 2023-11-19 查看公共资料 搜索主题 搜索帖子 Za110112 组别小学一年级 UID5286780 帖子6 精华0 鲜花5 朵 铜币31 个 银币5 个 在线时间100 注册时间2018-06-03 图灵勋章 参与按键精灵验证码识别大赛奖励 黄金之翼 黄金之翼勋章	5# 字体大小: t T 发表于 2021-11-16 00:35 | |只看该用户 卧槽牛批
	回顶部

发送短消息 UID 6044876 帖子 106 精华 0 鲜花 50 朵 铜币 2077 个 银币 258 个 性别 在线时间 0 注册时间 2019-01-20 最后登录 2024-09-06 154307141 查看公共资料 搜索主题 搜索帖子 天弈之 天弈之 组别小学五年级 UID6044876 帖子106 精华0 鲜花50 朵 铜币2077 个 银币258 个 在线时间0 注册时间2019-01-20 图灵勋章 参与按键精灵验证码识别大赛奖励 黄金之翼 黄金之翼勋章 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	6# 字体大小: t T 发表于 2021-11-16 00:43 | |只看该用户 高级呀, 太高级了
	回顶部

发送短消息 UID 5053044 帖子 33 精华 0 鲜花 54 朵 铜币 110 个 银币 221 个 性别 在线时间 1160 注册时间 2018-02-17 最后登录 2024-08-23 80783907 查看公共资料 搜索主题 搜索帖子 aaron8127 大猪蹄子 组别小学二年级 UID5053044 帖子33 精华0 鲜花54 朵 铜币110 个 银币221 个 在线时间1160 注册时间2018-02-17 图灵勋章 参与按键精灵验证码识别大赛奖励 骨灰级按键用户 3年以上的按键论坛用户 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 小编勋章 感谢你为按键精灵教科书做出的贡献 教程达人 教程达人	7# 字体大小: t T 发表于 2021-11-16 01:05 | |只看该用户
	回顶部

发送短消息 UID 824463 帖子 896 精华 0 鲜花 -3 朵 铜币 425 个 银币 171 个 性别 在线时间 9340 注册时间 2011-10-13 最后登录 2021-11-30 779450343 查看公共资料 搜索主题 搜索帖子 310194535 310194535 组别大学一年级 UID824463 帖子896 精华0 鲜花-3 朵 铜币425 个 银币171 个 在线时间9340 注册时间2011-10-13 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	8# 字体大小: t T 发表于 2021-11-16 01:27 | |只看该用户 这个厉害了
	回顶部

发送短消息 UID 8533714 帖子 62 精华 0 鲜花 45 朵 铜币 57 个 银币 222 个 性别 在线时间 0 注册时间 2021-11-11 最后登录 2024-11-08 查看公共资料 搜索主题 搜索帖子 梓凡 组别小学三年级 UID8533714 帖子62 精华0 鲜花45 朵 铜币57 个 银币222 个 在线时间0 注册时间2021-11-11 图灵勋章 参与按键精灵验证码识别大赛奖励 黄金之翼 黄金之翼勋章 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	9# 字体大小: t T 发表于 2021-11-16 07:13 | |只看该用户 学习观看
	回顶部

发送短消息 UID 50060 帖子 18 精华 0 鲜花 15 朵 铜币 74 个 银币 4 个 性别 在线时间 0 注册时间 2005-07-16 最后登录 2022-05-30 查看公共资料 搜索主题 搜索帖子 thawedtear 16903491 组别小学一年级 UID50060 帖子18 精华0 鲜花15 朵 铜币74 个 银币4 个 在线时间0 注册时间2005-07-16 图灵勋章 参与按键精灵验证码识别大赛奖励 黄金之翼 黄金之翼勋章 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	10# 字体大小: t T 发表于 2021-11-16 07:56 | |只看该用户 vb，直接用？
	回顶部

发送短消息 UID 8006975 帖子 4 精华 0 鲜花 4 朵 铜币 11 个 银币 2 个 性别 在线时间 0 注册时间 2020-11-08 最后登录 2022-01-25 查看公共资料 搜索主题 搜索帖子 xianchaa 组别幼儿园 UID8006975 帖子4 精华0 鲜花4 朵 铜币11 个 银币2 个 在线时间0 注册时间2020-11-08	11# 字体大小: t T 发表于 2021-11-16 08:03 | |只看该用户
	回顶部

发送短消息 UID 2308674 帖子 64 精华 0 鲜花 57 朵 铜币 63 个 银币 55 个 性别 在线时间 0 注册时间 2013-12-21 最后登录 2024-11-14 查看公共资料 搜索主题 搜索帖子 han96357 小德萌萌哒 组别小学三年级 UID2308674 帖子64 精华0 鲜花57 朵 铜币63 个 银币55 个 在线时间0 注册时间2013-12-21 图灵勋章 参与按键精灵验证码识别大赛奖励	12# 字体大小: t T 发表于 2021-11-16 08:19 | |只看该用户 qqqqqqqqqqqqq
	按键精灵新手交流群 635787403
	回顶部

发送短消息 UID 5503582 帖子 2 精华 0 鲜花 1 朵 铜币 11 个 银币 2 个 性别 在线时间 20 注册时间 2018-08-19 最后登录 2024-02-22 673210110 查看公共资料 搜索主题 搜索帖子 ufok ufok 组别幼儿园 UID5503582 帖子2 精华0 鲜花1 朵 铜币11 个 银币2 个 在线时间20 注册时间2018-08-19	13# 字体大小: t T 发表于 2021-11-16 08:37 | |只看该用户 向大佬学习 向大佬学习
	回顶部

发送短消息 UID 3560303 帖子 4 精华 0 鲜花 3 朵 铜币 20 个 银币 2 个 性别 在线时间 60 注册时间 2015-11-02 最后登录 2021-12-14 查看公共资料 搜索主题 搜索帖子 294733776 294733776 组别幼儿园 UID3560303 帖子4 精华0 鲜花3 朵 铜币20 个 银币2 个 在线时间60 注册时间2015-11-02 图灵勋章 参与按键精灵验证码识别大赛奖励	14# 字体大小: t T 发表于 2021-11-16 08:42 | |只看该用户
	回顶部

发送短消息 UID 1474323 帖子 272 精华 0 鲜花 145 朵 铜币 199 个 银币 163 个 性别 在线时间 60 注册时间 2012-12-08 最后登录 2024-11-28 872349669 查看公共资料 搜索主题 搜索帖子 872349669 Vip猫灬猫 组别初中二年级 UID1474323 帖子272 精华0 鲜花145 朵 铜币199 个 银币163 个 在线时间60 注册时间2012-12-08 图灵勋章 参与按键精灵验证码识别大赛奖励 黄金之翼 黄金之翼勋章 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	15# 字体大小: t T 发表于 2021-11-16 08:49 | |只看该用户 老师出品 必属精品 学习了
	喜欢学习
	回顶部

发送短消息 UID 550381 帖子 141 精华 0 鲜花 10 朵 铜币 261 个 银币 163 个 性别 在线时间 3700 注册时间 2010-11-30 最后登录 2022-02-28 460687214 查看公共资料 搜索主题 搜索帖子 clx527richie 柒个旦旦 组别小学六年级 UID550381 帖子141 精华0 鲜花10 朵 铜币261 个 银币163 个 在线时间3700 注册时间2010-11-30 图灵勋章 参与按键精灵验证码识别大赛奖励 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com 教程达人 教程达人	16# 字体大小: t T 发表于 2021-11-16 09:23 | |只看该用户 学习学习
	回顶部

发送短消息 UID 8278223 帖子 3 精华 0 鲜花 2 朵 铜币 12 个 银币 4 个 性别 在线时间 0 注册时间 2021-05-04 最后登录 2022-08-28 12345 查看公共资料 搜索主题 搜索帖子 ifreekingwin ifreekingwin 组别幼儿园 UID8278223 帖子3 精华0 鲜花2 朵 铜币12 个 银币4 个 在线时间0 注册时间2021-05-04	17# 字体大小: t T 发表于 2021-11-16 09:49 | |只看该用户 这也太牛逼了 这个功能大赞
	回顶部

发送短消息 UID 4985284 帖子 476 精华 0 鲜花 93 朵 铜币 483 个 银币 486 个 性别 在线时间 0 注册时间 2018-01-23 最后登录 2024-11-29 1431502976 查看公共资料 搜索主题 搜索帖子 许夜雨澜 许夜雨澜 组别高中一年级 UID4985284 帖子476 精华0 鲜花93 朵 铜币483 个 银币486 个 在线时间0 注册时间2018-01-23 按键精灵开发者3级 可通过提升认证等级来升级勋章：rz.anjian.com 教程达人 教程达人	18# 字体大小: t T 发表于 2021-11-16 16:30 | |只看该用户 自愿喊666的第二天
	回顶部

发送短消息 UID 8263295 帖子 12 精华 0 鲜花 10 朵 铜币 18 个 银币 11 个 性别 在线时间 0 注册时间 2021-04-23 最后登录 2023-02-25 20331866 查看公共资料 搜索主题 搜索帖子 t8star2 t8star2 组别小学一年级 UID8263295 帖子12 精华0 鲜花10 朵 铜币18 个 银币11 个 在线时间0 注册时间2021-04-23	19# 字体大小: t T 发表于 2021-11-16 16:37 | |只看该用户 主动给师傅点赞
	回顶部

发送短消息 UID 4735436 帖子 16 精华 0 鲜花 13 朵 铜币 115 个 银币 176 个 性别 在线时间 60 注册时间 2017-11-19 最后登录 2023-08-25 查看公共资料 搜索主题 搜索帖子 13691961861 13691961861 组别小学一年级 UID4735436 帖子16 精华0 鲜花13 朵 铜币115 个 银币176 个 在线时间60 注册时间2017-11-19 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	20# 字体大小: t T 发表于 2021-11-16 23:06 | |只看该用户 6666666
	回顶部