查看: 4508|回复: 11	[昨夜星辰] 【源码】利用API操作其他程序中的控件 [复制链接]

发送短消息 UID 728264 帖子 3501 精华 18 鲜花 1898 朵 铜币 27453 个 银币 1717 个 性别 在线时间 82980 注册时间 2011-08-04 最后登录 2024-11-27 2500039815 查看公共资料 搜索主题 搜索帖子 昨夜星辰 QQ250039815 组别按键认证大神 UID728264 帖子3501 精华18 鲜花1898 朵 铜币27453 个 银币1717 个 在线时间82980 注册时间2011-08-04 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 羊年勋章 羊年纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 双蛋勋章 双蛋活动勋章 黄瓜勋章 体验商业小精灵活动的奖励 按键卫士 参与“打击山寨，维护按键”活动 屌丝勋章 参与屌丝逆袭活动专属勋章 土豪勋章 活动期间在淘宝商场购买按键产品 天使勋章 天使一样的用户 潜水员 按键潜水员勋章 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 虎年勋章 虎年纪念勋章 论坛GG 按键论坛男性用户勋章 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 盒子会员 盒子会员专属勋章	1# 字体大小: t T 发表于 2022-03-21 14:46 | |只看楼主 在按键精灵的界面中，我们可以轻松创建一些控件，并且通过控件的名称来对进其进行一系列操作。那么其他程序里的控件又该怎么进行操作呢？如标题所言，我们需要用到API（Application Programming Interface 应用程序编程接口），下面我将通过API，给大家演示常用控件的常用属性操作。 首先需要将我们用到的API进行声明： Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Declare Function ShowScrollBar Lib "user32" Alias "ShowScrollBar" (ByVal hwnd As Long,ByVal hwnd As Long,ByVal hwnd As Long) 复制代码 控件名称：Edit 输入框 Call SendMessage(hwnd, &HC, 0, str)//设置输入框内容，hwnd为控件句柄，str为设置内容。 Dim length str = space(255) length = SendMessage(hwnd, &HD, Len(str), str)//获取输入框内容，hwnd为控件句柄，str为缓冲区。 str = Left(str, length) TracePrint str Call SendMessage(Hwnd, &HC5, num, 0)//设置输入框内容最大可输入长度，hwnd为控件句柄，num为长度限制，若为0则取消限制。 Call SendMessage(Hwnd, &HCC, code, 0)//设置输入框内容为指定字符，hwnd为控件句柄，code为显示的字符的asc码，如Asc("")，若为0则取消指定字符显示。 Call InvalidateRect(hwnd, 0, 0)//重绘控件，如果不使用该函数，则输入框中的内容显示变更不会马上生效，hwnd为控件句柄。 Call SendMessage(Hwnd, &HCF, mode, 0)//设置输入框内容是否为只读，hwnd为控件句柄，mode为是否只读，1为只读，0为取消只读。 Dim Style style = SetWindowLong(hwnd, - &H10 , GetWindowLong(hwnd, - &H10 ) or &H2000)//设置输入框只能输入数字，hwnd为控件句柄。 Call SetWindowLong(hwnd, -&H10 , style)//恢复输入框之前的样式，hwnd为控件句柄 Call ShowScrollBar(hwnd, type_ , value)//设置输入框显示或隐藏滚动条，type_为滚动条样式，0为水平滚动条，1为垂直滚动条，3为0和1两种样式，value为是否显示，0为隐藏，1为显示。 复制代码 控件名称：Button 按钮 Call SendMessage(hwnd, &HF5, 0, 0)//点击控件，单选框、多选框等其他控件也可用，hwnd为控件句柄。 复制代码 控件名称：OptionBox 单选框、CheckBox 多选框 TracePrint SendMessage(hwnd, &HF0, 0, 0)//获取控件的选中结果，0为未选中，1为选中，hwnd为控件句柄。 Call SendMessage(hwnd, &HF1, value, 0)//设置控件的选中结果，hwnd为控件句柄，value为是否选中，0为不选中，1为选中。 复制代码 控件名称：ComboBox 下拉框 Call SendMessage(hwnd, &H143, 0, str)//向下拉框末尾添加一行内容，hwnd为控件句柄，str为添加内容。 Call SendMessage(hwnd, &H14A, index, str)//向下拉框中插入一行内容，hwnd为控件句柄，index为插入位置，str为插入内容。 Call SendMessage(hwnd, &H14B, 0, 0)//清空下拉框中的内容，hwnd为控件句柄。 Call SendMessage(hwnd, &H144, index, 0)//从下拉框中删除指定选项内容，hwnd为控件句柄，index为选项索引。 TracePrint SendMessage(hwnd, &H146, 0 , 0)//获取下拉框选项总数，hwnd为控件句柄。 TracePrint SendMessage(hwnd, &H147, 0 , 0)//获取下拉框当前选项索引，hwnd为控件句柄。 TracePrint SendMessage(hwnd, &H15B, 0 , 0)//获取下拉框当前可见区域内的第一个选项的索引，hwnd为控件句柄。 Dim length str = Space(255) length = SendMessage(hwnd, &H148, index, str)//获取下拉框指定选项内容，hwnd为控件句柄，index为选项索引，str为缓冲区。 str = Left(str, length) TracePrint str TracePrint SendMessage(hwnd, &H14C, index, str)//获取下拉框包含指定内容开头的选项所在选项索引，hwnd为控件句柄，index为起始查找位置，-1为从第一个选项开始查找，str为查找内容。 TracePrint SendMessage(hwnd, &H158, index, str)//获取下拉框完全匹配指定内容的选项所在选项索引，hwnd为控件句柄，index为起始查找位置，-1为从第一个选项开始查找，str为查找内容。 Call SendMessage(hwnd, &H14D, index, str)//设置下拉框包含指定内容开头的选项为当前选项，hwnd为控件句柄，index为起始查找位置，-1为从第一个选项开始查找，str为查找内容。 Call SendMessage(hwnd, &H14E, index, 0)//设置下拉框指定索引为当前选项，hwnd为控件句柄，index为选项索引。 TracePrint SendMessage(hwnd, &H157,0,0)/获取下拉框是否被展开，0为未展开，1为展开，hwnd为控件句柄。 Call SendMessage(hwnd, &H14F,value,0)/设置下拉框是否展开，hwnd为控件句柄，value为是否展开，0为不展开，1为展开。 复制代码 控件名称：ListBox 列表框 Call SendMessage(hwnd, &H180, 0, str)//向列表框末尾添加一行内容，hwnd为控件句柄，str为添加内容。 Call SendMessage(hwnd, &H181, index, str)//向列表框中插入一行内容，hwnd为控件句柄，index为插入位置，str为插入内容。 Call SendMessage(hwnd, &H184, 0, 0)//清空列表框中的内容，hwnd为控件句柄。 Call SendMessage(hwnd, &H182, index, 0)//从列表框中删除指定选项内容，hwnd为控件句柄，index为选项索引。 TracePrint SendMessage(hwnd, &H18B, 0 , 0)//获取列表框选项总数，hwnd为控件句柄。 TracePrint SendMessage(hwnd, &H188, 0 , 0)//获取列表框当前选项索引，hwnd为控件句柄。 TracePrint SendMessage(hwnd, &H18E, 0 , 0)//获取列表框当前可见区域内的第一个选项的索引，hwnd为控件句柄。 Dim length str = Space(255) length = SendMessage(hwnd, &H189, index, str)//获取列表框指定选项内容，hwnd为控件句柄，index为选项索引，str为缓冲区。 str = Left(str, length) TracePrint str TracePrint SendMessage(hwnd, &H18F, index, str)//获取列表框包含指定内容开头的选项所在选项索引，hwnd为控件句柄，index为起始查找位置，-1为从第一个选项开始查找，str为查找内容。 TracePrint SendMessage(hwnd, &H1A2, index, str)//获取列表框完全匹配指定内容的选项所在选项索引，hwnd为控件句柄，index为起始查找位置，-1为从第一个选项开始查找，str为查找内容。 Call SendMessage(hwnd, &H18C, index, str)//设置列表框包含指定内容开头的选项为当前选项，hwnd为控件句柄，index为起始查找位置，-1为从第一个选项开始查找，str为查找内容。 Call SendMessage(hwnd, &H186, index, 0)//设置列表框指定索引为当前选项，hwnd为控件句柄，index为选项索引。 复制代码 控件名称：TabControl 选项卡 Call SendMessage(hwnd, &H1309, 0, 0)//清空选项卡中所有分页，hwnd为控件句柄。 Call SendMessage(hwnd, &H1308, index, 0)//删除选项卡中指定分页，hwnd为控件句柄，index为分页索引。 TracePrint SendMessage(hwnd, &H1304, 0, 0)//获取选项卡分页总数，hwnd为控件句柄。 TracePrint SendMessage(hwnd, &H132F, 0, 0)//获取选项卡当前具有焦点的分页索引，hwnd为控件句柄。 TracePrint SendMessage(hwnd, &H130B, 0, 0)//获取选项卡当前选中的分页索引，hwnd为控件句柄。 Call SendMessage(hwnd, &H130C, index, 0)//设置选项卡跳转到指定分页索引，hwnd为控件句柄，index为分页索引。 Call SendMessage(hwnd, &H1330, index, 0)//设置选项卡指定分页索引获得焦点，hwnd为控件句柄，index为分页索引。 复制代码 控件名称：TreeView 树视图 TracePrint SendMessage(hwnd, &H110A, &H0, 0)//获取树状图第一个根节点句柄，hwnd为控件句柄。 TracePrint SendMessage(hwnd, &H110A, &H4, roothwnd)//获取树状图指定根节点的第一个子节点句柄，hwnd为控件句柄，roothwnd为指定根节点句柄。 TracePrint SendMessage(hwnd, &H110A, &H1, nodehwnd)//获取树状图指定节点的下一个节点句柄，hwnd为控件句柄，nodehwnd为指定节点句柄。 TracePrint SendMessage(hwnd, &H110A, &H2, nodehwnd)//获取树状图指定节点的上一个节点句柄，hwnd为控件句柄，nodehwnd为指定节点句柄。 TracePrint SendMessage(hwnd, &H110A, &H6, nodehwnd)//获取树状图指定节点的下一个可见节点句柄，hwnd为控件句柄，nodehwnd为指定节点句柄。 TracePrint SendMessage(hwnd, &H110A, &H7, nodehwnd)//获取树状图指定节点的上一个可见节点句柄，hwnd为控件句柄，nodehwnd为指定节点句柄。 TracePrint SendMessage(hwnd, &H110A, &H9, 0)//获取树状图当前被选中节点句柄，hwnd为控件句柄。 TracePrint SendMessage(hwnd, &H110A, &H5, 0)//获取树状图第一个可见节点句柄，hwnd为控件句柄。 TracePrint SendMessage(hwnd, &H110A, &HA, 0)//获取树状图最后一个展开的节点句柄，hwnd为控件句柄。 TracePrint SendMessage(hwnd, &H110A, &H3, nodehwnd)//获取树状图指定节点的根节点句柄，hwnd为控件句柄，nodehwnd为指定节点句柄。 TracePrint SendMessage(hwnd, &H1114, 0, nodehwnd)//设置树状图滚动至指定节点位置，hwnd为控件句柄，nodehwnd为指定节点句柄。 TracePrint SendMessage(hwnd, &H110B, &H9, nodehwnd)//点击树状图指定节点，hwnd为控件句柄，nodehwnd为指定节点句柄。 TracePrint SendMessage(hwnd, &H1102, mode, nodehwnd)//设置树状图指定节点展开状态，hwnd为控件句柄，mode为操作模式，1为折叠，2为展开，3为反选，nodehwnd为指定节点句柄。 复制代码 已有1评分我要评分查看所有评分
	昨夜星辰 最后编辑于 2022-03-22 00:27:50 点赞 近期制作： 传奇私服各种反外挂插件版本挂机软件，可教可售 原神加速、连发辅助工具 天下3自动钓大鱼辅助工具 承接脚本定制，点击下方联系 QQ：250039815 交流群：101296478
	回顶部

发送短消息 UID 2283792 帖子 341 精华 0 鲜花 42 朵 铜币 855 个 银币 308 个 性别 在线时间 5680 注册时间 2013-12-03 最后登录 2024-06-01 275489389 查看公共资料 搜索主题 搜索帖子 sundebao1982 sundebao1982 组别初中二年级 UID2283792 帖子341 精华0 鲜花42 朵 铜币855 个 银币308 个 在线时间5680 注册时间2013-12-03	2# 字体大小: t T 发表于 2022-03-22 10:19 | |只看该用户 感谢分享，学习
	回顶部

发送短消息 UID 2283792 帖子 341 精华 0 鲜花 42 朵 铜币 855 个 银币 308 个 性别 在线时间 5680 注册时间 2013-12-03 最后登录 2024-06-01 275489389 查看公共资料 搜索主题 搜索帖子 sundebao1982 sundebao1982 组别初中二年级 UID2283792 帖子341 精华0 鲜花42 朵 铜币855 个 银币308 个 在线时间5680 注册时间2013-12-03	3# 字体大小: t T 发表于 2022-03-22 10:20 | |只看该用户 感谢分享，学习一下
	回顶部

发送短消息 UID 95208 帖子 3563 精华 6 鲜花 822 朵 铜币 19380 个 银币 565 个 性别 在线时间 45680 注册时间 2006-09-14 最后登录 2024-11-29 31377015 查看公共资料 搜索主题 搜索帖子 有夫之妇 官方脚本作者QQ16256223 组别官方脚本作者 UID95208 帖子3563 精华6 鲜花822 朵 铜币19380 个 银币565 个 在线时间45680 注册时间2006-09-14 按键精灵开发者6级（新浪V认证） 通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人 完成新浪微博加V的奖励，结合活动不定期开放申请。 盒子会员 盒子会员专属勋章	4# 字体大小: t T 发表于 2022-03-22 10:21 | |只看该用户 经典
	接单QQ:16256223。12年信誉保证！组别:〖官方脚本作者 网页,电脑,安卓,模拟器,验证码识别! 自动办公,网页操作,填表投票,账号注册,学习答题,聊天引流,数据监测,操作软件![/co
	回顶部

发送短消息 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	5# 字体大小: t T 发表于 2022-04-18 22:14 | |只看该用户 感谢分享
	回顶部

发送短消息 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	6# 字体大小: t T 发表于 2022-04-18 22:14 | |只看该用户 感谢分享，支持
	回顶部

发送短消息 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	7# 字体大小: t T 发表于 2022-04-18 22:18 | |只看该用户 大佬
	回顶部

发送短消息 UID 5946709 帖子 18 精华 0 鲜花 7 朵 铜币 63 个 银币 15 个 性别 在线时间 0 注册时间 2018-12-23 最后登录 2024-08-22 517884877 查看公共资料 搜索主题 搜索帖子 txw567 txw567 组别小学一年级 UID5946709 帖子18 精华0 鲜花7 朵 铜币63 个 银币15 个 在线时间0 注册时间2018-12-23	8# 字体大小: t T 发表于 2022-10-03 18:51 | |只看该用户 感谢
	回顶部

发送短消息 UID 2954598 帖子 23 精华 0 鲜花 3 朵 铜币 64 个 银币 5 个 性别 在线时间 440 注册时间 2014-12-20 最后登录 2024-08-12 12345 查看公共资料 搜索主题 搜索帖子 lqlnfghy lqlnfghy 组别小学一年级 UID2954598 帖子23 精华0 鲜花3 朵 铜币64 个 银币5 个 在线时间440 注册时间2014-12-20	9# 字体大小: t T 发表于 2023-03-02 09:07 | |只看该用户 感谢分享，这个真不错
	回顶部

发送短消息 UID 146534 帖子 861 精华 0 鲜花 385 朵 铜币 906 个 银币 767 个 性别 在线时间 6360 注册时间 2007-08-09 最后登录 2024-01-14 查看公共资料 搜索主题 搜索帖子 hz_sg hz_sg 组别大学一年级 UID146534 帖子861 精华0 鲜花385 朵 铜币906 个 银币767 个 在线时间6360 注册时间2007-08-09	10# 字体大小: t T 发表于 2023-03-02 10:17 | |只看该用户 学习一下！！！！！
	回顶部

发送短消息 UID 9079729 帖子 11 精华 0 鲜花 9 朵 铜币 30 个 银币 20 个 性别 在线时间 0 注册时间 2023-07-14 最后登录 2023-08-05 查看公共资料 搜索主题 搜索帖子 tygk2023 组别幼儿园 UID9079729 帖子11 精华0 鲜花9 朵 铜币30 个 银币20 个 在线时间0 注册时间2023-07-14	11# 字体大小: t T 发表于 2023-07-14 17:50 | |只看该用户 怎样读取 Edit输入框 中的内容？
	回顶部

发送短消息 UID 9079729 帖子 11 精华 0 鲜花 9 朵 铜币 30 个 银币 20 个 性别 在线时间 0 注册时间 2023-07-14 最后登录 2023-08-05 查看公共资料 搜索主题 搜索帖子 tygk2023 组别幼儿园 UID9079729 帖子11 精华0 鲜花9 朵 铜币30 个 银币20 个 在线时间0 注册时间2023-07-14	12# 字体大小: t T 发表于 2023-07-14 23:46 | |只看该用户 路过看看。。。。
	回顶部