高手帮看看下面一段代码吧
模块代码如下:
Option Explicit
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 Sub CopyMemory Lib "kernel32 " Alias "RtlMoveMemory " (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)
Public Declare Function ImmGetContext Lib "imm32.dll " (ByVal hwnd As Long) As Long
Public Declare Function ImmGetCompositionString Lib "imm32.dll " Alias "ImmGetCompositionStringA " (ByVal himc As Long, ByVal dw As Long, lpv As Any, ByVal dw2 As Long) As Long
Public Declare Function ImmReleaseContext Lib "imm32.dll " (ByVal hwnd As Long, ByVal himc As Long) As Long
Public Type PMSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As Long
End Type
Public Const WH_GETMESSAGE = 3
Public Const VK_LWIN = &H5B
Public Const VK_RWIN = &H5C
Public Const VK_CONTROL = &H11
Public Const VK_TAB = &H9
Public Const VK_SHIFT = &H10
Public Const HC_ACTION = 0
Public Const HC_SYSMODALOFF = 5
Public Const HC_SYSMODALON = 4
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
Public Const LLKHF_ALTDOWN = &H20
Public Const VK_ESCAPE = &H1B
Public Const WM_IME_COMPOSITION = &H10F
Public Const GCS_RESULTSTR = &H800
Public P As KEYMSGS
Public mm As PMSG
Public lHook As Long
Public Function MessageProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim himc As Long, hwnd As Long, dwsize As Long
Dim lpstr As String * 20
If (nCode = HC_ACTION) Then
CopyMemory mm, ByVal lParam, Len(mm)
If mm.message = WM_IME_COMPOSITION Then
hwnd = mm.hwnd
If mm.lParam & GCS_RESULTSTR Then
himc = ImmGetContext(hwnd)
If himc = 0 Then
Debug.Print "get himc error "
End If
dwsize = ImmGetCompositionString(himc, GCS_RESULTSTR, Null, 0)
dwsize = dwsize + 2
ImmGetCompositionString himc, GCS_RESULTSTR, lpstr, dwsize
Debug.Print lpstr
ImmReleaseContext hwnd, himc
End If
End If
End If
MessageProc = CallNextHookEx(lHook, nCode, wParam, ByVal lParam)
End Function
窗体代码很简单
Private Sub Command1_Click()
lHook = SetWindowsHookEx(WH_GETMESSAGE, AddressOf MessageProc, App.hInstance, 0)
End Sub
Private Sub Command2_Click()
UnhookWindowsHookEx lHook
End Sub
问题是始终捕获不到WM_IME_COMPOSITION 消息
请大家帮看看是什么问题，
比如pmsg数据结构的定义是否正确?
Public Function MessageProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
定义是否正确
[解决办法]
把lHook = SetWindowsHookEx(WH_GETMESSAGE, AddressOf MessageProc, App.hInstance, 0)这句改成
lHook = SetWindowsHookEx(WH_GETMESSAGE, AddressOf MessageProc, App.hInstance, App.ThreadID)即可
[解决办法]
你要全局的话必须要用DLL来完成
[解决办法]
顶陈兄,呵呵
