精易模块中的鼠标_带轨迹移动,增加句柄模式,开源 - 精易论坛

子程序名	返回值类型	公开	备注
鼠标_带轨迹移动
参数名	类型	参考	可空	数组	备注
参_起始x	整数型				空为鼠标当前坐标
参_起始y	整数型
参_终点x	整数型
参_终点y	整数型
参_移动速度	整数型
窗口句柄	整数型

变量名	类型	静态	数组	备注
局_判断值	逻辑型
局_X
局_Y
临时坐标	精易_坐标

如果真 (窗口句柄 ≠ 0)

ClientToScreen (窗口句柄, 临时坐标)

参_终点x ＝临时坐标.横＋参_终点x

参_终点y ＝临时坐标.纵＋参_终点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)

局_判断值＝真

' 跳出循环 ()

程序_延时 (参_移动速度)

处理事件 ()

判断循环尾 ()

.版本 2<br />
<br />
.子程序 鼠标_带轨迹移动, , 公开<br />
.参数 参_起始x, 整数型, 可空, 空为鼠标当前坐标<br />
.参数 参_起始y, 整数型, 可空<br />
.参数 参_终点x, 整数型<br />
.参数 参_终点y, 整数型<br />
.参数 参_移动速度, 整数型, 可空<br />
.参数 窗口句柄, 整数型, 可空<br />
.局部变量 局_判断值, 逻辑型<br />
.局部变量 局_X<br />
.局部变量 局_Y<br />
.局部变量 临时坐标, 精易_坐标<br />
<br />
.如果真 (窗口句柄 ≠ 0)<br />
    ClientToScreen (窗口句柄, 临时坐标)<br />
    参_终点x ＝ 临时坐标.横 ＋ 参_终点x<br />
    参_终点y ＝ 临时坐标.纵 ＋ 参_终点y<br />
.如果真结束<br />
<br />
<br />
.如果真 (是否为空 (参_起始x))<br />
    参_起始x ＝ 取鼠标水平位置 ()<br />
.如果真结束<br />
.如果真 (是否为空 (参_起始y))<br />
    参_起始y ＝ 取鼠标垂直位置 ()<br />
.如果真结束<br />
.如果真 (是否为空 (参_移动速度))<br />
    参_移动速度 ＝ 1<br />
.如果真结束<br />
SetCursorPos (参_起始x, 参_起始y)<br />
.判断循环首 (局_判断值 ＝ 假)<br />
    参_起始x ＝ 取鼠标水平位置 ()<br />
    参_起始y ＝ 取鼠标垂直位置 ()<br />
    .判断开始 (参_终点x ＞ 参_起始x)<br />
        局_X ＝ 1<br />
    .判断 (参_终点x ＜ 参_起始x)<br />
        局_X ＝ -1<br />
    .判断 (参_终点x ＝ 参_起始x)<br />
        局_X ＝ 0<br />
    .默认<br />
<br />
    .判断结束<br />
<br />
    .判断开始 (参_终点y ＞ 参_起始y)<br />
        局_Y ＝ 1<br />
    .判断 (参_终点y ＜ 参_起始y)<br />
        局_Y ＝ -1<br />
    .判断 (参_终点y ＝ 参_起始y)<br />
        局_Y ＝ 0<br />
    .默认<br />
<br />
    .判断结束<br />
    鼠标_相对移动 (局_X, 局_Y)<br />
    .如果真 (参_起始x ＝ 参_终点x 且 参_起始y ＝ 参_终点y)<br />
        局_判断值 ＝ 真<br />
        ' 跳出循环 ()<br />
    .如果真结束<br />
    程序_延时 (参_移动速度)<br />
    处理事件 ()<br />
.判断循环尾 ()