vb定义鼠标全局快捷键

来源：百度知道 编辑：UC知道 时间：2024/07/01 11:42:11
用vb定义全局快捷键，想做到这样：
按一下鼠标中键，则sendkeys "man"然后单击一下鼠标左键
滚动一下滑轮，则单击一下鼠标左键然后单击一下鼠标右键，然后sendkeys " ~"
答详细多多送分，请达人帮帮忙吧。
参考资料：
http://zhidao.baidu.com/question/112636768.html
http://zhidao.baidu.com/question/65130841.html

Public 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函数
' 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，标示是否采用绝对坐标

Public Const MOUSEEVENTF_MOVE = &H1
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Pu