VB里如何模拟鼠标的移动/点击？

[lengx7]

我的屏幕是1440*900的，如果我要点击的位置是屏幕上的1213/544，这个位置在某程序内是1209/517，我怎样才能让鼠标移动到这个位置，然后再点击鼠标左键？
mouse_event在xp下听说不能用，而且我测试的时候也一直出错，没成功

[yin138]

如果你知道指定位置，那么你可以得到该位置的最上层窗口（包括按钮之类）的句柄，然后向该窗口发送一个消息就可以了。
如果你一定要让鼠标指针移到那的话，也可以使用API做到。
GetCursorPos ‘获得鼠标位置
SetCursorPos ‘设置鼠标位置
WindowFromPoint ‘从位置得到窗口句柄

[lengx7]

GetCursorPos ‘获得鼠标位置
SetCursorPos ‘设置鼠标位置
这两个我用了，而且也可以把鼠标设置到指定的地方去，不过如果把鼠标设置在100/100的位置，那么它会出现在整个屏幕100/100的位置，不是程序内里的100/100，而我希望鼠标能点在程序内100/100的位置

我获取程序句柄用的是FindWindow，不知道对不对。。

把鼠标指定到程序内100/100的位置，然后再点击鼠标，该如何实现啊？

[programart_life]

再加个函数ScreenToClient把坐标转换成窗体里 的坐标

[lengx7]

这个ScreenToClient我也用了，可以得到窗体内的位置
但是。。。还是不会点击啊。。

[lengx7]

各位高手都帮帮忙哇。。

[daxian520]

哪位高人啊!暴风雨啊!来解决下啊`

[嗷嗷叫的老马]

点击,使用mouse_event不行吗?

代码:

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, _
0&, 0&, 0&, 0& '模拟鼠标点击

我是2003 + VB6.0,测试成功.