易语言 随鼠标方向移动！！！！！

版本 2
支持库 iext2
子程序 取到鼠标方向角度, 整数型
参数 物体标示值, 整数型
局部变量 物体中心_横坐标, 整数型
局部变量 物体中心_纵坐标, 整数型
局部变量 鼠标_横坐标, 整数型
局部变量 鼠标_纵坐标, 整数型
处理事件 ()
物体中心_横坐标 ＝ 动画框1取物体左边 (物体标示值) ＋ 动画框1取物体宽度 (物体标示值) ÷ 2
物体中心_纵坐标 ＝ 动画框1取物体顶边 (物体标示值) ＋ 动画框1取物体高度 (物体标示值) ÷ 2
鼠标_横坐标 ＝ 取鼠标水平位置 ()
鼠标_纵坐标 ＝ 取鼠标垂直位置 ()
判断开始 (物体中心_横坐标 ≥ 鼠标_横坐标)
返回 (动画框1置角度 (物体标示值, －(－求反正切 ((物体中心_纵坐标 － 鼠标_纵坐标) ÷ (物体中心_横坐标 － 鼠标_横坐标)) × 180 ÷ #pi － 90)))
默认
返回 (动画框1置角度 (物体标示值, －(－求反正切 ((物体中心_纵坐标 － 鼠标_纵坐标) ÷ (物体中心_横坐标 － 鼠标_横坐标)) × 180 ÷ #pi ＋ 90)))
判断结束
返回 (-1)

这个是模拟人手轨迹移动，你可以研究一下这些代码，然后写出最终效果。
版本 2
支持库 spec
程序集 窗口程序集1
程序集变量 水平, 整数型
程序集变量 垂直, 整数型
程序集变量 x, 整数型
程序集变量 y, 整数型
子程序 __启动窗口_创建完毕
子程序 _按钮1_被单击
水平 ＝ 到整数 (编辑框1内容)
垂直 ＝ 到整数 (编辑框2内容)
鼠标移动 ()
子程序 鼠标移动
x ＝ 取鼠标水平位置 ()
y ＝ 取鼠标垂直位置 ()
如果真 (水平 ≠ x)
判断开始 (水平 ＜ x)
x ＝ x － 1
默认
x ＝ x ＋ 1
判断结束e79fa5e98193e78988e69d8331333337383332
如果真结束
如果真 (垂直 ≠ y)
判断开始 (垂直 ＜ y)
y ＝ y － 1
默认
y ＝ y ＋ 1
判断结束
如果真结束
标签1标题 ＝ “x=” ＋ 到文本 (x) ＋ “ y=” ＋ 到文本 (y)
设置鼠标坐标 (x, y)
如果真 (水平 ≠ x 或 垂直 ≠ y)
延迟 (10)
鼠标移动 ()
如果真结束
---------------------
版本 2
DLL命令 设置鼠标坐标, 整数型, "user32dll", "SetCursorPos", 公开, 非零表示成功，零表示失败
参数 水平位置, 整数型, , 鼠标指针在屏幕像素坐标系统中的水平位置
参数 垂直位置, 整数型, , 鼠标指针在屏幕像素坐标系统中的垂直位置

版本 2

子程序 子程序1

局部变量 线长, 整数型

局部变量 j, 整数型

局部变量 i, 双精度小数型

局部变量 原X, 整数型

局部变量 原Y, 整数型

局部变量 X, 整数型

局部变量 Y, 整数型

X ＝ 取鼠标水平位置 () － 左边 － 标签1宽度 ÷ 2

Y ＝ 取鼠标垂直位置 () － 顶边 － 30 － 标签1高度 ÷ 2

原X ＝ 标签1左边

原Y ＝ 标签1顶边

线长 ＝ 求平方根 ((X － 原X) × (X － 原X) ＋ (Y － 原Y) × (Y － 原Y))

变量循环首 (0, 线长, 1, j)

  i ＝ j ÷ 线长

  标签1左边 ＝ (X － 原X) × i ＋ 原X

  标签1顶边 ＝ (Y － 原Y) × i ＋ 原Y

  延时 (5)

  处理事件 ()

变量循环尾 ()

加一个时钟组件，设置时钟周期为10。
在_时钟1_周期事件里面加入下面的代码。
框1左边
＝
取鼠标水平位置
()
－
_启动窗口左边
框1顶边
＝
取鼠标垂直位置
()
－
_启动窗口顶边
这样就可以了，很简单的。

---