【院刊】-【201411期】控件实现抓抓获取句柄的功能 _ 学院院刊

查看: 63051\|回复: 215	[技术交流] 【院刊】-【201411期】控件实现抓抓获取句柄的功能 [复制链接]

果兒

组别初中三年级
UID2220985
帖子396
精华0
鲜花532 朵
铜币2506 个
银币334 个
在线时间480
注册时间2013-10-27

1^#

字体大小: t T

发表于 2014-11-18 16:20 | |只看楼主

控件实现抓抓获取句柄的功能

本文由按键学院提供技术支持

▂_▂_▂_▂_▂_▂_▂_▂▂_▂_▂▂_▂_▂▂_▂▂_▂_▂_▂_▂_▂_▂_▂▂_▂_▂▂_▂_▂▂_▂▂__▂_▂_▂_▂_▂_▂▂_▂_▂▂_▂_▂▂_▂▂_▂_▂_▂▂_▂▂_▂▂

在论坛上看到了一个这样的问题： 能不能添加一个类似 “抓抓” 抓句柄那样的控件？

: 您所在的用户组无法下载或查看附件

有了这个控件，咱们可以放在QUI界面上，让用户自己获取窗口句柄，那么，通用同步器这类的脚本实现起来就轻松多了。

（ps：通用同步器是指能够兼容多种游戏窗口键鼠同步功能，也就是说没办法预先知道窗口的类名，标题名去获取窗口句柄，这个时候，抓抓句柄功能就很重要了。）

其实呢，“抓抓”抓句柄的功能，实现起来是很容易的，我们一起来操作看看。

[backcolor=rgb(46, 139, 87)]实现功能[backcolor=rgb(154, 205, 50)]

点击图片控件之后鼠标不松开，到了需要获取句柄的窗口松开鼠标，获取窗口句柄显示在标签控件里。（点击图片控件之后，按住鼠标左键光标形状改变，松开鼠标之后，光标恢复系统默认形状。）

[backcolor=rgb(46, 139, 87)]思路&步骤[backcolor=rgb(154, 205, 50)]

1、画一个计时器。时间间隔设置为200毫秒，有效设置为否（即：Timer1.Enabled = false)

: 您所在的用户组无法下载或查看附件

2、在图像控件点击事件中： (图像控件中设置显示图像为：光标2.jpg

: 您所在的用户组无法下载或查看附件

)

①调用api修改光标形状为：

: 您所在的用户组无法下载或查看附件

②将图像控件显示的图像改为：光标1.jpg

: 您所在的用户组无法下载或查看附件

，点击之后就变为空的，就像是里面的光标跑走了一样。

③Timer1控件的Enabled属性设置为 True ，启动计时器。

3、在计时器Timer事件中，使用 api函数GetAsyncKeyState 检测上次按过的鼠标键，如果鼠标松开则：
①使用 MousePoint 鼠标指向窗口命令获取当前鼠标指向的窗口句柄。

②将获取到的窗口句柄显示在标签中。

③将光标形状还原成系统默认形状。
④将图像控件显示的图像改为：光标2.jpg
您所在的用户组无法下载或查看附件

最后将计时器 Enabled属性设置为 false，不可用。

[backcolor=rgb(46, 139, 87)]修改光标要使用的api函数[backcolor=rgb(154, 205, 50)]

函数	SetSystemCursor
函数功能	该函数使一个应用程序定制系统光标。
函数声明	Public Declare Function SetSystemCursor Lib "user32" Alias "SetSystemCursor" (ByVal hcur As Long, ByVal id As Long) As Long
函数语法	SetSystemCursor(hCur, id)
参数说明	hcur：替换的光标句柄。 id：被替换的系统光标标识符。

函数	LoadCursorFromFile
函数功能	在一个指针文件或一个动画指针文件（扩展名分别是.cur和.ani）的基础上创建一个指针。 //白话解释就是：获取一个光标文件的句柄
函数声明	Public Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
函数语法	LoadCursorFromFile("c:\变化.cur") //引号中为光标文件所在地址

函数	SystemParametersInfo
函数功能	该函数使一个应用程序定制系统光标。
函数声明	Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)
函数语法	SystemParametersinfo（uiAction， uiParam，pvParam， fWinlni）
参数说明	uiAction：该参数指定要查询或设置的系统级。本例子中，这个参数要取值为：SPI_SETCURSORS 功能：重置系统光标。将ulParam参数设为0并且pvParam参数设为NULL。 ulParam：与查询或设置的系统参数有关。关于系统级参数的详情。 pvParam：与查询或设置的系统参数有关。关于系统级参数的详情。 fWinlni：如果设置系统参数，则它用来指定是否更新用户配置文件（Profile）。亦或是否要将 WM_SETTINGCHANGE消息广播给所有顶层窗口，以通知它们新的变化内容。本例子中，这个参数要取值为：SPIF_SENDCHANGED 功能：在更新用户配置文件之后广播消息。

[backcolor=rgb(46, 139, 87)]判断鼠标左键按下的api函数[backcolor=rgb(154, 205, 50)]

函数	GetAsyncKeyState
函数功能	用来判断函数调用时指定虚拟键的状态。
函数声明	Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
返回值	GetAsyncKeyState 返回值等于1 说明键已经被按过并且当前是松开的状态 GetAsyncKeyState 返回值等于0 说明键是松开的状态 GetAsyncKeyState 返回值等于- 32767 说明键是按下的状态

调用api函数之前，要先声明，声明部分代码如下：

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

复制代码

[backcolor=rgb(46, 139, 87)]修改光标形状-代码[backcolor=rgb(154, 205, 50)]

hCursor = LoadCursorFromFile("c:\变化.cur")'获取光标的句柄 //api加载光标文件，不能直接加载按键附件中的文件，需释放到电脑盘符中
Call SetSystemCursor(hCursor, 32512) //设置光标形状 32512是系统标准光标OCR_NORMAL的常数。

复制代码

[backcolor=rgb(46, 139, 87)]恢复光标形状-代码[backcolor=rgb(154, 205, 50)]

SystemParametersInfo 87, 0, 0, 2
// 第一个 87是 SPI_SETCURSORS 的常数。第一个参数设置为SPI_SETCURSORS，第二个和第三个参数都设置为0. 第三个参数 2 是 SPIF_SENDCHANGED 的常数。

复制代码

[backcolor=rgb(46, 139, 87)]判断鼠标左键是否弹起[backcolor=rgb(154, 205, 50)]

LButton = GetAsyncKeyState(1) '鼠标左键状态
If LButton =0 Then //如果鼠标左键松开
//
End If

复制代码

咱们的核心代码都分析完了，现在将这些代码组合起来，看看运行效果会是怎样的。

[backcolor=rgb(46, 139, 87)]代码
[backcolor=rgb(46, 139, 87)]

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) '鼠标左键状态
//RButton =GetAsyncKeyState(2) '鼠标右键状态
If LButton =0 Then //如果鼠标左键松开
hwnd=Plugin.Window.MousePoint()
Form1.Label1.Caption = hwnd
Form1.PictureBox1.Picture = "Attachment:\光标2.jpg" //图像控件图像改为光标2.jpg
SystemParametersInfo 87, 0, 0, 2 //还原光标形状
Form1.Timer1.Enabled = False
End If
End Event
Event Form1.PictureBox1.Click
hCursor = LoadCursorFromFile("c:\变化.cur")'获取光标的句柄 //api加载光标文件，不能直接加载按键附件中的文件，需释放到电脑盘符中
Call SetSystemCursor(hCursor, 32512) //设置光标形状
Form1.Timer1.Enabled = True
Form1.PictureBox1.Picture="Attachment:\光标1.jpg" //图像控件图像改为光标1.jpg
End Event
Event Form1.Load
PutAttachment "c:\","变化.cur" //释放光标文件
End Event

复制代码

[backcolor=rgb(46, 139, 87)]效果[backcolor=rgb(154, 205, 50)]

: 您所在的用户组无法下载或查看附件

录制的时候光标是录制软件的光标，看不到效果。上传Q文件，有兴趣的童鞋可以下载看看。

Q文件下载：

: 您所在的用户组无法下载或查看附件

: 您所在的用户组无法下载或查看附件

: 您所在的用户组无法下载或查看附件

2个月学会赚大钱的脚本

按键学院实战班

已有6评分我要评分查看所有评分

本主题由管理员兄弟客服03 于 2023/8/31 10:34:16 执行审核帖子操作

按键学院免费交流群：376122403

按键学院招生计划
按键学院系统教程

回顶部

发送短消息 UID 3964919 帖子 43 精华 0 鲜花 -1 朵铜币 206 个银币 -1 个性别在线时间 2000 注册时间 2016-06-11 最后登录 2017-08-31 查看公共资料搜索主题搜索帖子 pp队长组别小学二年级 UID3964919 帖子43 精华0 鲜花-1 朵铜币206 个银币-1 个在线时间2000 注册时间2016-06-11	2^# 字体大小: t T 发表于 2016-07-09 18:54 \| \|只看该用户到达的到达的顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶


	回顶部

发送短消息 UID 2698739 帖子 38 精华 0 鲜花 0 朵铜币 136 个银币 0 个性别在线时间 1480 注册时间 2014-08-23 最后登录 2017-12-13 154766979 查看公共资料搜索主题搜索帖子 zhou198799 zhou198799 组别小学二年级 UID2698739 帖子38 精华0 鲜花0 朵铜币136 个银币0 个在线时间1480 注册时间2014-08-23	3^# 字体大小: t T 发表于 2016-10-20 17:04 \| \|只看该用户好看好看


	回顶部

发送短消息 UID 3749983 帖子 52 精华 0 鲜花 0 朵铜币 107 个银币 1 个性别在线时间 1780 注册时间 2016-02-09 最后登录 2024-03-17 1175057271 查看公共资料搜索主题搜索帖子寻梦像扑火寻梦像扑火组别小学三年级 UID3749983 帖子52 精华0 鲜花0 朵铜币107 个银币1 个在线时间1780 注册时间2016-02-09	4^# 字体大小: t T 发表于 2016-10-21 09:56 \| \|只看该用户学习，不错


	回顶部

发送短消息 UID 217339 帖子 12 精华 0 鲜花 0 朵铜币 30 个银币 0 个性别在线时间 180 注册时间 2009-01-15 最后登录 2017-10-02 查看公共资料搜索主题搜索帖子 baobeizh baobeizh 组别幼儿园 UID217339 帖子12 精华0 鲜花0 朵铜币30 个银币0 个在线时间180 注册时间2009-01-15	5^# 字体大小: t T 发表于 2016-10-22 09:42 \| \|只看该用户感谢楼主，学习下


	回顶部

发送短消息 UID 4159313 帖子 35 精华 0 鲜花 0 朵铜币 90 个银币 0 个性别在线时间 1420 注册时间 2016-10-12 最后登录 2017-01-04 913764799 查看公共资料搜索主题搜索帖子 ayst105 ayst105 组别小学二年级 UID4159313 帖子35 精华0 鲜花0 朵铜币90 个银币0 个在线时间1420 注册时间2016-10-12	6^# 字体大小: t T 发表于 2016-10-22 10:17 \| \|只看该用户分辨地方


	回顶部

发送短消息 UID 3203455 帖子 63 精华 0 鲜花 2 朵铜币 215 个银币 13 个性别在线时间 4160 注册时间 2015-04-18 最后登录 2024-11-21 查看公共资料搜索主题搜索帖子 81961922 81961922 组别小学三年级 UID3203455 帖子63 精华0 鲜花2 朵铜币215 个银币13 个在线时间4160 注册时间2015-04-18	7^# 字体大小: t T 发表于 2016-10-22 12:20 \| \|只看该用户下载学习


	回顶部

发送短消息 UID 4172386 帖子 19 精华 0 鲜花 -1 朵铜币 47 个银币 -1 个性别在线时间 540 注册时间 2016-10-20 最后登录 2016-11-13 查看公共资料搜索主题搜索帖子 Stanley_Rei 组别小学一年级 UID4172386 帖子19 精华0 鲜花-1 朵铜币47 个银币-1 个在线时间540 注册时间2016-10-20	8^# 字体大小: t T 发表于 2016-10-23 23:14 \| \|只看该用户


	回顶部

发送短消息 UID 3116305 帖子 27 精华 0 鲜花 3 朵铜币 80 个银币 5 个性别在线时间 1700 注册时间 2015-03-09 最后登录 2016-11-15 查看公共资料搜索主题搜索帖子 googlebaidu googlebaidu 组别按键精灵会员 UID3116305 帖子27 精华0 鲜花3 朵铜币80 个银币5 个在线时间1700 注册时间2015-03-09	9^# 字体大小: t T 发表于 2016-10-23 23:57 \| \|只看该用户来学习下


	回顶部

发送短消息 UID 1777173 帖子 110 精华 0 鲜花 -1 朵铜币 196 个银币 -1 个性别在线时间 2340 注册时间 2013-05-01 最后登录 2017-10-10 85433693 查看公共资料搜索主题搜索帖子 wb13937441412 wb13937441412 组别小学六年级 UID1777173 帖子110 精华0 鲜花-1 朵铜币196 个银币-1 个在线时间2340 注册时间2013-05-01	10^# 字体大小: t T 发表于 2016-10-24 04:50 \| \|只看该用户 56656565656565


	回顶部

发送短消息 UID 191906 帖子 81 精华 0 鲜花 0 朵铜币 122 个银币 0 个性别在线时间 1740 注册时间 2008-08-26 最后登录 2018-03-18 查看公共资料搜索主题搜索帖子 zbfzhi zbfzhi 组别小学四年级 UID191906 帖子81 精华0 鲜花0 朵铜币122 个银币0 个在线时间1740 注册时间2008-08-26	11^# 字体大小: t T 发表于 2016-10-25 09:24 \| \|只看该用户 456467843


	回顶部

发送短消息 UID 4098840 帖子 54 精华 0 鲜花 0 朵铜币 153 个银币 4 个性别在线时间 2320 注册时间 2016-09-01 最后登录 2018-03-05 查看公共资料搜索主题搜索帖子 dmanjian 组别小学三年级 UID4098840 帖子54 精华0 鲜花0 朵铜币153 个银币4 个在线时间2320 注册时间2016-09-01 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	12^# 字体大小: t T 发表于 2016-10-26 20:43 \| \|只看该用户


	回顶部

发送短消息 UID 4138454 帖子 49 精华 0 鲜花 0 朵铜币 203 个银币 0 个性别在线时间 2660 注册时间 2016-09-28 最后登录 2017-02-20 2577103829 查看公共资料搜索主题搜索帖子 zxcasdm zxcasdm 组别小学二年级 UID4138454 帖子49 精华0 鲜花0 朵铜币203 个银币0 个在线时间2660 注册时间2016-09-28 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	13^# 字体大小: t T 发表于 2016-10-28 00:45 \| \|只看该用户真是太好了


	回顶部

发送短消息 UID 3176109 帖子 37 精华 0 鲜花 0 朵铜币 110 个银币 0 个性别在线时间 640 注册时间 2015-04-05 最后登录 2016-11-20 查看公共资料搜索主题搜索帖子 hjljacky hjljacky 组别小学二年级 UID3176109 帖子37 精华0 鲜花0 朵铜币110 个银币0 个在线时间640 注册时间2015-04-05	14^# 字体大小: t T 发表于 2016-10-29 22:42 \| \|只看该用户


	回顶部

发送短消息 UID 2734109 帖子 130 精华 0 鲜花 0 朵铜币 318 个银币 63 个性别在线时间 8900 注册时间 2014-09-11 最后登录 2023-06-29 查看公共资料搜索主题搜索帖子 320678191 有些路，只能一个人走。组别小学六年级 UID2734109 帖子130 精华0 鲜花0 朵铜币318 个银币63 个在线时间8900 注册时间2014-09-11 按键精灵开发者3级可通过提升认证等级来升级勋章：rz.anjian.com	15^# 字体大小: t T 发表于 2016-10-30 14:17 \| \|只看该用户看内容，.。


	回顶部

发送短消息 UID 4185766 帖子 133 精华 0 鲜花 18 朵铜币 1345 个银币 0 个性别在线时间 5020 注册时间 2016-10-29 最后登录 2017-06-26 281824611 查看公共资料搜索主题搜索帖子爱瞎掰爱瞎掰组别按键精灵会员 UID4185766 帖子133 精华0 鲜花18 朵铜币1345 个银币0 个在线时间5020 注册时间2016-10-29	16^# 字体大小: t T 发表于 2016-10-31 16:43 \| \|只看该用户好强大的功能
	你笑一次,我就可以高兴好几天；可看你哭一次,我就难过了好几年。你永远也看不到我最寂寞时候的样子，因为只有你不在我身边的时候，我才最寂寞。

	回顶部

发送短消息 UID 4173648 帖子 11 精华 0 鲜花 0 朵铜币 48 个银币 0 个性别在线时间 280 注册时间 2016-10-21 最后登录 2016-11-05 查看公共资料搜索主题搜索帖子 124973306 组别幼儿园 UID4173648 帖子11 精华0 鲜花0 朵铜币48 个银币0 个在线时间280 注册时间2016-10-21	17^# 字体大小: t T 发表于 2016-11-02 10:33 \| \|只看该用户学习中


	回顶部

发送短消息 UID 4190961 帖子 25 精华 0 鲜花 0 朵铜币 52 个银币 0 个性别在线时间 640 注册时间 2016-11-01 最后登录 2020-07-02 查看公共资料搜索主题搜索帖子 me7eor 组别幼儿园 UID4190961 帖子25 精华0 鲜花0 朵铜币52 个银币0 个在线时间640 注册时间2016-11-01	18^# 字体大小: t T 发表于 2016-11-06 01:56 \| \|只看该用户学习看一下


	回顶部

发送短消息 UID 3229414 帖子 12 精华 0 鲜花 1 朵铜币 40 个银币 0 个性别在线时间 140 注册时间 2015-05-02 最后登录 2016-11-14 查看公共资料搜索主题搜索帖子 chwflyinsky chwflyinsky 组别幼儿园 UID3229414 帖子12 精华0 鲜花1 朵铜币40 个银币0 个在线时间140 注册时间2015-05-02	19^# 字体大小: t T 发表于 2016-11-14 14:27 \| \|只看该用户天天學習天天向上


	回顶部

发送短消息 UID 3169128 帖子 170 精华 0 鲜花 7 朵铜币 474 个银币 11 个性别在线时间 5340 注册时间 2015-04-02 最后登录 2024-06-03 查看公共资料搜索主题搜索帖子 luckwoo luckwoo 组别初中一年级 UID3169128 帖子170 精华0 鲜花7 朵铜币474 个银币11 个在线时间5340 注册时间2015-04-02	20^# 字体大小: t T 发表于 2016-11-18 00:38 \| \|只看该用户对方的身份舒服舒服


	回顶部

上一主题| 下一主题

发送短消息 UID 4185766 帖子 133 精华 0 鲜花 18 朵铜币 1345 个银币 0 个性别在线时间 5020 注册时间 2016-10-29 最后登录 2017-06-26 281824611 查看公共资料搜索主题搜索帖子爱瞎掰爱瞎掰组别按键精灵会员 UID4185766 帖子133 精华0 鲜花18 朵铜币1345 个银币0 个在线时间5020 注册时间2016-10-29	16^# 字体大小: t T 发表于 2016-10-31 16:43 \| \|只看该用户好强大的功能
	你笑一次,我就可以高兴好几天；可看你哭一次,我就难过了好几年。你永远也看不到我最寂寞时候的样子，因为只有你不在我身边的时候，我才最寂寞。

	回顶部

[技术交流] 【院刊】-【201411期】控件实现抓抓获取句柄的功能 [复制链接]

分辨