易语言如何实现鼠标移动到目标坐标？

Question

比如从200 200 移动到600 600
不要那种一下子秒过去的，要模拟人手，比如只看x坐标200 210 222 230 242 251 260.。。。。到600
或者想抛物线一下有点曲线弧度 移动过去。不要直生生的过去。

谢谢大侠们

Answer 1

.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 水平, 整数型
.程序集变量 垂直, 整数型
.程序集变量 x, 整数型
.程序集变量 y, 整数型

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

.子程序 _按钮1_被单击

水平 ＝ 到整数 (编辑框1.内容)
垂直 ＝ 到整数 (编辑框2.内容)
鼠标移动 ()

.子程序 鼠标移动

x ＝ 取鼠标水平位置 ()
y ＝ 取鼠标垂直位置 ()
.如果真 (水平 ≠ x)
.判断开始 (水平 ＜ x)
x ＝ x － 1
.默认
x ＝ x ＋ 1
.判断结束

.如果真结束
.如果真 (垂直 ≠ y)
.判断开始 (垂直 ＜ y)
y ＝ y － 1
.默认
y ＝ y ＋ 1
.判断结束

.如果真结束
标签1.标题 ＝ “x=” ＋ 到文本 (x) ＋ “ y=” ＋ 到文本 (y)
设置鼠标坐标 (x, y)
.如果真 (水平 ≠ x 或 垂直 ≠ y)
延迟 (10)
鼠标移动 ()
.如果真结束
---------------------
.版本 2

.DLL命令 设置鼠标坐标, 整数型, "user32.dll", "SetCursorPos", 公开, 非零表示成功，零表示失败
.参数 水平位置, 整数型, , 鼠标指针在屏幕像素坐标系统中的水平位置
.参数 垂直位置, 整数型, , 鼠标指针在屏幕像素坐标系统中的垂直位置