Question

按键精灵溢出

For 10
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
Next

Answer 1

因为你的代码经过第二次循环的时候，数据就出了问题。
你的代码第24行执行之后，鼠标位置就是800,450，然后进入第二次循环，于是x-x1=0，y-y1=0，所以就执行了cs=abs(y - y1)，显然cs=0，你后面把0当作除数，当然是违规了，因此代码只能正常循环一次。