【原创】鼠标_带轨迹最短距离移动

f100long

努力学习，天天向上

已注销494531

好好好好

chichi

感谢分享，很给力！~

终极易人

感谢分享，很给力！~

553559121

无聊瞄了一眼仅此而已.

得欲丧志

皮肤模块麻烦发一下

9707856

无聊瞄了一眼仅此而已.

1301ok

学习学习啦

凌哥

zlw310282 发表于 2018-11-9 15:06
向大佬膜拜！主要看论坛没有，就分享啦。

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

鼠标直线移动算法 (100, 200)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
鼠标直线移动算法			翻译的按键精灵代码
参数名	类 型	参考	可空	数组	备 注
x	双精度小数型
y	双精度小数型

变量名	类 型	静态	数组	备 注
x1	双精度小数型
y1	双精度小数型
cs	双精度小数型
轨迹x	双精度小数型
轨迹y	双精度小数型
x2	双精度小数型
y2	双精度小数型
v	双精度小数型

置随机数种子 ()
x1 ＝ 取鼠标水平位置 ()
y1 ＝ 取鼠标垂直位置 ()
x2 ＝ x1
y2 ＝ y1
如果 (取绝对值 (x1 － x) ＞ 取绝对值 (y1 － y))
cs ＝ 取绝对值 (x1 － x)
cs ＝ 取绝对值 (y1 － y)
如果真 (cs ≠ 0)
轨迹x ＝ (x － x1) ÷ cs
轨迹y ＝ (y － y1) ÷ cs
判断循环首 (x1 ≠ x 且 y1 ≠ y)
x1 ＝ x1 ＋ 轨迹x
y1 ＝ y1 ＋ 轨迹y
SetCursorPos (x1, y1)
如果真 (到整数 (取绝对值 (x1 － x)) ≤ 1 且 到整数 (取绝对值 (y1 － y)) ≤ 1)
SetCursorPos (x, y)
跳出循环 ()
延时 (1)
判断循环尾 ()

.版本 2<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 鼠标直线移动算法 (100, 200)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 鼠标直线移动算法, , , 翻译的按键精灵代码<br /> .参数 x, 双精度小数型<br /> .参数 y, 双精度小数型<br /> .局部变量 x1, 双精度小数型<br /> .局部变量 y1, 双精度小数型<br /> .局部变量 cs, 双精度小数型<br /> .局部变量 轨迹x, 双精度小数型<br /> .局部变量 轨迹y, 双精度小数型<br /> .局部变量 x2, 双精度小数型<br /> .局部变量 y2, 双精度小数型<br /> .局部变量 v, 双精度小数型<br /> <br /> 置随机数种子 ()<br /> x1 ＝ 取鼠标水平位置 ()<br /> y1 ＝ 取鼠标垂直位置 ()<br /> x2 ＝ x1<br /> y2 ＝ y1<br /> .如果 (取绝对值 (x1 － x) ＞ 取绝对值 (y1 － y))<br />     cs ＝ 取绝对值 (x1 － x)<br /> .否则<br />     cs ＝ 取绝对值 (y1 － y)<br /> .如果结束<br /> .如果真 (cs ≠ 0)<br />     轨迹x ＝ (x － x1) ÷ cs<br />     轨迹y ＝ (y － y1) ÷ cs<br /> .如果真结束<br /> .判断循环首 (x1 ≠ x 且 y1 ≠ y)<br />     x1 ＝ x1 ＋ 轨迹x<br />     y1 ＝ y1 ＋ 轨迹y<br />     SetCursorPos (x1, y1)<br />     .如果真 (到整数 (取绝对值 (x1 － x)) ≤ 1 且 到整数 (取绝对值 (y1 － y)) ≤ 1)<br />         SetCursorPos (x, y)<br />         跳出循环 ()<br />     .如果真结束<br />     延时 (1)<br /> .判断循环尾 ()

凌哥

zlw310282 发表于 2018-11-9 15:06
向大佬膜拜！主要看论坛没有，就分享啦。

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

鼠标直线移动算法 (100, 200)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
鼠标直线移动算法			翻译的按键精灵代码
参数名	类 型	参考	可空	数组	备 注
x	双精度小数型
y	双精度小数型

变量名	类 型	静态	数组	备 注
x1	双精度小数型
y1	双精度小数型
cs	双精度小数型
轨迹x	双精度小数型
轨迹y	双精度小数型
x2	双精度小数型
y2	双精度小数型
v	双精度小数型

置随机数种子 ()
x1 ＝ 取鼠标水平位置 ()
y1 ＝ 取鼠标垂直位置 ()
x2 ＝ x1
y2 ＝ y1
如果 (取绝对值 (x1 － x) ＞ 取绝对值 (y1 － y))
cs ＝ 取绝对值 (x1 － x)
cs ＝ 取绝对值 (y1 － y)
如果真 (cs ≠ 0)
轨迹x ＝ (x － x1) ÷ cs
轨迹y ＝ (y － y1) ÷ cs
判断循环首 (x1 ≠ x 且 y1 ≠ y)
x1 ＝ x1 ＋ 轨迹x
y1 ＝ y1 ＋ 轨迹y
SetCursorPos (x1, y1)
如果真 (到整数 (取绝对值 (x1 － x)) ≤ 1 且 到整数 (取绝对值 (y1 － y)) ≤ 1)
SetCursorPos (x, y)
跳出循环 ()
延时 (1)
判断循环尾 ()

.版本 2<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 鼠标直线移动算法 (100, 200)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 鼠标直线移动算法, , , 翻译的按键精灵代码<br /> .参数 x, 双精度小数型<br /> .参数 y, 双精度小数型<br /> .局部变量 x1, 双精度小数型<br /> .局部变量 y1, 双精度小数型<br /> .局部变量 cs, 双精度小数型<br /> .局部变量 轨迹x, 双精度小数型<br /> .局部变量 轨迹y, 双精度小数型<br /> .局部变量 x2, 双精度小数型<br /> .局部变量 y2, 双精度小数型<br /> .局部变量 v, 双精度小数型<br /> <br /> 置随机数种子 ()<br /> x1 ＝ 取鼠标水平位置 ()<br /> y1 ＝ 取鼠标垂直位置 ()<br /> x2 ＝ x1<br /> y2 ＝ y1<br /> .如果 (取绝对值 (x1 － x) ＞ 取绝对值 (y1 － y))<br />     cs ＝ 取绝对值 (x1 － x)<br /> .否则<br />     cs ＝ 取绝对值 (y1 － y)<br /> .如果结束<br /> .如果真 (cs ≠ 0)<br />     轨迹x ＝ (x － x1) ÷ cs<br />     轨迹y ＝ (y － y1) ÷ cs<br /> .如果真结束<br /> .判断循环首 (x1 ≠ x 且 y1 ≠ y)<br />     x1 ＝ x1 ＋ 轨迹x<br />     y1 ＝ y1 ＋ 轨迹y<br />     SetCursorPos (x1, y1)<br />     .如果真 (到整数 (取绝对值 (x1 － x)) ≤ 1 且 到整数 (取绝对值 (y1 － y)) ≤ 1)<br />         SetCursorPos (x, y)<br />         跳出循环 ()<br />     .如果真结束<br />     延时 (1)<br /> .判断循环尾 ()