按键精灵教程：控件实现抓抓获取句柄功能

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

有了这个控件，咱们可以放在QUI界面上，让用户自己获取窗口句柄，那么，通用同步器这类的脚本实现起来就轻松多了。（ps：通用同步器是指能够兼容多种游戏窗口键鼠同步功能，也就是说没办法预先知道窗口的类名，标题名去获取窗口句柄，这个时候，抓抓句柄功能就很重要了。）其实呢，“抓抓”抓句柄的功能，实现起来是很容易的，我们一起来操作看看。

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

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

2、 在图像控件点击事件中： (图像控件中设置显示图像为：光标 )①调用api修改光标形状为： ②将图像控件显示的图像改为：光标 ，点击之后就变为空的，就像是里面的光标跑走了一样。③Timer1控件的Enabled属性设置为 True ，启动计时器。

3、 在计时器Timer事件中，使用 api函数GetAsyncKeyState   检测上次按过的鼠标键，如果鼠标松开则 ：①使用  MousePoint 鼠标指向窗口 命令获取当前鼠标指向的窗口句柄。 ②将获取到的窗口句柄显示在标签中。   ③将光标形状还原成系统默认形状  ④将图像控件显示的图像改为：光标           最后将计时器 Enabled属性 设置为 false，不可用。

修改光标要使用的api函数 函数           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 功能：在更新用户配置文件之后广播消息。

判断鼠标左键按下的api函数 函 数            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 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 As 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是系统标准光标OCR_NORMAL的常数。

恢复光标形状-代码SystemParametersInfo 87, 0, 0, 2//  第一个 87是 SPI_SETCURSORS 的常数。第一个参数设置为SPI_SETCURSORS，第二个和第三个参数都设置为0.  第三个参数 2 是 SPIF_SENDCHANGED 的常数。

判断鼠标左键是否弹起LButton = GetAsyncKeyState(1)   '鼠标左键状态     If LButton =0 Then  //如果鼠标左键松开//    End If咱们的核心代码都分析完了，现在将这些代码组合起来，看看运行效果会是怎样的。

代码 Public Declare Function SetSystemCursor Lib 'user32' Alias '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 As Long, lpvParam As Any, ByVal fuWinIni As Long)Private Declare Function GetAsyncKeyState Lib 'user32' (ByVal vKey As Long) As IntegerEvent 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 IfEnd EventEvent Form1.PictureBox1.Click    hCursor = LoadCursorFromFile('c:\变化.cur')'获取光标的句柄   //api加载光标文件，不能直接加载按键附件中的文件，需释放到电脑盘符中    Call SetSystemCursor(hCursor, 32512)    //设置光标形状    Form1.Timer1.Enabled = True    Form1.PictureBox1.Picture='Attachment:\光标1.jpg' //图像控件图像改为光标1.jpgEnd EventEvent Form1.Load    PutAttachment 'c:\','变化.cur' //释放光标文件End Event