用 VB 实现全局热键模块

• Dim key_IsWinAddress  As Boolean 注释：是否取得窗口信息的判断
  
  
  Function keyWndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  
      If Msg = WM_HOTKEY Then
          Select Case wParam 注释：wParam 值就是 key_idHotKey
              Case 1 注释：激活 3 个热键后,3 个热键所对应的操作,大家在其他的程序中，只要修改此处就可以了
                  MsgBox "aa"
              Case 2
                  MsgBox "bb"
              Case 3
                  MsgBox "cc"
          End Select
      End If
      
      注释：将消息传送给指定的窗口
      keyWndproc = CallWindowProc(key_preWinProc, hwnd, Msg, wParam, lParam)
      
  End Function
  
  Function SetHotkey(ByVal KeyId As Long, ByVal KeyAss0 As String, ByVal Action As String)
      Dim KeyAss1 As Long
      Dim KeyAss2 As String
      Dim i As Long
      
      i = InStr(1, KeyAss0, ",")
      If i = 0 Then
          KeyAss1 = Val(KeyAss0)
          KeyAss2 = ""
      Else
          KeyAss1 = Right(KeyAss0, Len(KeyAss0) - i)
  
• 上一页 [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

特别推荐