易语言模拟鼠标前台移动

　　新建易语言Windows窗口程序

2、

　　新建的新建易语言Windows窗口程序如下图

3、

　　接下来我们话界面简单的画一下界面，画一个编辑框，两个按钮，两个时钟

4、

　　先声明2个程序集，整数型，数组 一个程序集，整数型，变量

5、

　　接下来写源码，如下图

6、

　　接下来写源码，如下图

7、

　　接下来写源码，如下图

8、

　　源码如下：

　　.版本 2

　　.支持库 xplib

　　.支持库 spec

　　.程序集 窗口程序集1

　　.程序集变量 数组1, 整数型, , "0"

　　.程序集变量 数组2, 整数型, , "0"

　　.程序集变量 a, 整数型

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

　　a = a - 1

　　编辑框1.内容 = “录制倒计时” + 到文本 (a) + “秒”

　　.如果真 (a = 0)

　　时钟1.时钟周期 = 0

　　记录时钟.时钟周期 = 0

　　a = 10

　　编辑框1.内容 = “录制结束”

　　返回 ()

　　.如果真结束

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

　　a = 10

　　.子程序 _按钮_记录鼠标_被单击

　　编辑框1.内容 = “开始录制”

　　记录时钟.时钟周期 = 10

　　时钟1.时钟周期 = 1000

　　.子程序 _记录时钟_周期事件

　　.局部变量 记录坐标x, 整数型

　　.局部变量 记录坐标y, 整数型

　　记录坐标x = 取鼠标水平位置 ()

　　记录坐标y = 取鼠标垂直位置 ()

　　加入成员 (数组1, 记录坐标x)

　　加入成员 (数组2, 记录坐标y)

　　.子程序 _按钮_模拟鼠标_被单击

　　.局部变量 鼠标水平坐标, 整数型

　　.局部变量 鼠标垂直坐标, 整数型

　　.局部变量 a, 整数型

　　.如果真 (取数组成员数 (数组1) ≠ 0)

　　编辑框1.内容 = “模拟鼠标移动”

　　.计次循环首 (取数组成员数 (数组1), a)

　　鼠标水平坐标 = 数组1 [a]

　　鼠标垂直坐标 = 数组2 [a]

　　SetCursorPos (鼠标水平坐标, 鼠标垂直坐标)

　　延迟 (10)

　　.计次循环尾 ()

　　清除数组 (数组1)

　　清除数组 (数组2)

　　9

　　接下来我们调试一下，如有疑问，加100966298咨询