如何模拟鼠标的动作？

Question

比如左键单击、右键单击、按住、移动、等等……

Answer 1

sendmessage
怎么用啊？我没装MSDN！

Answer 2

【VB声明】
  Private 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)【说明】
  模拟一次鼠标事件 【备注】
  进行相对运动的时候，由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度【参数表】
  dwFlags --------  Long，下述标志的一个组合
  MOUSEEVENTF_ABSOLUTE  dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元 -  MOUSEEVENTF_MOVE
  移动鼠标
  MOUSEEVENTF_LEFTDOWN
  模拟鼠标左键按下
  MOUSEEVENTF_LEFTUP
  模拟鼠标左键抬起
  MOUSEEVENTF_RIGHTDOWN
  模拟鼠标右键按下
  MOUSEEVENTF_RIGHTUP
  模拟鼠标右键按下
  MOUSEEVENTF_MIDDLEDOWN
  模拟鼠标中键按下
  MOUSEEVENTF_MIDDLEUP
  模拟鼠标中键按下
  dx
  Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动  dy -------------  Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动  cButtons -------  Long，未使用  dwExtraInfo ----  Long，通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序常数声明：
Public Const MOUSEEVENTF_ABSOLUTE = &H8000 '  absolute move
Public Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 '  left button up
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 '  middle button down
Public Const MOUSEEVENTF_MIDDLEUP = &H40 '  middle button up
Public Const MOUSEEVENTF_MOVE = &H1 '  mouse move
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 '  right button down
Public Const MOUSEEVENTF_RIGHTUP = &H10 '  right button upPublic Const MK_LBUTTON = &H1
Public Const MK_MBUTTON = &H10
Public Const MK_RBUTTON = &H2
Public Const MK_SHIFT = &H4
Public Const MK_CONTROL = &H8
Public Const WM_CLOSE = &H10

Answer 3

如果需要代码，给我一个mail地址，我做过一个广告赚钱作弊的程序，类似按键精灵，可以发给你看看

Answer 4

那个常数声明部分放在哪里的？怎么会出错？Const那里出错……

Answer 5

就是spfanghong(NewMan) 写的办法，最好是把这个写在一个模块里，以后就都可以用了
不过在声明函数的地方，就是最上边的
Private 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)
开头的private要改为public，const写在声明的下边就可以
你出错是因为const是public而声明是private。
我这里有示例的代码，要的话说一声