不用那么复杂吧？没有愿意教学的么？

Dim 坐标(1,1)
i=0
Do
key = WaitKey()
If key = 13 Then
GetCursorPos x, y
TracePrint x
TracePrint y
坐标(i, 0) = x
坐标(i, 1) = y
i = i + 1
If i > 1 Then
Exit Do
End If
End If
Loop
TracePrint 坐标(0, 0) & "," & 坐标(0, 1)
TracePrint 坐标(1, 0) & "," & 坐标(1, 1)

谢谢4楼，我去试下

好像还有问题，坐标乱跑。自己加了右键连击出没效果

//说明：按照一定频率反复点击鼠标右
//1秒 = 1000毫秒
UserVar Yanshi=200 "两次点击的时间间隔（毫秒）"
Dim 坐标(1,1)
i=0
Do
key = WaitKey()
If key = 13 Then
GetCursorPos x, y
TracePrint x
TracePrint y
坐标(i, 0) = x
坐标(i, 1) = y
i = i + 1
If i > 1 Then
Exit Do
End If
End If
loop
Do
MoveTo 坐标(0, 0),坐标(0, 1)
RightClick 1
Delay Yanshi
MoveTo 坐标(1, 0),坐标(1, 1)
RightClick 1
Delay Yanshi
loop

这样是正常了，但还有点问题：
1、没有提示输入延时
2、怎么让回车前有个提示：请输入回车键确认位置（我加了MESS好像中间有停顿）

没人帮顶？ 自己顶一下。