谁有好的VB全局钩子代码？

来源：百度知道 编辑：UC知道 时间：2024/05/16 07:56:53
第一 要是全局钩子
第二 要是VB的
第三 要绝对能用的！
第四 参考第三

全局钩子? 干啥用的
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyB) < 0 And GetAsyncKeyState(vbKeyControl) < 0 Then 'ctrl+B
Me.WindowState = 0 '还原窗口
SetForegroundWindow Me.hWnd '使窗口在系统前台
End If
End Sub

去掉SetForegroundWindow函数也行,不过还原的窗口并非当前窗口(系统前台)

2:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const WM_SETHOTKEY = &H32
Public Const WM_SHOWWINDO