《按键精灵教程：控件实现抓抓获取句柄功能》由会员分享，可在线阅读，更多相关《按键精灵教程：控件实现抓抓获取句柄功能（6页珍藏版）》请在装配图网上搜索。
1、按键精灵教程：控件实现抓抓获取句柄功能来源：按键学院 【按键精灵】在按键精灵论坛上看到了一个这样的问题：能不能添加一个类似抓抓”抓句柄那样的控件？工具 20R-0L. 141231旬柄既取客户废內谥标辰置H T -rui.Ern.lrL IH A心有了这个控件，咱们可以放在QUI界面上，让用户自己获取窗口句柄，那么，通用同步器 这类的脚本实现起来就轻松多了。（ps :通用同步器是指能够兼容多种游戏窗口键鼠同步功能，也就是说没办法预先知道窗 口的类名，标题名去获取窗口句柄，这个时候，抓抓句柄功能就很重要了。） 其实呢，抓抓”抓句柄的功能，实现起来是很容易的，我们一起来操作看看。实现功能点击图片控
2、件之后鼠标不松开倒了需要获取句柄的窗口松开鼠标，获取窗口句柄显示在标 签控件里。（点击图片控件之后，按住鼠标左键光标形状改变，松开鼠标之后，光标恢复系统默认形状。）思路&步骤1、画一个计时器。时间间隔设置为200毫秒，有效设置为否（即：Timer1.Enabled=false)2、在图像控件点击事件中：（图像控件中设置显示图像为：光标2jpg 调用api修改光标形状为： 将图像控件显示的图像改为：光标1.jpg 一I，点击之后就变为空的，就像是里面的光 标跑走了一样。Timer1控件的Enabled属性设置为True，启动计时器。3、在计时器Timer事件中，使用api函数GetAsyncKe
3、yState检测上次按过的鼠标键，如果鼠标松开则使用MousePoint鼠标指向窗口命令获取当前鼠标指向的窗口句柄。将获取到的窗口句柄显示在标签中。 将光标形状还原成系统默认形状将图像控件显示的图像改为：光标2.jpg最后将计时器Enabled属性设置为false，不可用。修改光标要使用的api函数函 数SetSystemCursor函数功能该函数使一个应用程序定制系统光标。函数声明Public Declare Function SetSystemCursor Lib user32 Alias SetSystemCurs (ByVal hcur As Long, ByVal id As Lon
4、g) 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
5、（c:变化.cur） /引号中为光标文件所在地址数函数功能该函数使一个应用程序定制系统光标。Public Declare Function SystemParametersInfo Lib user32 Alia 函数声明SystemParametersInfoA (ByVal uAction As Long, ByVal uParamLong, lpvParam As Any, ByVal fuWinIni As Long)函数语法SystemParametersinfo (uiAction, uiParam, pvParam, fWinlniuiAction：该参数指定要查询或设置的系统级
6、。本例子中，这个参数要取值为：SPI_SETCURSORS功能 置系统光标。将ulParam参数设为0并且pvParam设为NULL。ulParam：与查询或设置的系统参数有关。关于系统级参数的详情。参数说明pvParam：与查询或设置的系统参数有关。关于系统级参数的详情。fWinlni： 如果设置系统参数，则它用来指定是否更新用户配置文件(Prof 亦或是否要将WM_SETTINGCHANGE 消广播给所有顶层窗口，以通知它们新的变化内容。本例子中，这个参数要取值为:SPIF_SENDCHANGED: 在更新用户配置文件之后广播消息。判断鼠标左键按下的api函数函 数GetAsyncKeyS
7、tate函数功能用来判断函数调用时指定虚拟键的状态。函数声明Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Lon Integer返回值GetAsyncKeyState返回值等于1说明键已经被按过并且当前是松开的状态GetAsyncKeyState返回值等于0说明键是松开的状态GetAsyncKeyState返回值等于-32767说明键是按下的状态调用api函数之前，要先声明，声明部分代码如下:Public Declare Function SetSystemCursor Lib user32 Alias
8、SetSystemCursor (ByVal hcur As Long, ByVal id As Long) As LongPublic Declare Function LoadCursorFromFile Lib user32 Alias LoadCursorFromFileA (ByVal lpFileName As String) As LongPublic Declare Function SystemParametersInfo Lib user32 Alias SystemParametersInfoA (ByVal uAction As Long, ByVal uParam A
9、s Long, lpvParam As Any, ByVal fuWinIni As Long)Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As Integer修改光标形状-代码hCursor = LoadCursorFromFile(c:陵化.cur)获取光标的句柄 api加载光标文件，不能直接加载按键附件中的文件，需 释放到电脑盘符中Call SetSystemCursor(hCursor, 32512)设置光标形状 32512 是系统标准光标0CR_NORMAL的常数。恢复光标形状-代
10、码SystemParametersInfo 87, 0, 0, 2/第一个87是SPLSETCURSORS的常数。第一个参数设置为SPI_SETCURSORS,第二个和第三个参数都设置为0.第三 个参数 2 是 SPIF_SENDCHANGED 的常数。判断鼠标左键是否弹起LButton = GetAsyncKeyState(1) 鼠标左键状态If LButton =0 Then /如果鼠标左键松开/End If咱们的核心代码都分析完了，现在将这些代码组合起来，看看运行效果会是怎样的代码Public Declare Function SetSystemCursor Lib user32 Ali
11、as SetSystemCursor (ByVal hcur As Long, ByVal id As Long)As LongPublic Declare Function LoadCursorFromFile Lib user32 Alias LoadCursorFromFileA (ByVal lpFileName As String) As LongPublic Declare Function SystemParametersInfo Lib user32 Alias SystemParametersInfoA (ByVal uAction As Long, ByVal uParam
12、 As Long, lpvParam As Any, ByVal fuWinIni As Long)Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As IntegerEvent Form1.Timer1.TimerLButton = GetAsyncKeyState(1) 鼠标左键状态/RButton =GetAsyncKeyState(2) 鼠标右键状态If LButton =0 Then /如果鼠标左键松开 hwnd=Plugin.Window.MousePoint()Form1.Labe
13、l1.Caption = hwndForml.PictureBoxl.Picture = Attachment:诜标 2.jpg 图像控件图像改为光标 2.jpg SystemParametersInfo 87, 0, 0, 2 /还原光标形状Form1.Timer1.Enabled = FalseEnd IfEnd EventEvent Form1.PictureBox1.ClickhCursor = LoadCursorFromFile(c:喪化.cur)获取光标的句柄api加载光标文件不能直接加载按键附件中的文件，需释放到电脑盘符中Call SetSystemCursor(hCursor, 32512) /设置光标形状Form1.Timer1.Enabled = TrueForm1.PictureBox1.Picture = Attachment:光标 1.jpg 图像控件图像改为光标 1.jpgEnd EventEvent Form1.LoadPutAttachment c:,变化.cur 释放光标文件End Event
按键精灵教程：控件实现抓抓获取句柄功能
