好友
阅读权限10
听众
最后登录1970-1-1
|
鼠标自动点击器源码
没什么技术含量，第一次发贴，高手勿喷。
下面是源码
.版本 2
.支持库 shellEx
.支持库 vclbase
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 a, 整数型, , "0"
.程序集变量 b, 子程序指针, , "0"
.子程序 __启动窗口_将被销毁
置托盘图标 ({ }, )
销毁 ()
.子程序 _热键框1_热键被改变
.局部变量 i, 整数型
撤销热键 (_启动窗口.取窗口句柄 (), a [1])
a [1] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 热键框1.功能键, 热键框1.键)
b [1] ＝ &子程序_a
.子程序 _热键框2_热键被改变
.局部变量 i, 整数型
撤销热键 (_启动窗口.取窗口句柄 (), a [2])
a [2] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 热键框2.功能键, 热键框2.键)
b [2] ＝ &子程序_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 , )
跳出循环 ()
.如果真结束
.计次循环尾 ()
|
免费评分
-
查看全部评分
|
[复制链接]
发表于 2023-5-18 14:37
