vb如何模拟鼠标的Click事件！

如题！如SendMessage(window_hwnd, WM_LBUTTONDOWN, 0, 0)模拟mousedown事件！

解决方案 »

  1.   

    你声明了sendmessage api函数后
    对要获取事件的窗体的hwnd得出
    发送消息过去就可以了啊！
      

  2.   

    使用mouse_event函数Public Declare Sub 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)其中：
    dwFlags：long，下述标志的一个组合：
    MOUSEEVENTF_ABSOLUTE：dx和dy指定鼠标坐标系统中的一个绝对位置  
    MOUSEEVENTF_MOVE：移动鼠标  
    MOUSEEVENTF_LEFTDOWN：模拟鼠标左键按下  
    MOUSEEVENTF_LEFTUP：模拟鼠标左键抬起
    MOUSEEVENTF_RIGHTDOWN：模拟鼠标右键按下
    MOUSEEVENTF_RIGHTUP：模拟鼠标右键抬起 
    MOUSEEVENTF_MIDDLEDOWN：模拟鼠标中键按下 
    MOUSEEVENTF_MIDDLEUP：模拟鼠标中键抬起  
    MOUSEEVENTF_WHEEL：模拟鼠标滚轮dx：Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动dy：Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动cButtons：Long，未使用dwExtraInfo：Long，通常没用的一个值