以下代码插入到你脚本的第一行
Global G_坐标x, G_坐标y
线程ID = BeginThread(获取点坐标)
Delay 20
Function 获取点坐标()
Do
key = WaitKey()
If key = 17 Then
GetCursorPos x, y
G_坐标x = x : G_坐标y = y
TracePrint G_坐标x & " , " & G_坐标y
End If
Delay 20
loop
End Function
你要鼠标移动到位置代码
If G_坐标x > 0 Then MoveTo G_坐标x, G_坐标y