csdn大讨论， 关于win32 hook， 程序员都要来看！

[rfa20]

请把你们的hook资料帖上来，如果在网上有下载，请注明地址。

请共享出你所知道的hook资料！

讨论：

hook都用在那些地方？作什么程序会用到hook。

[rfa20]

关注

[zzzling]

键盘HOOK怎么做的？
我同学作了一个，破了我的密码，气死我了
快教教我

[tzp]

我这里有两个函数
function KeyboardHookHandler(iCode: Integer;
wParam: WPARAM;
lParam: LPARAM): LRESULT; stdcall; export;
const
_KeyPressMask = $80000000;
begin
Result := 0;
If iCode < 0 Then
begin
Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);
Exit;
end;
//侦测CTRL+B组合键
if ((lParam and _KeyPressMask) = 0) and
(GetKeyState(vk_Control) < 0) and (wParam = Ord('B')) then
begin
Result := 1;
WinExec('Notepad.exe', sw_Normal); // 癘ㄆセ
end;
end;


function EnableHotKeyHook: BOOL; export;
begin
Result := False;
if hNextHookProc <> 0 then Exit;
//持上键盘类型的HOOK,同时传回值必须保锱下来
//防止呼叫中断
hNextHookProc := SetWindowsHookEx(WH_KEYBOARD,
KeyboardHookHandler,
HInstance,
0);
Result := hNextHookProc <> 0;
end;

[rfa20]

有好的资料吗

[angwan]

hook好似dos下的TSR，拦截系统的中断调用，比如jBuilder中按鼠标右键出来的菜单中没有COPY等选项，我用hook,作了一个，很简单。
井底之蛙，csdn大讨论，我最讨厌用词不当，大家谦虚一点好不好。

[angwan]

to flyheart(飞扬的心):可以，你此时可以用如下：
SendMessage(hwnd,WM_CHAR ,(TCHAR)'b' ,(LPARAM)1);
或者：
keybd_event('B',0,KEYEVENTF_EXTENDEDKEY,0);
keybd_event('B',0,KEYEVENTF_EXTENDEDKEY|KEYEVENTF_KEYUP,0);
//有的情况下不可以如此。
这帮厮菜鸟一群，还大言不惭csdn大讨论，真是井底之蛙，钩子这种初级话题....哎。

[angwan]

对不起，我言词激烈了些，我也菜，今天心情不好。对不起。

[NowCan]

键盘钩子
//hook.c

#include <windows.h>
#include <windowsx.h>
#include <tchar.h>

HINSTANCE g_hinstDll = NULL;

#pragma data_seg(".drectve")
static char szLinkDirectiveShared[] = "-section:Shared,rws";
#pragma data_seg()
#pragma data_seg("Shared")

HHOOK g_hhook = NULL;
HWND g_hwndPost = NULL;
UINT g_uMsgNotify = WM_USER;

#pragma data_seg()

static LRESULT WINAPI KeyboardHook_HookProc (
int nCode,
WPARAM wParam,
LPARAM lParam)
{

LRESULT lResult = CallNextHookEx(g_hhook, nCode, wParam, lParam);

if (nCode == HC_ACTION)
{
PostMessage(g_hwndPost, g_uMsgNotify, wParam, lParam);
}
return(lResult);
}

BOOL WINAPI SetKeyboardHook (HWND hWndPost, UINT Msg)
{
HHOOK hhook;

if (g_hhook != NULL) return(FALSE);

g_hwndPost = hWndPost;
g_uMsgNotify = Msg;
Sleep(0);

hhook = SetWindowsHookEx(WH_KEYBOARD, KeyboardHook_HookProc, g_hinstDll, 0);
InterlockedExchange((PLONG) &g_hhook, (LONG) hhook);
return(g_hhook != NULL);
}

BOOL WINAPI ReleaseKeyboardHook()
{
BOOL fOK = TRUE;

if (g_hhook != NULL)
{
fOK = UnhookWindowsHookEx(g_hhook);
g_hhook = NULL;
}
return(fOK);
}

BOOL WINAPI DllMain (HINSTANCE hinstDll, DWORD fdwReason, LPVOID lpvReserved)
{
switch (fdwReason)
{
case DLL_PROCESS_ATTACH:
g_hinstDll = hinstDll;
break;
}
return(TRUE);
}


//hook.bas
Attribute VB_Name = "Module1"
Option Explicit

Public Const GWL_WNDPROC = (-4)
Public Const WM_USER = &H400

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function SetKeyboardHook Lib "KeybHook" (ByVal hwndPost As Long, ByVal Msg As Long) As Long
Declare Function ReleaseKeyboardHook Lib "KeybHook" () As Long

Public prevWndProc As Long

Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_USER Then
Form1.List1.AddItem "wParam=" & wParam & ", lParam=" & Hex(lParam)
Form1.List1.ListIndex = Form1.List1.NewIndex
End If
WndProc = CallWindowProc(prevWndProc, hWnd, Msg, wParam, lParam)
End Function

//kbtrace.frm


Private Sub Form_Load()
On Error Resume Next

SetKeyboardHook Me.hWnd, WM_USER

If Err.Number <> 0 Then
MsgBox "请先将 KeybHook.dll 复制到 Windows 的所在路径!", vbCritical
End
End If
On Error GoTo 0

prevWndProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
End Sub

Private Sub Form_Unload(Cancel As Integer)
ReleaseKeyboardHook

SetWindowLong Me.hWnd, GWL_WNDPROC, prevWndProc
End Sub

[NowCan]

键盘钩子
//hook.c

#include <windows.h>
#include <windowsx.h>
#include <tchar.h>

HINSTANCE g_hinstDll = NULL;

#pragma data_seg(".drectve")
static char szLinkDirectiveShared[] = "-section:Shared,rws";
#pragma data_seg()
#pragma data_seg("Shared")

HHOOK g_hhook = NULL;
HWND g_hwndPost = NULL;
UINT g_uMsgNotify = WM_USER;

#pragma data_seg()

static LRESULT WINAPI KeyboardHook_HookProc (
int nCode,
WPARAM wParam,
LPARAM lParam)
{

LRESULT lResult = CallNextHookEx(g_hhook, nCode, wParam, lParam);

if (nCode == HC_ACTION)
{
PostMessage(g_hwndPost, g_uMsgNotify, wParam, lParam);
}
return(lResult);
}

BOOL WINAPI SetKeyboardHook (HWND hWndPost, UINT Msg)
{
HHOOK hhook;

if (g_hhook != NULL) return(FALSE);

g_hwndPost = hWndPost;
g_uMsgNotify = Msg;
Sleep(0);

hhook = SetWindowsHookEx(WH_KEYBOARD, KeyboardHook_HookProc, g_hinstDll, 0);
InterlockedExchange((PLONG) &g_hhook, (LONG) hhook);
return(g_hhook != NULL);
}

BOOL WINAPI ReleaseKeyboardHook()
{
BOOL fOK = TRUE;

if (g_hhook != NULL)
{
fOK = UnhookWindowsHookEx(g_hhook);
g_hhook = NULL;
}
return(fOK);
}

BOOL WINAPI DllMain (HINSTANCE hinstDll, DWORD fdwReason, LPVOID lpvReserved)
{
switch (fdwReason)
{
case DLL_PROCESS_ATTACH:
g_hinstDll = hinstDll;
break;
}
return(TRUE);
}


//hook.bas
Attribute VB_Name = "Module1"
Option Explicit

Public Const GWL_WNDPROC = (-4)
Public Const WM_USER = &H400

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function SetKeyboardHook Lib "KeybHook" (ByVal hwndPost As Long, ByVal Msg As Long) As Long
Declare Function ReleaseKeyboardHook Lib "KeybHook" () As Long

Public prevWndProc As Long

Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_USER Then
Form1.List1.AddItem "wParam=" & wParam & ", lParam=" & Hex(lParam)
Form1.List1.ListIndex = Form1.List1.NewIndex
End If
WndProc = CallWindowProc(prevWndProc, hWnd, Msg, wParam, lParam)
End Function

//kbtrace.frm


Private Sub Form_Load()
On Error Resume Next

SetKeyboardHook Me.hWnd, WM_USER

If Err.Number <> 0 Then
MsgBox "请先将 KeybHook.dll 复制到 Windows 的所在路径!", vbCritical
End
End If
On Error GoTo 0

prevWndProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
End Sub

Private Sub Form_Unload(Cancel As Integer)
ReleaseKeyboardHook

SetWindowLong Me.hWnd, GWL_WNDPROC, prevWndProc
End Sub

[vcbear]

这种问题?
到cn.yahoo.net用关键字 “Hook编程”查询
或者在vc版用 ‘Hook’ 或'钩子' 查询，
绝对可以更快的获得资料。

Hook只不过是一种很平常的技术，是Ms用来打破进程边界，
监视User模块消息的一种勾当。犯不着“大讨论”。

[AntGhazi]

呵呵，试试手又有何妨，顺便也可学学DLL。“大讨论”却有点犯不着。

vcbear兄，你们那防火枪做得如何。请多多指教！

[sxbyl]

http://sxbyl.home.chinaren.com

[realsweat]

关注

[cycsharp]

attention

[wbc_58]

这些东西，属于小技巧。还是看看

[misterliwei]

是hook api 还是hook mouse 等。
我用delphi 编了一个keyboard hook 结果有时会出现 run error 216 at XXXX.
大虾们，知道什么原因吗？

[flyheart]

我想知道可不可用hook修改消息，比如，我用键盘钩子截获到用户按了字母键'a'
可不可以在钩子函数中改成字母'b'。

[cindy2000]

to flyheart: sure!

[vcbear]

to FlyHeart:
WH_GETMESSAGE
handle the WM_KEYDOWN message
not KeyboardHook

[元明]

太好了,谢谢大家.