读书人

VB里怎么模拟鼠标的移动/点击

发布时间: 2012-02-01 16:58:19 作者: rapoo

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

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



[解决办法]
点击,使用mouse_event不行吗?

代码:

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

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

读书人网 >VB

热点推荐