打印本文 打印本文 关闭窗口 关闭窗口
模拟一次鼠标事件
作者:武汉SEO闵涛  文章来源:敏韬网  点击数759  更新时间:2009/4/23 14:59:18  文章录入:mintao  责任编辑:mintao
  使用API函数mouse_event可以模拟一次鼠标事件,比如左键单击、双击和右键单击等。这个实例利用此函数产生了十分有趣的效果,无论鼠标处于屏幕的任何位置,每隔一秒程序会使鼠标在那个位置单击或双击一次,这会给我们造成什么样的混乱呢?试一试就知道了。

-------------------------------------------
模拟鼠标的左键单击和右键单击
-------------------------------------------
程序说明:
本例采用API函数实现模拟的鼠标事件,程序运行后会
产生十分有趣的效果。也来试一试。
本例中只使用了相对鼠标坐标,我们也可以使用绝对
鼠标坐标来试一试。
-------------------------------------------

【VB声明】

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)

【说明】
模拟一次鼠标事件

【备注】
进行相对运动的时候,由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度

【参数表】
dwFlags -------- Long,下述标志的一个组合
MOUSEEVENTF_ABSOLUTE

打印本文 打印本文 关闭窗口 关闭窗口