使用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
|