那位高人给个钩子程序源码，要求能执行

[混世罗汉]

想做一个这样的程序，运行后，可以记录用户在电脑上输入的任何信息，也就是键盘输入的信息，比如你在记事中输入了一段文字，那么这个钩子程序会记录下来存入数据表或直接显示出来，都行，找了三天了，唉！

[guyehanxinlei]

up

[zzyong00]

http://topic.csdn.net/t/20050829/12/4237529.html

[混世罗汉]

还能再顶一下吗？

[混世罗汉]

没高人会？？

[混世罗汉]

最后一次项

[迈克揉索芙特]

VB6实现键盘鼠标全局Hook
http://blog.csdn.net/Modest/archive/2006/10/21/1344213.aspx

[danielinbiti]

得封装成dll，要不起不到全局Hook的作用
网上VB,DELPHI的太多了，网上键盘Hook的都没啥问题,鼠标Hook的可能会报异常。

[HackerJLY]

How to set a windows hook in Visual Basic 6（VB6）- 鼠标全局钩子（LowLevelMouseProcedure）- prjBrowser Source Code - 类似QQ窗体停靠效果 - Written by

HackerJLY

http://hackerjly.spaces.live.com/blog/cns!CE41E30095119731!1871.entry

我自己写的,用WH_MOUSE_LL,因为：只有：WH_MOUSE_LL 和 WH_KEYBOARD_LL 才不用把HookProce(SetWindowsHookEx 函数的第二个lpfn参数所指向的过程)写入到：标准DLL里面，

就可以实现全局钩子，其他的必须把HookProc写入到：标准DLL里面，也就是说：先用VC写一个标准DLL（里面要含有HookProc）,然后再用其他语言（VB等）调用！

此段内容的MSDN地址：http://support.microsoft.com/default.aspx?scid=kb;en-us;318804

[HackerJLY]

这是个: 鼠标钩子源代码,你可以参照一下,改成键盘钩子!!!
即:把WH_MOUSE_LL改成：WH_KEYBOARD_LL