.版本 2
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 x, 整数型, , "0", 横向坐标
.程序集变量 y, 整数型, , "0", 纵向坐标
.程序集变量 鼠标事件, 整数型, , "0", 返回鼠标钩子的记录
.程序集变量 鼠标事件响应, 整数型, , , 1 鼠标移动事件；2 鼠标左键按下；4 鼠标左键放开；8 鼠标右键按下；16 鼠标右键放开；
.程序集变量 响应, 逻辑型, , , 判断鼠标是否已响应事件，如果真为真，则加记录。
.子程序 鼠标钩子处理, 整数型, , 鼠标钩子，跟踪鼠标事件。
.参数 code, 整数型
.参数 鼠标标识, 整数型, , WM_LBUTTONDOWN = 513;//按下鼠标左键WM_LBUTTONUP = 514;//释放鼠标左键WM_LBUTTONDBLCLK = 515;//双击鼠标左键WM_RBUTTONDOWN = 516;//按下鼠标右键WM_RBUTTONUP = 517;//释放鼠标右键WM_RBUTTONDBLCLK = 518;//双击鼠标右键
.参数 lp, 整数型
.判断开始 (鼠标标识 ＝ 513)
标签1.标题 ＝ “鼠标左键按下”
鼠标事件响应 ＝ 2
响应 ＝ 真
.判断 (鼠标标识 ＝ 514)
标签1.标题 ＝ “鼠标左键放开”
鼠标事件响应 ＝ 4
响应 ＝ 真
.判断 (鼠标标识 ＝ 515)
标签1.标题 ＝ “鼠标左键双击”
.判断 (鼠标标识 ＝ 516)
标签1.标题 ＝ “鼠标右键按下”
鼠标事件响应 ＝ 8
响应 ＝ 真
.判断 (鼠标标识 ＝ 517)
标签1.标题 ＝ “鼠标右键放开”
鼠标事件响应 ＝ 16
响应 ＝ 真
.判断 (鼠标标识 ＝ 518)
标签1.标题 ＝ “鼠标右键双击”
.默认
.判断结束
返回 (调入挂钩 (钩子, code, 鼠标标识, lp))
.子程序 _时钟1_周期事件
.局部变量 句柄, 整数型
加入成员 (x, 取鼠标水平位置 ())
加入成员 (y, 取鼠标垂直位置 ())
.如果 (响应 ＝ 真) ' 如果为真则加记录
加入成员 (鼠标事件, 鼠标事件响应)
.否则
加入成员 (鼠标事件, 0)
.如果结束
响应 ＝ 假
.子程序 _按钮2_被单击
清除数组 (x)
清除数组 (y)
清除数组 (鼠标事件)
钩子 ＝ 装钩子 (14, &鼠标钩子处理, 取模块句柄 (0), 0) ' 载入鼠标钩子
响应 ＝ 假
时钟1.时钟周期 ＝ 1
.子程序 _按钮1_被单击
.如果真 (取数组成员数 (y) ＝ 0) ' 判断Y坐标的数组成员数，如果真为0则表示当前未录制有记录数据。
返回 ()
.如果真结束
卸载钩子 (钩子) ' 卸载鼠标钩子
时钟1.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 1
.子程序 _时钟2_周期事件
.局部变量 n, 长整数型, 静态
.局部变量 横坐标, 整数型
.局部变量 纵坐标, 整数型
n ＝ n ＋ 1
横坐标 ＝ x [n] × 65535 ÷ 取屏幕宽度 () ' 获得屏幕尺度
纵坐标 ＝ y [n] × 65535 ÷ 取屏幕高度 () ' 获得屏幕尺度
鼠标 (鼠标事件 [n], 0, 0, 0, 0)
鼠标 (位或 (1, 32768), 横坐标, 纵坐标, 0, 0)
.如果真 (n ＝ 取数组成员数 (y))
n ＝ 0
时钟2.时钟周期 ＝ 0
释放鼠标 ()
.如果真结束
.子程序 _按钮3_被单击
销毁 ()