分享2个某鬼扣出来的后台鼠标源码

追忆帝

  

子程序名	返回值类型	公开	备 注
后台_鼠标消息A			向指定窗口句柄发送鼠标左键单击。 鼠标按键：1（鼠标左键） 2（鼠标右键） 3（鼠标中键） 4（鼠标左键双击） 5（鼠标右键双击）
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
x坐标	整数型
y坐标	整数型
鼠标按键	整数型				空默认为1（鼠标左键） 2（鼠标右键） 3（鼠标中键） 4（鼠标左键双击） 5（鼠标右键双击）

如果真 (是否为空 (鼠标按键) 或 鼠标按键 ＝ 1)  ' 鼠标左键
PostMessageA (窗口句柄, 513, 1, y坐标 × 65536 ＋ x坐标)
PostMessageA (窗口句柄, 514, 1, y坐标 × 65536 ＋ x坐标)
如果真 (鼠标按键 ＝ 2)  ' 鼠标右键
PostMessageA (窗口句柄, 516, 1, y坐标 × 65536 ＋ x坐标)
PostMessageA (窗口句柄, 517, 1, y坐标 × 65536 ＋ x坐标)
如果真 (鼠标按键 ＝ 3)  ' 鼠标中键
PostMessageA (窗口句柄, 519, 1, y坐标 × 65536 ＋ x坐标)
PostMessageA (窗口句柄, 520, 1, y坐标 × 65536 ＋ x坐标)
如果真 (鼠标按键 ＝ 4)  ' 鼠标左键双击
PostMessageA (窗口句柄, 515, 1, y坐标 × 65536 ＋ x坐标)
如果真 (鼠标按键 ＝ 5)  ' 鼠标右键双击
PostMessageA (窗口句柄, 518, 1, y坐标 × 65536 ＋ x坐标)

子程序名	返回值类型	公开	备 注
后台_鼠标消息B			向指定窗口发送鼠标动作消息
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				接收鼠标消息窗口句柄
x坐标	整数型				x坐标
y坐标	整数型				y坐标
键	整数型				可空:为左键 1 #左键  2 #右键  3 #中键  4 #中键上滚动  5 #中键下滚动 (滚动前后请按下放开中键)
控制	整数型				可空:为单击 1 #单击  2 #双击  3 #按下  4 #放开

变量名	类 型	静态	数组	备 注
坐标位置	整数型

坐标位置 ＝ x坐标 ＋ y坐标 × 65536
如果真 (键 ＝ 4)  '
PostMessageA (窗口句柄, 522, 7864336, 坐标位置 ＋ 25100873)
返回 ()
如果真 (键 ＝ 5)  '
PostMessageA (窗口句柄, 522, -7864304, 坐标位置 ＋ 25100873)
返回 ()
PostMessageA (窗口句柄, 512, 2, 坐标位置)
如果真 (键 ＝ 0 或 键 ＝ 1)
如果真 (控制 ＝ 0 或 控制 ＝ 1)
PostMessageA (窗口句柄, 513, 1, 坐标位置)
PostMessageA (窗口句柄, 514, 0, 坐标位置)
如果真 (控制 ＝ 2)
PostMessageA (窗口句柄, 513, 1, 坐标位置)
PostMessageA (窗口句柄, 514, 0, 坐标位置)
PostMessageA (窗口句柄, 515, 0, 坐标位置)
如果真 (控制 ＝ 3)
PostMessageA (窗口句柄, 513, 1, 坐标位置)
如果真 (控制 ＝ 4)
PostMessageA (窗口句柄, 514, 0, 坐标位置)
返回 ()
如果真 (键 ＝ 2)
如果真 (控制 ＝ 0 或 控制 ＝ 1)
PostMessageA (窗口句柄, 516, 2, 坐标位置)
PostMessageA (窗口句柄, 517, 2, 坐标位置)
如果真 (控制 ＝ 2)
PostMessageA (窗口句柄, 516, 2, 坐标位置)
PostMessageA (窗口句柄, 517, 2, 坐标位置)
PostMessageA (窗口句柄, 518, 0, 坐标位置)
如果真 (控制 ＝ 3)
PostMessageA (窗口句柄, 516, 2, 坐标位置)
如果真 (控制 ＝ 4)
PostMessageA (窗口句柄, 517, 2, 坐标位置)
PostMessageA (窗口句柄, 123, 132782, 坐标位置 ＋ 25100873)
返回 ()
如果真 (键 ＝ 3)
如果真 (控制 ＝ 0 或 控制 ＝ 1)
PostMessageA (窗口句柄, 519, 16, 坐标位置)
PostMessageA (窗口句柄, 520, 0, 坐标位置)
如果真 (控制 ＝ 2)
PostMessageA (窗口句柄, 519, 16, 坐标位置)
PostMessageA (窗口句柄, 520, 0, 坐标位置)
PostMessageA (窗口句柄, 521, 0, 坐标位置)
如果真 (控制 ＝ 3)
PostMessageA (窗口句柄, 519, 16, 坐标位置)
如果真 (控制 ＝ 4)
PostMessageA (窗口句柄, 520, 0, 坐标位置)
返回 ()

.版本 2<br /> <br /> .子程序 后台_鼠标消息A, , , 向指定窗口句柄发送鼠标左键单击。 鼠标按键：1（鼠标左键） 2（鼠标右键） 3（鼠标中键） 4（鼠标左键双击） 5（鼠标右键双击）<br /> .参数 窗口句柄, 整数型<br /> .参数 x坐标, 整数型<br /> .参数 y坐标, 整数型<br /> .参数 鼠标按键, 整数型, 可空, 空默认为1（鼠标左键） 2（鼠标右键） 3（鼠标中键） 4（鼠标左键双击） 5（鼠标右键双击）<br /> <br /> .如果真 (是否为空 (鼠标按键) 或 鼠标按键 ＝ 1)  ' 鼠标左键<br />     PostMessageA (窗口句柄, 513, 1, y坐标 × 65536 ＋ x坐标)<br />     PostMessageA (窗口句柄, 514, 1, y坐标 × 65536 ＋ x坐标)<br /> <br /> .如果真结束<br /> .如果真 (鼠标按键 ＝ 2)  ' 鼠标右键<br />     PostMessageA (窗口句柄, 516, 1, y坐标 × 65536 ＋ x坐标)<br />     PostMessageA (窗口句柄, 517, 1, y坐标 × 65536 ＋ x坐标)<br /> <br /> .如果真结束<br /> .如果真 (鼠标按键 ＝ 3)  ' 鼠标中键<br />     PostMessageA (窗口句柄, 519, 1, y坐标 × 65536 ＋ x坐标)<br />     PostMessageA (窗口句柄, 520, 1, y坐标 × 65536 ＋ x坐标)<br /> <br /> .如果真结束<br /> .如果真 (鼠标按键 ＝ 4)  ' 鼠标左键双击<br />     PostMessageA (窗口句柄, 515, 1, y坐标 × 65536 ＋ x坐标)<br /> <br /> .如果真结束<br /> .如果真 (鼠标按键 ＝ 5)  ' 鼠标右键双击<br />     PostMessageA (窗口句柄, 518, 1, y坐标 × 65536 ＋ x坐标)<br /> .如果真结束<br /> <br /> <br /> .子程序 后台_鼠标消息B, , 公开, 向指定窗口发送鼠标动作消息<br /> .参数 窗口句柄, 整数型, , 接收鼠标消息窗口句柄<br /> .参数 x坐标, 整数型, , x坐标<br /> .参数 y坐标, 整数型, , y坐标<br /> .参数 键, 整数型, 可空, 可空:为左键 1 #左键  2 #右键  3 #中键  4 #中键上滚动  5 #中键下滚动 (滚动前后请按下放开中键)<br /> .参数 控制, 整数型, 可空, 可空:为单击 1 #单击  2 #双击  3 #按下  4 #放开<br /> .局部变量 坐标位置, 整数型<br /> <br /> 坐标位置 ＝ x坐标 ＋ y坐标 × 65536<br /> .如果真 (键 ＝ 4)  ' <br />     PostMessageA (窗口句柄, 522, 7864336, 坐标位置 ＋ 25100873)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (键 ＝ 5)  ' <br />     PostMessageA (窗口句柄, 522, -7864304, 坐标位置 ＋ 25100873)<br />     返回 ()<br /> .如果真结束<br /> PostMessageA (窗口句柄, 512, 2, 坐标位置)<br /> <br /> .如果真 (键 ＝ 0 或 键 ＝ 1)<br />     .如果真 (控制 ＝ 0 或 控制 ＝ 1)<br />         PostMessageA (窗口句柄, 513, 1, 坐标位置)<br />         PostMessageA (窗口句柄, 514, 0, 坐标位置)<br />     .如果真结束<br />     .如果真 (控制 ＝ 2)<br />         PostMessageA (窗口句柄, 513, 1, 坐标位置)<br />         PostMessageA (窗口句柄, 514, 0, 坐标位置)<br />         PostMessageA (窗口句柄, 515, 0, 坐标位置)<br />     .如果真结束<br />     .如果真 (控制 ＝ 3)<br />         PostMessageA (窗口句柄, 513, 1, 坐标位置)<br />     .如果真结束<br />     .如果真 (控制 ＝ 4)<br />         PostMessageA (窗口句柄, 514, 0, 坐标位置)<br />     .如果真结束<br />     返回 ()<br /> <br /> .如果真结束<br /> .如果真 (键 ＝ 2)<br />     .如果真 (控制 ＝ 0 或 控制 ＝ 1)<br />         PostMessageA (窗口句柄, 516, 2, 坐标位置)<br />         PostMessageA (窗口句柄, 517, 2, 坐标位置)<br />     .如果真结束<br />     .如果真 (控制 ＝ 2)<br />         PostMessageA (窗口句柄, 516, 2, 坐标位置)<br />         PostMessageA (窗口句柄, 517, 2, 坐标位置)<br />         PostMessageA (窗口句柄, 518, 0, 坐标位置)<br />     .如果真结束<br />     .如果真 (控制 ＝ 3)<br />         PostMessageA (窗口句柄, 516, 2, 坐标位置)<br />     .如果真结束<br />     .如果真 (控制 ＝ 4)<br />         PostMessageA (窗口句柄, 517, 2, 坐标位置)<br />     .如果真结束<br />     PostMessageA (窗口句柄, 123, 132782, 坐标位置 ＋ 25100873)<br />     返回 ()<br /> <br /> .如果真结束<br /> .如果真 (键 ＝ 3)<br />     .如果真 (控制 ＝ 0 或 控制 ＝ 1)<br />         PostMessageA (窗口句柄, 519, 16, 坐标位置)<br />         PostMessageA (窗口句柄, 520, 0, 坐标位置)<br />     .如果真结束<br />     .如果真 (控制 ＝ 2)<br />         PostMessageA (窗口句柄, 519, 16, 坐标位置)<br />         PostMessageA (窗口句柄, 520, 0, 坐标位置)<br />         PostMessageA (窗口句柄, 521, 0, 坐标位置)<br />     .如果真结束<br />     .如果真 (控制 ＝ 3)<br />         PostMessageA (窗口句柄, 519, 16, 坐标位置)<br />     .如果真结束<br />     .如果真 (控制 ＝ 4)<br />         PostMessageA (窗口句柄, 520, 0, 坐标位置)<br />     .如果真结束<br />     返回 ()<br /> .如果真结束

  

DLL命令名	返回值类型	公开	备 注
PostMessageA	逻辑型		投递消息
DLL库文件名:
user32.dll
在DLL库中对应命令名:
PostMessageA
参数名	类 型	传址	数组	备 注
hwnd	整数型
消息号	整数型
消息参数1	整数型
消息参数2	整数型

.版本 2<br /> <br /> .DLL命令 PostMessageA, 逻辑型, "user32.dll", "PostMessageA", 公开, 投递消息<br />     .参数 hwnd, 整数型<br />     .参数 消息号, 整数型<br />     .参数 消息参数1, 整数型<br />     .参数 消息参数2, 整数型

刚好用到，某位热心群友指导使用，我嫌模块太臃肿 把功能扣出来了



补充内容 (2021-7-11 15:07):
@凄海千秋QHQQ
提供简单写法：
旧：坐标位置 ＝ x坐标 ＋ y坐标 × 65536
新：合并整数(x坐标,y坐标)

追忆帝

  

name ＝ “测试程序.exe”
hwnd ＝ 进程_名取句柄 (name)
窗口_枚举所有子窗口 (hwnd, 数组, “Button”)
后台_鼠标消息A (数组 [1], 1, 1, 1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> name ＝ “测试程序.exe”<br /> hwnd ＝ 进程_名取句柄 (name)<br /> 窗口_枚举所有子窗口 (hwnd, 数组, “Button”)<br /> 后台_鼠标消息A (数组 [1], 1, 1, 1)

这就是我测试的时候使用到的命令；仅供参考，模块使用到[精易模块]

zzh233

这个跟精易里面的有啥区别那 如果好的可以收纳

shuxiang

zzh233 发表于 2021-7-7 11:04
这个跟精易里面的有啥区别那 如果好的可以收纳

代码没区别，就是鼠标消息来的

追忆帝

zzh233 发表于 2021-7-7 11:04
这个跟精易里面的有啥区别那 如果好的可以收纳

精易的是前台的，这个是后台的

齐恩

投递消息啊，一般推荐还是发送消息

xtavoxing

请问这种后台鼠标是不是 用的时候不影响人为操作鼠标同时用呀?

kmskik

精易的不是也是后台吗，一样的啊

追忆帝

kmskik 发表于 2021-7-7 16:45
精易的不是也是后台吗，一样的啊

你试试把程序最小化  或者 窗口_显示隐藏 隐藏 隐藏之后看看还有没效果

zq4986

下载看看

qq2518

试试用。感谢分享