VBS dim x,y.
VBSCall GetCursorPos(x,y)
VBSCall MessageBox("坐标为:x="+cstr(x)+" y="+cstr(y))