湖州方志馆介绍:请问vb如何模拟鼠标动作

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/11 02:29:52
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

上面的那个api错没错哦,而且鼠标点击的坐标还要是不在vb程序窗口范围中的.鼠标的点击的的语句该怎么写哦.谢谢了.

SetCursorPos(x,y) '这是鼠标位置,也是api函数
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0) '单击事件
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0)

双击就模拟两次