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

按键精灵教程：控件实现抓抓获取句柄功能 来源：按键学院 【按键精灵】 在按键精灵论坛上看到了一个这样的问题：?能不能添加一个类似 “抓抓” 抓句柄那样的控件？ 有了这个控件，咱们可以放在QUI界面上，让用户自己获取窗口句柄，那么，通用同步器这类的脚本实现起来就轻松多了。 （ps：通用同步器是指能够兼容多种游戏窗口键鼠同步功能，也就是说没办法预先知道窗口的类名，标题名去获取窗口句柄，这个时候，抓抓句柄功能就很重要了。） 其实呢，“抓抓”抓句柄的功能，实现起来是很容易的，我们一起来操作看看。 实现功能?? 点击图片控件之后鼠标不松开，到了需要获取句柄的窗口松开鼠标，获取窗口句柄显示在标签控件里。（点击图片控件之后，按住鼠标左键光标形状改变，松开鼠标之后，光标恢复系统默认形状。） 思路步骤? ??1、?画一个计时器。 时间间隔设置为200毫秒，有效设置为否（ 即：Timer1.Enabled = false) 2、?在图像控件点击事件中： (图像控件中设置显示图像为：光标2.jpg????)①调用api修改光标形状为：?②将图像控件显示的图像改为：光标1.jpg??，点击之后就变为空的，就像是里面的光标跑走了一样。③Timer1控件的Enabled属性设置为 True??，启动计时器。??? ?在计时器Timer事件中，使用 api函数GetAsyncKeyState? ?检测上次按过的鼠标键，如果鼠标松开则 ：①使用??MousePoint 鼠标指向窗口 命令获取当前鼠标指向的窗口句柄。?②将获取到的窗口句柄显示在标签中。?? ③将光标形状还原成系统默认形状 ?④将图像控件显示的图像改为：光标2.jpg????? ?????最后将计时器 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消息广播给所有顶层窗口，以通知它们新的变化内容。? ?? ??