VB 如何得到光标坐标 如何移动鼠标 ，如何模拟鼠标左键单击

Question

vb 如何获得其他程序的光标坐标 比如excel活动单元格的光标或者其他程序（用vc,delphi等）编写的text的光标，然后移动鼠标到这个位置，模拟鼠标左键单击。

Answer 1

GetCursorPos ,SetCursorPos 获得和设置鼠标坐标
CreateCaret  创建插入符光标
GetCaretPos,SetCaretPos,HideCaret,ShowCaret,DestroyCaret (光标) 取得位置,设置位置,隐藏,显示,删除 
mouse_event 鼠标模拟事件
单击
SetCursorPos x, y
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

Answer 2

SetCursorPos(int   x,int   y);  
mouse_event(MOUSEEVENTF_LEFTDOWN,x,y,0,0);  
mouse_event(MOUSEEVENTF_LEFTUP,x,y,0,0);   

Answer 3

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print X, Y
End Sub