Question

按键精灵9，如何用循环写下面的语句？

我想达到的目的是：
1.通过鼠标在不同的坐标单击50次，确定50个坐标点。

2.每间隔1小时一次，按照上面的单击顺序重复单击那50个坐标点。
3.下面我只写了2个坐标点的代码，按照这样的方法当然可以写完50个，但是工作量太大了，所以希望高人们指点，请帮帮我，如何写这个代码最简单。
4.不胜感激！
5.拜谢！

xh0 = WaitClick //第一次等待鼠标单击
GetCursorPos x, y //第一次获取鼠标单击点的坐标
dx0 = x //将第一次单击点的x坐标赋给dx0
dy0 = y //将第一次单击点的y坐标赋给dy0
Delay 1000 //延时1000毫秒

xh1 = WaitClick //第二次等待鼠标单击
GetCursorPos x, y //第二次获取鼠标单击点的坐标
dx1 = x //将第二次单击点的x坐标赋给dx1
dy1 = y //将第二次单击点的y坐标赋给dy1
Delay 1000

rem ok //标记
MoveTo dx0, dy0 //将鼠标移动到dx0,dy0
Delay 1000 //延时1000毫秒
LeftClick 1 //鼠标左键单击（dx0, dy0）
Delay 1000

MoveTo dx1, dy1 //将鼠标移动到dx1,dy1
Delay 1000 //延时1000毫秒
LeftClick 1 //鼠标左键单击（dx1, dy1）
Delay 10000 //延时10000毫秒

goto ok //返回标记处继续执行

Answer 1

dim x(50),y(50)
For i=1 to 50
//这里你自己点对吧
WaitClick
GetCursorPos x(i), y(i)
Delay 100//这里延时不用太多，没用
Next
Do
For i=1 to 50
MoveTo x(i), y(i)
Delay 1000
LeftClick 1
Delay 1000
Next
Delay 60*60*1000//延时1小时
Loop

Answer 2

用数组一劳永逸
dim x(49),y(49)
n=0
Do
T = WaitClick()
If T = 32770 Then
GetCursorPos x(n), y(n)
n = n + 1
End If
Loop Until n > 49
//
n = 0
Do
MoveTo x(n), y(n)
Delay 1000
LeftClick 1
Delay 10000
n = n + 1
Loop Until n > 49

追问

非常感谢您的回答，但我觉得zq417535279的代码更简练、更容易理解，但我还是非常感谢您，谢谢