vb 设置多个全局按键

设置一个就会设置多个

API函数就那两个

RegisterHotKey

UnRegisterHotKey

最好事先设置一个函数（如SetHotKey（Long,,））,常数就不举了

根据键盘返回键码,用Select语句筛选，最后符合自己设置好的那些热键，执行相关 *** 作就OK了（其中要注意判断Shift、Ctrl和Alt这些键，以完成设定组合键，楼主应该了解）。

不要用调试器,要不你会哭的..生成exe后再调试

基本原理就是截取windows消息，这是定义唯一的全局热键，也就是说别的程序无法占用此热键，

还有一种方法，也是截取windows消息，只不过热键不是唯一，只是截取按键信息，代码比这种方法要少一些。

'以下程序放在模块中

Option Explicit

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long

Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long

Public Const WM_HOTKEY = &H312

Public Const MOD_ALT = &H1

Public Const MOD_CONTROL = &H2

Public Const MOD_SHIFT = &H4

Public Const GWL_WNDPROC = (-4)

Public preWinProc As Long

Public Modifiers As Long, uVirtKey1 As Long, idHotKey As Long

Private Type taLong

ll As Long

End Type

Private Type t2Int

lWord As Integer

hword As Integer

End Type

Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Dim lp As taLong, i2 As t2Int

If Msg = WM_HOTKEY Then

If wParam = idHotKey Then

lp.ll = lParam

LSet i2 = lp

If (i2.lWord = Modifiers) And i2.hword = uVirtKey1 Then

'------------------------------------------------------

'这里面是快捷键代码，你可以随便改

Form1.Visible = Not Form1.Visible

'------------------------------------------------------

End If

End If

End If

'如果不是热键信息则调用原来的程序

wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)

End Function

'窗体中

Option Explicit

Private Sub Form_Load()

Dim ret As Long

'记录原来的window程序地址

preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)

'用自定义程序代替原来的window程序

ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc)

idHotKey = 1 'in the range ＆h0000 through ＆hBFFF

Modifiers = MOD_ALT '辅助键为Alt

uVirtKey1 = vbKeyQ '注册的热键为Alt+Q

'注册热键

ret = RegisterHotKey(Me.hwnd, idHotKey, Modifiers, uVirtKey1)

If ret = 0 Then

MsgBox "注册热键失败,请使用其它热键!", vbCritical, "错误"

End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Dim ret As Long

'取消Message的截取，使之送往原来的window程序

ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)

Call UnregisterHotKey(Me.hwnd, uVirtKey1)

End Sub

1、首先在电脑桌面右下角托盘处，鼠标右击点击应用程序图标，d出选择“首选项”。2、进入首选项对话框，上方菜单栏点击“快捷键”。3、鼠标点击要修改的项，按Backspace键删除现在的内容。4、直接按键盘上的按键，即可设置需要的快捷键。5、如

想把不常用的按键设置为其他功能?玩游戏的时候想“改键”以便疯狂刷怪?某一个按键坏了，想用其他按键代替输入?下面为大家分享如何自定义属于自己的键盘功能。

方法

在360上搜索“KeyTweak(按键修改器)”，然后点击下载。安装完成之后，在“所有程序"中找到"KeyTweak”点击打开。

键盘上的快捷键设置方法1、在电脑桌面上单击右键，在d出的菜单中选择“新建”。2、在d出的菜单中选择“快捷方式”。3、然后，在“创建快捷方式”对话框中单击“浏览”。4、单击下图红框中的“计算机"选项，从中选择要建立快捷方式的QQ程序。5、选

看到界面上有126个按钮，分别对应物理键盘上按键的位置。点击85，可以在下方看到一条英文信息:85当前映射为“Page up”，意思就是键盘上的26按钮代表的是Page up键。

怎样快速 *** 作电脑方法/步骤1.选择。选定整篇文章，就使用快捷键Ctrl+A。记住这一组就可以了。如果想知道多一点:1.向下选定一行字: Shift+↓2.向上选定一行字: Shift+13.向右选择一个字: Shift+→4.向左选择一个字: Shift+<—2.2复制、粘贴。编辑文

再来看一下右边的功能表，里面有减少音量，增加音量，暂停，播放等功能。就不详细介绍了，当你把鼠标放在按钮上面，便会有相应的功能介绍了。如果大家喜欢其中的功能的话就把它映射到按键上吧，一键即达哦。

1、打开电脑中的音乐播放器并点击页面上的设置选项。2、在d出的页面中点击设置选项，进入设置界面中。3、点击设置页面中的热键设置选项。进入热键设置页面。4、勾选页面中的全局热键选项，并点击确定选项保存刚刚的设置即可。

来通过一个实例来介绍如何 *** 作吧:如果想把“Home键”映射为“增加音量”该怎么设置呢?先把鼠标点在8O按钮上，也就是Home键，可以看到在下方已经有英文提示了。然后在下面的下拉列表中，选择VolumeDown (音量减少)。然后点击Remap Key (映射键），就可以把Home键映射为音量减少功能。

取消键盘快捷键的方式如下:1、首先在“开始”中找到“计算机”。2、点击右键打开“管理”。3、找到“服务和应用”，双击打开。4、在下一个窗口双击“服务”选项。5、找到“Human Interface DeviceAccess”并单击。6、在窗口左边选择“停止此服务”。这

设置完成之后，可以在右下方的信息框看到你当前要修改的映射，如果你不想应用映射设置的话，就选中那一行映射，然后点击“clear”就可以清掉了。确认你设置的映射，然后点击apply就可以应用所更改的设置了。由于修改的是注册表映射，所以会d出一个窗口，提示需要重启才能应用更改。

解决办法如下:1、在360上搜索“KeyTweak(按键修改器)”，然后点击下载。安装完成之后，在“所有程序"中找到“KeyTweak”点击打开。2、看到界面上有126个按钮，分别对应物理键盘上按键的位置。点击85，可以在下方看到一条英文信息:85当前映射为“Pa

重启之后，就成功修改按键映，赶快测试一下按键效果吧。这时候你可能会有疑问了，如果想看一下修改后的映射信息呢?如果想改回来呢?不用着急，重新打开KeyTweak，你就会在上方的信息框看到你所修改的映。如果想恢复到默认的话，点击Restroe All Defaults就可以了。

快捷方式的快捷键在其他地方都是可以用的，不过只是针对设置的这一快捷方式，比如打开进入网页后，输入快捷方式的快捷键也是可以将快捷方式打开的。1、鼠标右键点击文件的快捷方式。2、右键点击快捷方式后，点击属性选项。3、进入快捷键的属

---