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