键盘鼠标录制大师源及回放软件

易语言 2020-08-18 19:05:22

键盘鼠标录制大师源及回放软件

屏幕宽度 = 取屏幕宽度 () ' 为获取鼠标坐标作准备
屏幕高度 = 取屏幕高度 ()
当前记录 = 0
时间线 = 取启动时间 ()
可否中断 = 假 ' 开始记录
.判断循环首 (可否中断 = 假)
取鼠标位置 (鼠标当前位置)
.如果真 (鼠标前次位置.横向坐标 ≠ 鼠标当前位置.横向坐标 或 鼠标前次位置.纵向坐标 ≠ 鼠标当前位置.纵向坐标)
鼠标前次位置 = 鼠标当前位置
添加记录 (0, 鼠标当前位置.横向坐标 × 65535 \ 屏幕宽度, 鼠标当前位置.纵向坐标 × 65535 \ 屏幕高度)
.如果真结束
.变量循环首 (146, 255, 1, 键值) ' 先检查额外按键信息。OEM扫描码 处理,扩展键 信息
判断按键 (键值, 取按键状态 (键值))
.变量循环尾 ()
.变量循环首 (0, 145, 1, 键值)
判断按键 (键值, 取按键状态 (键值))
.变量循环尾 ()
处理事件 ()
延时 (10) ' 取启动时间() 最少间隔是 15ms
.判断循环尾 ()
.如果 (输入框 (“请输入脚本文件名:”, “保存脚本”, 到文本 (取现行时间 ()), 脚本文件名, ))
创建目录 (取运行目录 () + “\scripts”)
脚本文件号 = 打开文件 (取运行目录 () + “\scripts\” + 脚本文件名 + “.mrc”, #重写, #禁止写)
.计次循环首 (当前记录, 记录数)
写出数据 (脚本文件号, 操作记录 [记录数].时间间隔, 操作记录 [记录数].键值, 操作记录 [记录数].键盘动作, 操作记录 [记录数].垂直位置)
.计次循环尾 ()
关闭文件 (脚本文件号)