1.按键精灵转易语言源码

按键精灵转易语言源码

       .版本 2

       .支持库 eAPI

       .支持库 spec

       .局部变量 x1,按键按键pc蛋蛋28源码 整数型

       .局部变量 y1, 整数型

       .局部变量 x, 整数型

       .局部变量 y, 整数型

       .局部变量 cs, 整数型

       .局部变量 轨迹x, 整数型

       .局部变量 轨迹y, 整数型

       .局部变量 移动次数, 整数型

       .局部变量 随机次数, 整数型

       .局部变量 移动步长, 整数型

       .局部变量 移动延时, 整数型

       .局部变量 移动偏差x, 整数型

       .局部变量 移动偏差y, 整数型

       x1 ＝

       y1 ＝

       x ＝ 取鼠标水平位置 ()

       y ＝ 取鼠标垂直位置 ()

       .如果 (取绝对值 (x － x1) ＞ 取绝对值 (y － y1))

        cs ＝ 取绝对值 (x － x1)

       .否则

        cs ＝ 取绝对值 (y － y1)

       .如果结束

       轨迹x ＝ (x1 － x) ÷ cs

       轨迹y ＝ (y1 － y) ÷ cs

       移动次数 ＝ 0

       随机次数 ＝ 0

       移动步长 ＝ 取整 (( － ＋ 1) × 取随机数 (0, 1) ＋ )

       .判断循环首 (x ≠ x1 且 y ≠ y1)

        移动次数 ＝ 移动次数 ＋ 1

        x ＝ x ＋ 轨迹x

        y ＝ y ＋ 轨迹y

        .判断开始 (移动次数 ＝ 移动步长)

        置随机数种子 ()

        移动次数 ＝ 0

        随机次数 ＝ 随机次数 ＋ 1

        移动步长 ＝ 取整 (( － ＋ 1) × 取随机数 (0, 1) ＋ )

        移动延时 ＝ 取整 (( － ＋ 1) × 取随机数 (0, 1) ＋ )

        .如果真 (随机次数 ＝ 4)

        移动偏差x ＝ 取整 (( ＋ ＋ 1) × 取随机数 (0, 1) － )

        移动偏差y ＝ 取整 ((9 ＋ 9 ＋ 1) × 取随机数 (0, 1) － 9)

        随机次数 ＝ 0

        .如果真结束

        SetCursorPos (x ＋ 移动偏差x, y ＋ 移动偏差y)

        延迟 (移动延时)

        .判断 (取绝对值 (x － x1) ≤ 移动步长 且 取绝对值 (y － y1) ≤ 移动步长)

        x ＝ x1

        y ＝ y1

        SetCursorPos (x1, y1)

        .默认

        .判断结束

       .判断循环尾 ()

       .版本 2

       .DLL命令 SetCursorPos, , "user.dll", "SetCursorPos", ,

        .参数 x, 整数型

        .参数 y, 整数型