觅风论坛

标题: 易语言的鼠标带轨迹移动希望你们用得到 [打印本页]

作者: 冬天大误会 时间: 2021-1-8 09:42
标题: 易语言的鼠标带轨迹移动希望你们用得到
.版本 2

.子程序鼠标_带轨迹移动, , 公开, 带轨迹移动
.参数参_起始x, 整数型, 可空, 空为鼠标当前坐标
.参数参_起始y, 整数型, 可空
.参数参_终点x, 整数型
.参数参_终点y, 整数型
.参数参_移动速度, 整数型, 可空
.局部变量局_判断值, 逻辑型
.局部变量局_X, 整数型
.局部变量局_Y, 整数型

.如果真 (是否为空 (参_起始x))
参_起始x ＝取鼠标水平位置 ()
.如果真结束
.如果真 (是否为空 (参_起始y))
参_起始y ＝取鼠标垂直位置 ()
.如果真结束
.如果真 (是否为空 (参_移动速度))
参_移动速度＝ 1
.如果真结束
SetCursorPos (参_起始x, 参_起始y)
.判断循环首 (局_判断值＝假)
参_起始x ＝取鼠标水平位置 ()
参_起始y ＝取鼠标垂直位置 ()
.判断开始 (参_终点x ＞参_起始x)
      局_X ＝ 1
.判断 (参_终点x ＜参_起始x)
      局_X ＝ -1
.判断 (参_终点x ＝参_起始x)
      局_X ＝ 0
.默认

.判断结束

.判断开始 (参_终点y ＞参_起始y)
      局_Y ＝ 1
.判断 (参_终点y ＜参_起始y)
      局_Y ＝ -1
.判断 (参_终点y ＝参_起始y)
      局_Y ＝ 0
.默认

.判断结束
鼠标_相对移动 (局_X, 局_Y)
.如果真 (参_起始x ＝参_终点x 且参_起始y ＝参_终点y)
      局_判断值＝真
      ' 跳出循环 ()
.如果真结束
程序_延时 (参_移动速度, )
处理事件 ()
.判断循环尾 ()

作者: wjl287121875 时间: 2024-2-16 09:07
66666666666666666666666

欢迎光临觅风论坛 (https://www.eyyba.com/)