一个按键精灵后台发送消息的脚本

时间：2024-02-16 18:44:08

以前，我也用过按键精灵写过一些脚本，那时候经常用这个来挂机FB什么的。

那天，某网友问起，于是就回答了下

无非就是，抓句柄，然后相对定位坐标或者发送消息到固定窗体

代码如下：

 1 //////////////////////////抓窗口句柄//////////////////////////////////////////
 2  
 3 Dim Hwnd
 4  
 5 Hwnd = Plugin.Window.MousePoint()
 6  
 7 sWindow = Plugin.Window.IsWindow(Hwnd)
 8  
 9 If sWindow = -1  Then 
10      
11     Hwnd = Plugin.Window.Foreground()
12  
13 End If
14  
15 sRect = Plugin.Window.GetClientRect(Hwnd)
16  
17  
18 XYArray = Split(sRect, "|")
19  
20 dx = Clng(XYArray(0))
21  
22 dy = Clng(XYArray(1))   
23  
24 //////////////////////////窗口句柄结束//////////////////////////////////////////////
25 //////////////////////////////上面不理解，可无视///////////////////////////
26 /////////////////////////////自己参照下面的写法/////////////////////////////////////
27 Call Plugin.Bkgnd.MoveTo(Hwnd, 830-dx, 247-dy) //移动鼠标到指定位置
28 Call Plugin.Bkgnd.RightClick(Hwnd, 830-dx, 247-dy)//右键
29 Call Plugin.Bkgnd.KeyDown(Hwnd, 112) //按下F1，其他键值自己百度
30 Delay 200
31 Call Plugin.Bkgnd.KeyUp(Hwnd, 112) //放开F1
32 Delay 43000

 

相关文章