用 VB 实现全局热键模块

• 　用 VB 实现全局热键模块
  武汉 艾军
  在软件报以前的文章中，虽然也介绍了如何用 VB 实现全局热键的方法，但是这些文章都只是针对初学者学习技巧而用，而在真正的程序编写中是不适应的，为了使我们编写的程序有继承性、维护性因此有必要制作一个实现全局热键的模块。
  请大家看看下面调用全局热键的示例：
  激活 3 个热键：（注：SetHotkey 是我自定义的函数）
  SetHotkey 1, "Ctrl,112", "Add"        按 Ctrl+F1 激活指定程序
  SetHotkey 2, 113, "Add"            按 F2 激活指定程序
  SetHotkey 3, "Ctrl+Alt,113", "Add"    按 Ctrl+Alt+F2 激活指定程序
  注释：注：关于激活热键后的操作，由自定义函数 SetHotkey 的 KeyId 传送的值来判断
  注销 3 个热键：
  SetHotkey 1, "", "Del"              退出程序是一定要用上的，不然会导至程序死掉
  SetHotkey 2, "", "Del"
  SetHotkey 3, "", "Del"
  请大家新建一个模块（.bas）文件，自定义 SetHotkey函数及其他，这样在以后的任何程序中只要调用此模块就可以了。
  注释：本模块是有关热键操作的
  Option Explicit
  Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  Private 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
  Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fskey_Modifiers As Long, ByVal vk As Long) As Long
  Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long
  
  Const WM_HOTKEY = &H312
  Const MOD_ALT = &H1
  Const MOD_CONTROL = &H2
  Const MOD_SHIFT = &H4
  Const GWL_WNDPROC = (-4)  注释：窗口函数的地址
  
  Dim key_preWinProc As Long 注释：用来保存窗口信息
  Dim key_Modifiers As Long, key_uVirtKey As Long, key_idHotKey As Long
  
• [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用 VB 实现全局热键模块 相关文章：
• ·CSS模块化设计——从空格谈起
• ·Javascript的一种模块模式
• ·只想对你说我爱你_QQ空间Flash模块
• ·QQ空间FD模块_非主流时尚GG版
• ·3DsMAX实例：立体彩块和透明亮球
• ·半生宿命QQ空间FLASH模块
• ·为爱流泪QQ空间FLASH模块
• ·非主流男女QQ空间FLASH模块
• ·QQ空间模块_是我想的太多
• ·绕过Anti-Rookit的内核模块扫描技巧
• 用 VB 实现全局热键模块 相关软件
• ·《方块之旅》游戏试玩
• ·街机经典游戏《街霸方块》模拟器
• ·《牛仔英语方块》试玩
• ·《棉球方块大冒险》试玩
• ·《超级方块》益智篇2试玩
• ·《超级方块》爆裂篇试玩
• ·敲砖块 欧美豪华版
• ·手机游戏：块魂
• ·3D俄罗斯方块
• ·玛雅足球砖块

上一篇:用 VB 实现新闻眼（提取搜狐的当天新闻），刚写的文章（准备投稿用的），大家先看为快吧，再提点见意！！

下一篇:隐藏鼠标

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐