VB如何用空格键模拟鼠标右击

来源：百度知道 编辑：UC知道 时间：2024/05/26 08:35:41
按下空格键 执行每1秒一次的右击操作
放开空格键 右击操作停止
任何窗体有效
希望VB大虾们帮帮忙
对当前激活窗体,而不是单一的VB窗体,怎么编写程序
===============================================
我的意思是当Form最小化或失去焦点时，Keydown依然可以响应怎么写程序

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 _
)

'对API变量的定义
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

'=============================================
下面这句就是调用了
'模拟鼠标右键单击事件
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
'模拟鼠标右键单击事件
mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

'剩下的 你就应该很好弄了吧

'==================================
晕 这就是对任何位置的点击啊，鼠标指哪点哪
如果要指定位置 那还是用楼下的兄弟的方法

用hook，弄个线程监视键盘输入，对空