电脑录制鼠标键盘脚本，鼠标动作录制脚本，鼠标回放器脚本录制器【易语言】

.版本 2
.支持库 dp1

.程序集 启动窗口
.程序集变量 钩子句柄, 整数型
.程序集变量 鼠标, 鼠标操作, , "0", 2020.01.05

.子程序 钩子消息处理, 整数型
.参数 代码值, 整数型
.参数 消息值, 整数型
.参数 参数, 整数型
.局部变量 临时变量, 鼠标操作


临时变量.左右坐标 ＝ 取鼠标水平位置 ()
临时变量.上下坐标 ＝ 取鼠标垂直位置 ()
临时变量.鼠标消息 ＝ 消息值

加入成员 (鼠标, 临时变量)
编辑框1.内容 ＝ “总帧数：” ＋ 到文本 (取数组成员数 (鼠标))

返回 (API_回调系统钩子 (钩子句柄, 代码值, 消息值, 参数))


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


.如果真 (钩子句柄 ≠ 0)
    API_卸载系统钩子 (钩子句柄)
.如果真结束


.子程序 _时钟1_周期事件
.局部变量 计数器, 整数型, 静态


计数器 ＝ 计数器 ＋ 1
编辑框2.内容 ＝ “当前帧：” ＋ 到文本 (计数器)
API_设置鼠标位置 (鼠标 [计数器].左右坐标, 鼠标 [计数器].上下坐标)

.如果真 (鼠标 [计数器].鼠标消息 ＝ 513)  ' 鼠标左键按下
    API_模拟鼠标操作 (2, 0, 0, 0, 0)
.如果真结束
.如果真 (鼠标 [计数器].鼠标消息 ＝ 514)  ' 鼠标左键放开
    API_模拟鼠标操作 (4, 0, 0, 0, 0)
.如果真结束
.如果真 (鼠标 [计数器].鼠标消息 ＝ 516)  ' 鼠标右键按下
    API_模拟鼠标操作 (8, 0, 0, 0, 0)
.如果真结束
.如果真 (鼠标 [计数器].鼠标消息 ＝ 517)  ' 鼠标右键放开
    API_模拟鼠标操作 (16, 0, 0, 0, 0)
.如果真结束

.如果真 (计数器 ＝ 取数组成员数 (鼠标))
    时钟1.时钟周期 ＝ 0
    计数器 ＝ 0
.如果真结束


.子程序 _按钮1_被单击, , , 开始录制


清除数组 (鼠标)

按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 假
编辑框1.内容 ＝ “总帧数：0”
编辑框2.内容 ＝ “当前帧：0”

钩子句柄 ＝ API_安装系统钩子 (14, &钩子消息处理, 0, 0)


.子程序 _按钮2_被单击, , , 停止录制


按钮2.禁止 ＝ 真
__启动窗口_将被销毁 ()
连续赋值 (假, 按钮1.禁止, 按钮3.禁止, 按钮4.禁止)


.子程序 _按钮3_被单击, , , 开始回放


时钟1.时钟周期 ＝ 1


.子程序 _按钮4_被单击, , , 保存回放
.局部变量 文件长度, 整数型
.局部变量 文件数据, 字节集


文件长度 ＝ 取数组成员数 (鼠标) × 6
文件数据 ＝ 取空白字节集 (文件长度)

API_写到内存1 (文件数据, 鼠标, 文件长度)
写到文件 (#文件名称, 压缩数据 (文件数据))


.子程序 _按钮5_被单击, , , 打开回放
.局部变量 文件长度, 整数型
.局部变量 文件数据, 字节集


文件数据 ＝ 解压数据 (读入文件 (#文件名称))
文件长度 ＝ 取字节集长度 (文件数据)

重定义数组 (鼠标, 假, 文件长度 ÷ 6)
API_写到内存2 (鼠标, 文件数据, 文件长度)

编辑框1.内容 ＝ “总帧数：” ＋ 到文本 (文件长度 ÷ 6)
编辑框2.内容 ＝ “当前帧：0”
按钮3.禁止 ＝ 假