vb HOOK 是什么？高手进！

我想学习VB的HOOK技术，但在网上看了许多代码，我都看不出个所以然来，现在还不了解HOOK，不知道有什么作用，望VB高手指点迷津，最好详细点。还要个实例，要最简单最简单的！！！

追问：来自手机问问有没有简单的例子？

答案：
钩子涉及到很多的底层编程技术，如果对Windows不是很了解，直接学习是很困难的，建议你先了解一下Windows消息机制，钩子机制，百度一下就可以，教程还是挺容易理解的
学习VB
不如学习易语言
我开始也学VB
hook是钩子的意思，编写外挂，病毒都用的着
语言没有好与坏之分,抓住学精就0khook是钩子编程,很多高级编颗中要用到,与语言无关
钩子(Hook)，是Windows消息处理机制的一个平台,应用程序可以在上面设置子程以监视指定窗口的某种消息，而且所监视的窗口可以是其他进程所创建的。当消息到达后，在目标窗口处理函数之前处理它。钩子机制允许应用程序截获处理window消息或特定事件。 
钩子实际上是一个处理消息的程序段，通过系统调用，把它挂入系统。每当特定的消息发出，在没有到达目的窗口前，钩子程序就先捕获该消息，亦即钩子函数先得到控制权。这时钩子函数即可以加工处理（改变）该消息，也可以不作处理而继续传递该消息，还可以强制结束消息的传递。
hook比较常用的应用有个就是获取键盘事件，你可以去网上看看，主要看你用来做什么的！如果有需要可以+Q516550921，给你更细致的解释！
Windows系统中钩子具有相当强大的功能，通过这种技术可以对几乎所有的Windows 系统中的消息进行拦截、监视、处理。这种技术可以广泛应用于各种软件，尤其是需要有监控、自动记录等对系统进行监测功能的软件。本文针对这个专题进行了探讨，希望可以为读者朋友们起到抛砖引玉的作用。 
　　一、钩子的机制及类型 
　　Windows的应用程序都是基于消息驱动的，应用程序的操作都依赖于它所得到的消息的类型及内容。钩子与Dos中断截获处理机制有类似之处。钩子(Hook)是Windows消息处理机制的一个平台，通过安装各种钩子，应用程序可以在上面设置子程序以监视指定窗口的某种消息，并且当消息到达目标窗口之前处理它。 
　　在Windows中，钩子有两种，一种是系统钩子(RemoteHook)，它对消息的监视是整个系统范围，另一种是线程钩子(LocalHook)，它的拦截范围只有进程内部的消息。对于系统钩子，其钩子函数（HookFunction）应在Windows系统的动态链接库(DLL)中实现，而对于线程钩子来说,钩子函数可以在DLL之中实现，也可以在相应的应用程序之中实现。这是因为当开发人员创建一个钩子时，Windows先在系统内存中创建一个数据结构，该数据结构包含了钩子的相关信息，然后把该结构体加到已经存在的钩子链表中去，并且新的钩子将排在老的钩子的前面。当一个事件发生时，如果安装的是一个局部钩子，当前进程中的钩子函数将被调用。如果是一个远程钩子，系统就必须把钩子函数插入到其它进程的地址空间，要做到这一点就要求钩子函数必须在一个动态链接库中，所以如果想要使用远程钩子，就必须把该钩子函数放到动态链接库中去。对于钩子所监视的消息类型来说，Windws一共提供了如下几种类型：如表1所示: 
表一、Windows消息类型 
消息类型常量标识 值 消息类型 适用范围  
WH_CALLWNDPROC 4 发给窗口的消息 线程或系统  
WH_CALLWNDPROCRET 12 窗口返回的消息 线程或系统  
WH_CBT 5 窗口变化、焦点设定等消息 线程或系统  
WH_DEBUG 9 是否执行其它Hook的Hook 线程或系统  
WH_FOREGROUNDIDLE 11 前台程序空闲 线程或系统  
WH_GETMESSAGE 3 投放至消息队列中的消息 线程或系统  
WH_JOURNALPLAYBACK 1 将所记载的消息进行回放 系统  
WH_JOURNALRECORD 0 监视并记录输入消息 系统  
WH_KEYBOARD 2 键盘消息 线程或系统  
WH_MOUSE 7 鼠标消息 线程或系统  
WH_MSGFILTER -1 菜单滚动条、对话框消息 线程或系统  
WH_SHELL 10 外壳程序的消息 线程或系统  
WH_SYSMSGFILTER 6 所有线程的菜单滚动条、对话框消息 系统  
二、VB编程中钩子的实现 
　　（一）钩子函数(HOOK Function)的格式。Hook Function实际上是一个函数，如果是系统钩子，该函数必须放在动态链接库中。该函数有一定的参数格式，在VB中如下: 
Private Function HookFunc(ByVal nCode As Long，ByVal wParam As Long，ByVal lParam As Long)As Long  
　　其中，nCode代表是什么情况之下所产生的钩子，随钩子的不同而有不同组的可能值；参数wParam，lParam传回值包括了所监视到的消息内容，它随Hook所监视消息的种类和nCode的值不同而不同。对于用VB所设置的钩子函数,一般的框架形式如下: 
Private Function HookFunc(ByVal nCode As Long，ByVal wParam As Long，ByVal lParam As Long)As Long 
　Select case of nCode  
　　case ncode<0:hookfunc=callnexthookex(hHookFunc，nCode，wParam，lParam) 
　　case值1:处理过程1:HookFunc=X1 
　　case2:处理过程2:HookFunc=X1 
　　…… 
　end select 
end Function  
　　函数的传回值，如果消息要被处理，则传0，否则传1，吃掉消息。 
　　（二）钩子的安装及执行。钩子的安装要用到几个API函数:可以使用API函数SetWindowsHookEx()把一个应用程序定义的钩子子程安装到钩子链表中。SetWindowsHookEx()函数的声明如下: 

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  
　　idHook值为它处理的消息类型；lpfn值为钩子子程序的地址指针。如果dwThreadId参数为0或是一个由别的进程创建的线程的标识，lpfn必须指向DLL中的钩子子程。除此以外，lpfn可以指向当前进程的一段钩子子程代码。hMod值为应用程序的句柄，标识包含lpfn所指的子程的DLL。如果dwThreadId标识当前进程创建的一个线程，而且子程代码位于当前进程，hMod必须为0。dwThreadId值为与安装的钩子子程相关联的线程的标识符，如果为0，钩子子程与所有的线程关联。钩子安装成功则返回钩子子程的句柄，失败返回0。 
　　另外，一般应在钩子子程中调用CallNextHookEx()函数以执行钩子链表所指的下一个钩子子程，否则安装了别的钩子的应用程序就会收不到钩子通知，从而产生错误的结果。CallNextHookEx()函数的声明如下: 
Declare Function CallNextHookEx Lib"user32" Alias "CallNextHookEx"(ByVal hHook As Long，ByVal ncode As Lonog， ByVal wParam As Long，lParam As Any)As Long  
　　hHook值是SetWindowsHookEx()的传回值，nCode、wParam、lParam则是Hook函数中的三个参数。在程序终止之前，必须调用UnhookWindowsHookEx()函数释放与钩子关联的系统资源。UnhookWindowsEx()函数声明如下: 
Declare Function Unhook WindowsHookEx Lib "user32" Alias "Unhook WindowsHookEx(ByVal hHook As Long)As Long  
　　hHook为安装钩子时的返回值，即钩子子程的句柄。 
　　（三）VB中钩子安装应注意的问题。lpfn参数是一个HookFunc的地址,VB规定必须将HookFunc代码放到标准的.BAS模块中，并以"Address Of HookFunc"传入，而不可以将其放到类模块中，也不能将其附加到窗体上。而对于RemoteHook来说，HookFunc应包含在动态链接库中，因此如果在VB中使用RemoteHook，则还要用到GetModuleHandle()、GetProcAddress()两个API函数,它们的声明如下: 
Declare Function GetModuleHandle Lib"kernel32" Alias "GetModuleHandleA"（ByVal lpModuleName As String）As Long 
Declare Function GetProcAddress Lib "kernel32" Alias "GetProcAddress"（ByVal hModule As Long，ByVal lpProcName As String）As Long  
　　hmod值是含钩子过程的模块名柄，如果是LocalHook，该值可以是Null(VB中传0)，而如果是RemoteHook，则可以使用GetModuleHandle("名称.dll")来传入。 
三、实例--键盘消息的拦截 
　　在程序开发时常用的有对输入消息进行监视的键盘钩子，对于所监视到的消息应进行处理，下面对键盘钩子参数的具体内容组成进行说明: 
　　如果有键盘消息(WM_KEYUP或WM_KEYDOWN)将被处理时，则系统调用键盘钩子。 
　　nCode为HC_ACTION或HC_NOREMOVE，若小于0，则要求处理函数向下传递该消息。 
　　wParam表示按键键码常数，Ａ键到Ｚ键与其ASCII码的相应值'Ａ'到'Ｚ'是一致的，例如按C键，则wParam值为67。 
　　lParam与WM_KEYDOWN同，占四个字节，其包括的内容较多,其二进制结构如下:  
0 1 …… 15 16 ……… 23 24 25 …… 28 29 30 31  
　　0-15位(Key repeat count)，键码重复次数。16-23位(Scan code)，按键的扫描码。24位(Extended_Key flag)，扩展键(功能键、数字小键盘上的键)标志，为1则是扩展键,否则为0。25-28位被保留。29位(Context Code)，状态描述码，ALT键被按下则为1，否则为0。30位(Previouskey_stateflag)指定先前的键状态，如果消息被发出之前键处于按下状态，则为1；键处于释放状态则为0。31位(Transiton_stateflag)状态转换标志，如果键是被按下值为1，如果键被放开值为0。 
　　本例中的钩子用来监视并记录应用程序中的按键信息。在程序中，ALT+F4组合键被屏蔽。下面是部分代码： 
Public hHook as Long 
Private Sub Form_Load()′程序启动时安装钩子 
hHook=SetWindowsHookEx(2，Address of MyKBHook，0，App.ThreadID) 
End Sub 
′具体的钩子程序，本例中该过程被包含在Module1中 
Public Function MyKBHook(ByVal nCode As Long，ByVal wParam As Long，ByVal lParam As Long)As Long 
If nCode>=0 then 
Open "C:\Keyfile.txt" For Append As #1 '将键盘的操作记录在Keyfile.txt文件之中 
'记录

上一个：为什么不能VB编程
下一个：VB代码问题，来帮忙改个简单的错误