网站 › 『编程语言区』 › 鼠标自动点击器源码

fshhh111 发表于 2023-5-18 14:37

鼠标自动点击器源码

鼠标自动点击器源码
没什么技术含量，第一次发贴，高手勿喷。



下面是源码

.版本 2
.支持库 shellEx
.支持库 vclbase
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 a, 整数型, , "0"
.程序集变量 b, 子程序指针, , "0"

.子程序 __启动窗口_将被销毁

置托盘图标 ({}, )
销毁 ()



.子程序 _热键框1_热键被改变
.局部变量 i, 整数型

撤销热键 (_启动窗口.取窗口句柄 (), a )
a ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 热键框1.功能键, 热键框1.键)
b ＝ &子程序_a


.子程序 _热键框2_热键被改变
.局部变量 i, 整数型

撤销热键 (_启动窗口.取窗口句柄 (), a )
a ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 热键框2.功能键, 热键框2.键)
b ＝ &子程序_B


.子程序 子程序_a

beeps (1000, 250)
beeps (1000, 250)
时钟1.时钟周期 ＝ 到整数 (编辑框1.内容)


.子程序 子程序_B


beeps (1700, 450)
时钟1.时钟周期 ＝ 0

.子程序 _时钟1_周期事件

.如果真 (组合框1.现行选中项 ＝ 0)
    模拟鼠标点击 (到整数 (编辑框2.内容), 到整数 (编辑框3.内容), 0)
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 1)
    模拟鼠标点击 (到整数 (编辑框2.内容), 到整数 (编辑框3.内容), 1)
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 2)
    模拟鼠标点击 (到整数 (编辑框2.内容), 到整数 (编辑框3.内容), 2)
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 3)
    模拟鼠标点击 (到整数 (编辑框2.内容), 到整数 (编辑框3.内容), 3)
.如果真结束


.子程序 __启动窗口_位置被改变

.如果真 (_启动窗口.位置 ＝ 2)
    _启动窗口.可视 ＝ 假
    置托盘图标 (_启动窗口.图标, “鼠标自动点击器”)

.如果真结束


.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

.如果真 (操作类型 ＝ 1)
    _启动窗口.可视 ＝ 真
    _启动窗口.位置 ＝ 0
    置托盘图标 ({}, )
.如果真结束
.如果真 (操作类型 ＝ 2)
    _启动窗口.可视 ＝ 真
    _启动窗口.位置 ＝ 0
    置托盘图标 ({}, )
.如果真结束
.如果真 (操作类型 ＝ 3)
    _启动窗口.可视 ＝ 真
    _启动窗口.位置 ＝ 0
    置托盘图标 ({}, )
.如果真结束


.子程序 _时钟2_周期事件

标签8.标题 ＝ 到文本 (取鼠标水平位置 ())
标签9.标题 ＝ 到文本 (取鼠标垂直位置 ())





.子程序 子程序1



.子程序 子程序2



.子程序 子程序3

beeps (2500, 800)
时钟1.时钟周期 ＝ 0

.子程序 __启动窗口_创建完毕

加入成员 (a, 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 热键框1.功能键, 热键框1.键))
加入成员 (a, 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 热键框2.功能键, 热键框2.键))
加入成员 (a, 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 1, #F12键))
b ＝ { &子程序1, &子程序2, &子程序3 }




.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.局部变量 i, 整数型

.计次循环首 (取数组成员数 (a), i)
    .如果真 (a ＝ 参数一)
      执行子程序 (b , )
      跳出循环 ()
    .如果真结束


.计次循环尾 ()

guangdate 发表于 2023-9-22 14:28

来个蓝奏的下载:https://wwi.lanzouq.com/iinub19f3xli 密码:52pj

skinsy 发表于 2023-5-18 15:53

这个简单，有没有下载链接，弄个

zxxuanxx 发表于 2023-5-18 16:10

哇，学习学习，有无下载链接？

yu520 发表于 2023-5-19 08:43

这个功能很实用呀，博主，能分享一下吗

WuDiXiaoZhuZhu 发表于 2023-5-22 14:47

链接：https://pan.baidu.com/s/1rmBPK23XLKO16Ld_p1tN3g
提取码：30pf

我分享一个

LQ789 发表于 2023-5-25 15:54

谢谢收藏下载

xiaowu168 发表于 2023-7-12 01:13

谢谢分享....{:1_893:}

asdf123456 发表于 2023-7-14 11:53

谢谢分享.........:handshake

g063 发表于 2023-8-3 16:47

厉害 学习学习

lingfeng_334 发表于 2023-9-14 08:27

WuDiXiaoZhuZhu 发表于 2023-5-22 14:47
链接：https://pan.baidu.com/s/1rmBPK23XLKO16Ld_p1tN3g
提取码：30pf



来个蓝奏哇:lol

查看完整版本: 鼠标自动点击器源码