易语言模拟鼠标前台移动

1、新建易语言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、接下来我们调试一下，如有疑问，加932325698咨询

10、根据最近有些网友加我好友私密我，跟我反映说按照我的经验一步一步的做还是不能使用，小编在这里和大家道下歉，由于个人的疏忽。忘记重要的一点没和大家说明白。好了话不多说看下图：先点击新建dll命令，在复制如下代码

.版本 2

.DLL命令 SetCursorPos

    .参数 x坐标, 整数型

    .参数 y坐标, 整数型

------------------------------------------------------

好了现在我相信应该可以使用了！