展开全部
使用API函数mouse_event可以模拟鼠标事件,比如左键单击、双击和右键单击等。这个实例利用此函数产生了十分有趣的效果,无论鼠标处于屏幕的任何位置,每隔一秒程序会使鼠标在那个位置单击或双击一次,这会给我们造成什么样的混乱呢?试一试就知道了。
先在程序中加入如下的声明后,就能引用mouse_event函数:
Private Declare Sub mouse_event Lib "user32" (ByValdwFlags As Long, ByVal dx As Long, ByValdy As Long, ByValcButtons As Long, ByValdwExtraInfo As Long)
其中各个参数的意义如下表所示: 参数意义
dwFlags Long,下表中标志之一或它们的组合
dx,dy Long,根据MOUSEEVENTF_ABSOLUTE标志,指定x,y方向的绝对位置或相对位置
cButtons Long,没有使用 dwExtraInfo Long,没有使用 dwFlags常数意义
MOUSEEVENTF_MOVE &H1,移动鼠标
MOUSEEVENTF_LEFTDOWN &H2,模拟鼠标左键按下 MOUSEEVENTF_LEFTUP &H4,模拟鼠标左键抬起 MOUSEEVENTF_RIGHTDOWN &H8,模拟鼠标右键按下 MOUSEEVENTF_RIGHTUP &H10,模拟鼠标右键抬起 MOUSEEVENTF_MIDDLEDOWN &H20,模拟鼠标中键按下 MOUSEEVENTF_MIDDLEUP &H40,模拟鼠标中键抬起 MOUSEEVENTF_ABSOLUTE &H8000,标示是否采用绝对坐标
先在程序中加入如下的声明后,就能引用mouse_event函数:
Private Declare Sub mouse_event Lib "user32" (ByValdwFlags As Long, ByVal dx As Long, ByValdy As Long, ByValcButtons As Long, ByValdwExtraInfo As Long)
其中各个参数的意义如下表所示: 参数意义
dwFlags Long,下表中标志之一或它们的组合
dx,dy Long,根据MOUSEEVENTF_ABSOLUTE标志,指定x,y方向的绝对位置或相对位置
cButtons Long,没有使用 dwExtraInfo Long,没有使用 dwFlags常数意义
MOUSEEVENTF_MOVE &H1,移动鼠标
MOUSEEVENTF_LEFTDOWN &H2,模拟鼠标左键按下 MOUSEEVENTF_LEFTUP &H4,模拟鼠标左键抬起 MOUSEEVENTF_RIGHTDOWN &H8,模拟鼠标右键按下 MOUSEEVENTF_RIGHTUP &H10,模拟鼠标右键抬起 MOUSEEVENTF_MIDDLEDOWN &H20,模拟鼠标中键按下 MOUSEEVENTF_MIDDLEUP &H40,模拟鼠标中键抬起 MOUSEEVENTF_ABSOLUTE &H8000,标示是否采用绝对坐标
追问
厉害啊, 答非所问!
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询