大漠插件模拟鼠标移动带轨迹转易语言源码

.版本 2

.程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _按钮1_被单击
.局部变量 a
.局部变量 b

a ＝ 取屏幕宽度 ()
b ＝ 取屏幕高度 ()
.计次循环首 (10, )
    真实移动 (随机数 (0, a), 随机数 (0, b))
.计次循环尾 ()

.子程序 真实移动
.参数 x1
.参数 y1
.局部变量 x
.局部变量 y
.局部变量 movernd
.局部变量 sudu
.局部变量 Delayrnd
.局部变量 鼠标真实移动当前x
.局部变量 鼠标真实移动当前y
.局部变量 js

movernd ＝ 5
sudu ＝ 5
Delayrnd ＝ 3
' 本源码来自三叶资源网(www.sanye.cx)
鼠标真实移动当前x ＝ 取鼠标水平位置 ()
鼠标真实移动当前y ＝ 取鼠标垂直位置 ()
.如果 (x1 ＝ 鼠标真实移动当前x)
    y ＝ 鼠标真实移动当前y

    .变量循环首 (y, y1, 取符号 (y1 － 鼠标真实移动当前y) × sudu, js)
        y ＝ y ＋ 取符号 (y1 － 鼠标真实移动当前y) × sudu
        SetCursorPos (x1 ＋ 随机数 (－movernd, movernd), y ＋ 随机数 (－movernd, movernd))
        延时 (随机数 (1, Delayrnd))
        处理事件 ()
    .变量循环尾 ()

.否则
    .如果 (y1 ＝ 鼠标真实移动当前y)
        x ＝ 鼠标真实移动当前x
        .变量循环首 (x, x1, 取符号 (x1 － 鼠标真实移动当前x) × sudu, js)
            x ＝ x ＋ 取符号 (x1 － 鼠标真实移动当前x) × sudu
            SetCursorPos (x ＋ 随机数 (－movernd, movernd), y1 ＋ 随机数 (－movernd, movernd))
            延时 (随机数 (1, Delayrnd))
            处理事件 ()
        .变量循环尾 ()

    .否则
        .如果 (取绝对值 (鼠标真实移动当前x － x1) ＞ 取绝对值 (鼠标真实移动当前y － y1))
            x ＝ 鼠标真实移动当前x
            .变量循环首 (x, x1, 取符号 (x1 － 鼠标真实移动当前x) × sudu, js)
                x ＝ x ＋ 取符号 (x1 － 鼠标真实移动当前x) × sudu
                SetCursorPos (x ＋ 随机数 (－movernd, movernd), (y1 － 鼠标真实移动当前y) ÷ (x1 － 鼠标真实移动当前x) × x ＋ y1 － (y1 － 鼠标真实移动当前y) ÷ (x1 － 鼠标真实移动当前x) × x1 ＋ 随机数 (－movernd, movernd))

                延时 (随机数 (1, Delayrnd))
                处理事件 ()
            .变量循环尾 ()

        .否则
            y ＝ 鼠标真实移动当前y
            .变量循环首 (y, y1, 取符号 (y1 － 鼠标真实移动当前y) × sudu, js)
                y ＝ y ＋ 取符号 (y1 － 鼠标真实移动当前y) × sudu
                SetCursorPos (y － (y1 － (y1 － 鼠标真实移动当前y) ÷ (x1 － 鼠标真实移动当前x) × x1) ÷ (y1 － 鼠标真实移动当前y) ÷ (x1 － 鼠标真实移动当前x) ＋ 随机数 (－movernd, movernd), y ＋ 随机数 (－movernd, movernd))


                延时 (随机数 (1, Delayrnd))
                处理事件 ()
            .变量循环尾 ()
        .如果结束

    .如果结束

.如果结束


.子程序 随机数, 整数型
.参数 min, , , ' 本源码来自三叶资源网(www.sanye.cx)
.参数 max

置随机数种子 ()
返回 (取随机数 (min, max))

@zmhdyyy