RunApp "notepad.exe"
Dim x, y
x = 123
y=456
//这里设定起点坐标
SayString "MoveTo " & x & "," & y
KeyPress "Enter", 1
SayString "Delay 10"
For 100
//循环100次,100在后面解释
SayString "MoveTo " & x & "," & y
KeyPress "Enter", 1
Dim MyValue
Randomize
MyValue = Int((11 * Rnd) + 5)
//录制鼠标移动轨迹的时候每一小步中间都有一个微小delay,这里模拟那个delay,随机生成5--15ms延迟
SayString "Delay " & MyValue
KeyPress "Enter", 1
x = x + 1
y = y - 1
//x递增y递减
Next
//100是输出100个移动坐标流坐标,循环完后,x坐标递增为223,y坐标递减为356.这里可以自己设置循环次数以移动到需要的坐标,如果相对移动距离不同,一句if限定相对移动距离小的那个坐标当移动到目的坐标后不再移动就行了。