没悬赏也来求啊 Rem start key = WaitKeySelect case key Case 49 GetCursorPos x， y #39得到鼠标当前坐标x，y case 36 Call 具体你要做的事的过程End Select Goto start EndScript Sub 具体你要做的事的过程。

命令名称 GetCursorPos 得到鼠标位置坐标 命令功能 得到当前鼠标所在的位置坐标 命令参数 参数1 整数型，返回x坐标 参数2 整数型，返回y坐标 这个是前台 貌似 后台 还没有 获得 鼠标坐标的 功能 只能 后台。

Rem start key = WaitKeySelect case key Case 49 GetCursorPos x， y #39得到鼠标当前坐标x，y case 36 Call 具体你要做的事的过程End Select Goto start EndScript Sub 具体你要做的事的过程。

得到滑鼠XY座标，保存在X，Y变数中貌似Long型VBSCall GetCursorPosx，y或者用 保存滑鼠位置 SaveMousePos 滑鼠移动到上次保存的位置 RestoreMousePos。

KeyUp 弹起 格式 KeyUp 键盘ASCII码 次数解释”按下”键，模拟我们平时的”弹起”操作 MoveTo 格式MoveTo X坐标 Y坐标解释移动鼠标到X坐标，Y坐标处 版本变化550版之后， X坐标和Y坐标可以。

do dmGetCursorPos x，y MessageBox xquot，quoty delay 1500 loop。

因为在录制的时候，你的鼠标移动有很多停顿或延时，不是一下子移到一个目标的，于是脚本里就记录了你所有动作的延时，延时在脚本里叫Delay，你可以适当的把一些Delay删掉，这样动作就干脆很多了。