Question

想用VB模拟鼠标移动和点击操作，请教高手

我写了一个小程序，是工厂用的，用VB写的，为了方便省时，想模拟鼠标操作，隔一秒点击窗体内某一个坐标点上的按钮，请问高手，需要怎么写呢，特别感谢！！
比如，将鼠标移动到窗体内某个点上，模拟鼠标左键点击，这些 先谢过！！！

Answer 1

SetCursorPos 吧鼠标移到这个点上 然后用 mouse_event 模拟点击

追问

方便给一个带参数的例子么，谢谢，好象也看到了这样的方法，但那些参数不知道代表什么意思的说......

追答

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As
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)
‘以上是这两个函数的声明

Call SetCursorPos(10, 30)'10和30 指的是X和Y 坐标轴的坐标

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 ’单击

追问

第一个声明最后好象少一个单词呢，格式

追答

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As long

Answer 2

代码是写在按钮事件里的，所以你要点击该按钮才会移动和点击，亲测代码有效。