如何用程序“点击”别的窗口的指定位置？

Question

发现一个窗口外观上只由一张图片构成，没有按钮，点击到一个区域才发生指定事件。能否用程序点击这个区域里的一点？最好不要真正移动鼠标。

Answer 1

用mouse_event如何？Public Delcare Function mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)As  Boolean 
【函数】
mouse_event【操作系统】
Win9X:Yes
WinNT:Yes【声明】
mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)As  Boolean 【说明】  模拟一次鼠标事件 【返回值】
【其它】  进行相对运动的时候，由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度【参数表】
  dwFlags --------  Long，下述标志的一个组合
  MOUSEEVENTF_ABSOLUTE  dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元 -  MOUSEEVENTF_MOVE
  移动鼠标
  MOUSEEVENTF_LEFTDOWN
  模拟鼠标左键按下
  MOUSEEVENTF_LEFTUP
  模拟鼠标左键抬起
  MOUSEEVENTF_RIGHTDOWN
  模拟鼠标右键按下
  MOUSEEVENTF_RIGHTUP
  模拟鼠标右键按下
  MOUSEEVENTF_MIDDLEDOWN
  模拟鼠标中键按下
  MOUSEEVENTF_MIDDLEUP
  模拟鼠标中键按下
  dx
  Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动  dy -------------  Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动  cButtons -------  Long，未使用  dwExtraInfo ----  Long，通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序

Answer 2

不移动鼠标好像不太可能，其实我觉得你更本不用担心这个问题，你在移动鼠标之前先记录下鼠标的位置，然后移动鼠标做点击动作，最后将鼠标移送回去，现在的处理器一般都非常快，基本上用户感觉不到鼠标的移动
POINT pt;
GetCursorPos(&pt);
mouse_event(MOUSEEVENTF_LBUTTONDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LBUTTONUP,0,0,0,0);
SetCursorPos(pt.x,pt.y);
大体上就这个思路吧，很久没有用vb了，只能用vc的语法了，抱歉。
除此之外还有的方法就是
PostMessage到窗口一条WM_LBUTTONDOWN的消息
不过我以前用的时候好像鼠标会自己移动过去的，并且没有上面的那个方法好。

Answer 3

依次发送WM_LBUTTONDOWN和WM_LBUTTONUP消息即可（发送消息时lParam参数就指定了鼠标点击的位置）
lParam：
The low-order word specifies the x-coordinate of the cursor. The coordinate is relative to the upper-left corner of the client area. The high-order word specifies the y-coordinate of the cursor. The coordinate is relative to the upper-left corner of the client area

Answer 4

不过发送WM_LBUTTONDOWN和WM_LBUTTONUP消息时，我们更常见的做法，是先用SetCursorPos移动鼠标指针的位置，然后在发送消息时将lParam参数设为0

Answer 5

楼上的 请教一下
lParam 的LOWORD是X
         HIWORD是Y
在VC中只这样写的
PostMessage(hWnd,WM_LBUTTONDOWN,MK_LBUTTON,MAKELPARAM(x,y));
怎么转换为VB中的语句？

Answer 6

参考以下
http://vbclass.8u8.com/jishu/yaokong.htm

Answer 7

//PostMessage(hWnd,WM_LBUTTONDOWN,MK_LBUTTON,MAKELPARAM(x,y));
怎么转换为VB中的语句？
这样：
Function MakeDWord(LoWord as Integer, HiWord as Integer) as Long
MakeDWord = (HiWord * &H10000) Or (LoWord And &HFFFF&)
End Function 
调用：
PostMessage(hWnd,WM_LBUTTONDOWN,MK_LBUTTON,MakeDWord(x,y))