求教WindowsAPI大佬

tspliu

我想在单元格（或者某个txt，某个游戏）按键盘的时候如果按的是数字1，立即窗口会输出"你准确找到了1键"，但是现在立即窗口提示能实现，如何让我敲击的那些个键正常录入到单元格中呢。代码在二楼

tspliu

Public hHook As Long
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _
(ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long)
Const WH_KEYBOARD = 2
Const WM_KEYDOWN = &H100
Public a As Long
Public Type EVENTMSG
    vKey As Long
    sKey As Long
    flag As Long
    time As Long
End Type
Public mymsg As EVENTMSG
Public Const WH_KEYBOARD_LL = 2


Sub BeginHK()
    '获取当前的线程ID
    I = GetCurrentThreadId
    '这里安装的是键盘钩子
    hHook = SetWindowsHookEx(2, AddressOf HookProc, 0, I)
End Sub
'Hook程序
Public Function HookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    '如果code参数＜0，则一定要返回CallNextHookEx函数的返回值
    Dim sKeyName As String
    sKeyName = Space(256)
    bLen = 256
    If code < 0 Then
        HookProc = CallNextHookEx(hHook, code, wParam, lParam)
    Else
        ResultLen = GetKeyNameText(lParam, sKeyName, bLen)
        If Left(sKeyName, ResultLen) = "1" Then
            Debug.Print "你准确找到了" & Left(sKeyName, ResultLen) & "键"
        End If
        HookProc = 1
    End If
End Function
Sub EndHK()
    UnhookWindowsHookEx hHook
End Sub

tspliu

我搜了好多，说是把HookProc 返回值改为CallNextHookEx(hHook, code, wParam, lParam)，但是死循环。。

perfect131

tspliu 发表于 2024-2-10 12:33
Public hHook As Long
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA ...

没考虑 组个键 跟 鼠标键

tspliu

perfect131 发表于 2024-2-12 21:29
没考虑 组个键 跟 鼠标键

嘿嘿，大神来了事情就简单了，我描述的有点不太准确
拿你这个举例，比如我在立即窗口敲1，我希望在单元格中显示你按下了1键，立即窗口也有这个1存在，不把这个按键消息吃掉。

tspliu

perfect131 发表于 2024-2-12 21:29
没考虑 组个键 跟 鼠标键

就像这个说的可以不做处理，继续传递该消息。。

zpy2

tspliu 发表于 2024-2-12 23:37
就像这个说的可以不做处理，继续传递该消息。。

hHook = SetWindowsHookEx(2, AddressOf HookProc, 0, I)

全局键盘钩子我记得是要放到标准的.dll文件里才能实现跨进程的消息传递，你这样子，可能拦截了，但是无法继续传递到另一个进程了。

zpy2

zpy2 发表于 2024-2-13 18:40
hHook = SetWindowsHookEx(2, AddressOf HookProc, 0, I)

全局键盘钩子我记得是要放到标准的.dll文件 ...

https://club.excelhome.net/forum.php?mod=viewthread&tid=1482161&extra=&mobile=&_dsign=bb547adf
这个代码缩进，我记得就是在.dll拦截了f11