vb6的热键问题，纠结了一晚上

wanren2008

以前在CSDN上就拜读过嗷嗷叫的老马的文章，受益匪浅。也非常感谢！
这次找vb6下关于热键的技术文章，找来找去都是语焉不详，包括网上王国荣VC写的那个dll。也许水平有限，看了半天还是不知道该如何用。终于还是下载看了老马的那个例子，大致明白了。

于是自己试着测试了一下，那个热键类没有任何改动，只是建了一个form，然后注册3个热键，
但是发现第3个怎么也注册不成功，于是又加个GetLastError来看API调用错误，发现是1409（热键已注册）。
不知道怎么回事，特来求教。源码附上。敬请指点。
不能上传文件啊。那就说下吧。
类cHotkey原样照抄，一字没改。只是加了一些debug.Print。
建了一个From，在里边注册了3个热键：F10，F11，F12。
运行调试，发现在F12注册时，返回热键已注册的错误，注册失败。
在cHotKey里边加了句：（GetLastError已声明：Private Declare Function GetLastError Lib "kernel32" () As Long）
    I = RegisterHotKey(mfrmHwnd, KeyAtom(UBound(KeyAtom)), K, HotKey)
       Debug.Print "HotKeyRegister:  " & I & ";    GetLastError: " & GetLastError
注册F10和F11时，没出错，立即窗口：HotKeyRegister:  1;    GetLastError: 0
注册F12时，立即窗口：HotKeyRegister:  0;    GetLastError: 1409

Form源码：
---------------------------------------------------------------------------------------
Option Explicit

Dim WithEvents myHotKey As cHotkey
Dim hkIndex(3) As Integer

Private Sub Form_Load()
    Set myHotKey = New cHotkey
    myHotKey.frmHwnd = Me.hwnd
   
    Debug.Print "==========" & myHotKey.frmHwnd
   
    hkIndex(0) = myHotKey.AddHotKey(vbKeyF10) - 1
    hkIndex(1) = myHotKey.AddHotKey(vbKeyF11) - 1
    hkIndex(2) = myHotKey.AddHotKey(vbKeyF12) - 1    '<--这个注册失败了
    Debug.Print hkIndex(0) & ",  " & hkIndex(1) & ",  " & hkIndex(2)
    myHotKey.StartHotKeys Timer1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    myHotKey.ClsAllHotKey
    Set myHotKey = Nothing
End Sub

Private Sub myHotKey_HotKeyPress(ByVal HotKeyIndex As Long, ByVal HotKey As Long, ByVal hCtrl As Boolean, ByVal hAlt As Boolean, ByVal hShift As Boolean)
    MsgBox "Hot Key press!"
    If HotKeyIndex = vbKeyF10 Then
        MsgBox "F10"
    End If
End Sub

马大哈

F12肯定被哪个进程注册了......换一个吧....

wanren2008

好吧。。。我试试。
如果能检查出来哪个进程注册了就好了。

马大哈

检测出来了要卸载也不容易.

还是换个热键吧.

或者使用键盘HOOK:

封装了一个键盘鼠标HOOK类,使用方便(VB6.0)http://www.m5home.com/blog/default.asp?id=245

wanren2008

现在这里有3个涉及到的方法：
1）最先下了老马的：全局热键类的多热键示例工程
2）上午下了 热键例程.rar （http://www.m5home.com/bbs/thread-4715-1-1.html）
3）刚才又下了楼上的那个全局键盘鼠标HOOK封装类

到底用哪个好一些呢？
-----------------------------------------------------------------------------
先说下我想做什么吧。
前不久用按键精灵做了个游戏辅助工具，开始就是做着玩，但是后来不断增加内容，
最后写了5000多行。毕竟按键精灵还是局限比较多，而且写来写去没啥意思。
就想用VB6来写。

首先就遇到热键问题，因为必须有一个热键把辅助工具呼出/隐去，还要有热键来开启、
暂停、中止。这个问题解决了，就可以真正写操作键鼠了。这个也不算外挂吧，毕竟
不去解封包，只是操作鼠标代替人手完成一些机械操作。
当然，驱动我去写这个的，纯粹因为个人对编程的爱好。

就像按键精灵一样，热键其实也就需要那么几个。所以帮我推荐一下哪种方法好？
（奇怪的是，按键精灵制作的脚本，F12是可以设为热键用的）

马大哈

不使用注册热键,也不使用HOOK的话,就还有一招,那就是调用getkeystate:

1. 【VB声明】
   
2.   Private Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
   
3. 
   
4. 【说明】
   
5.   针对已处理过的按键，在最近一次输入信息时，判断指定虚拟键的状态
   
6. 
   
7. 【返回值】
   
8.   Integer，如开关键打开，则位0设为1（开关键包括CapsLock，
   
9.   NumLock，ScrollLock）；如某个键当时正处于按下状态，则位15为1；如已经抬起，则为0
   
10. 
    
11. 【参数表】
    
12.   nVirtKey -------  Long，欲测试的虚拟键键码。对字母、数字字符（A-Z、a-z、0-9），用它们实际的ASCII值

复制代码

用个定时器不断调用它,判断你要的键是否被按下,就行了.

wanren2008

用定时器不断调用的话，会不会太耗资源？
因为有时候开很多号，本身很负重的。
（不一定非用F10，可以换个热键用的。）

我想基于ydj404606848的热键例程，参考老马的那个类的写法，做个封装类增加一些属性啥的。

马大哈

回复 wanren2008 的帖子

定时器本身是极低优先级的,只要你在定时器过程里不做消耗CPU的操作,就不会有问题.

就这个应用而言,应该不会有效率问题.