Question

按键精灵转易语言源码

按键精灵的源码能不能转成易语言的？效果还一样吗？
x1 = 800 : y1 = 450
GetCursorPos x, y
If abs(x - x1) > abs(y - y1) Then
cs = abs(x - x1)
Else
cs = abs(y - y1)
End If
轨迹x = (x1 - x) / cs : 轨迹y = (y1 - y) / cs
移动次数 = 0 : 随机次数 = 0 : 移动步长 = Int((20 - 16 + 1) * Rnd + 16)
While x <> x1 and y <>y1
移动次数 = 移动次数 + 1
x = x + 轨迹x : y = y + 轨迹y
If 移动次数 = 移动步长 Then
Randomize
移动次数 = 0 : 随机次数 = 随机次数 + 1 : 移动步长 = Int((20 - 16 + 1) * Rnd + 16) : 移动延时 = Int((15 - 10 + 1) * Rnd + 10)
If 随机次数 = 4 Then
移动偏差x = Int((12 + 12 + 1) * Rnd - 12) : 移动偏差y = Int((9 + 9 + 1) * Rnd - 9) : 随机次数 = 0
End If
MoveTo x + 移动偏差x, y + 移动偏差y
Delay 移动延时
ElseIf abs(x - x1) <= 移动步长 and abs(y - y1) <= 移动步长 Then
x = x1 : y = y1
MoveTo x1, y1
End If
Wend

Answer 1

.版本 2
.支持库 eAPI
.支持库 spec

.局部变量 x1, 整数型
.局部变量 y1, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 cs, 整数型
.局部变量 轨迹x, 整数型
.局部变量 轨迹y, 整数型
.局部变量 移动次数, 整数型
.局部变量 随机次数, 整数型
.局部变量 移动步长, 整数型
.局部变量 移动延时, 整数型
.局部变量 移动偏差x, 整数型
.局部变量 移动偏差y, 整数型

x1 ＝ 800
y1 ＝ 450
x ＝ 取鼠标水平位置 ()
y ＝ 取鼠标垂直位置 ()
.如果 (取绝对值 (x － x1) ＞ 取绝对值 (y － y1))
cs ＝ 取绝对值 (x － x1)
.否则
cs ＝ 取绝对值 (y － y1)
.如果结束
轨迹x ＝ (x1 － x) ÷ cs
轨迹y ＝ (y1 － y) ÷ cs
移动次数 ＝ 0
随机次数 ＝ 0
移动步长 ＝ 取整 ((20 － 16 ＋ 1) × 取随机数 (0, 1) ＋ 16)
.判断循环首 (x ≠ x1 且 y ≠ y1)
移动次数 ＝ 移动次数 ＋ 1
x ＝ x ＋ 轨迹x
y ＝ y ＋ 轨迹y
.判断开始 (移动次数 ＝ 移动步长)
置随机数种子 ()
移动次数 ＝ 0
随机次数 ＝ 随机次数 ＋ 1
移动步长 ＝ 取整 ((20 － 16 ＋ 1) × 取随机数 (0, 1) ＋ 16)
移动延时 ＝ 取整 ((15 － 10 ＋ 1) × 取随机数 (0, 1) ＋ 10)
.如果真 (随机次数 ＝ 4)
移动偏差x ＝ 取整 ((12 ＋ 12 ＋ 1) × 取随机数 (0, 1) － 12)
移动偏差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, , "user32.dll", "SetCursorPos", ,
.参数 x, 整数型
.参数 y, 整数型