去鼠标坐标。。。

WGの执行官

.版本 2
.子程序 取鼠标坐标, 坐标型, 公开, 取当前鼠标所在坐标(返回坐标)
.参数 句柄, 整数型, 可空, 鼠标坐标所在的窗口句柄,取出鼠标所在窗口中的坐标 可空为:在屏幕中的坐标
.局部变量 光标位置, 坐标型 .局部变量 坐标1, 坐标型
.如果真 (句柄 ≠ 0)
    坐标1 ＝ 取窗口内顶点 (句柄)
.如果真结束
_取鼠标位置 (光标位置)
光标位置.x ＝ 光标位置.x － 坐标1.x
光标位置.y ＝ 光标位置.y － 坐标1.y
返回 (光标位置)