VB 从零开始编外挂(七)

钩子：喜欢外挂的人都知道，很多外挂都是在游戏当中才能呼出。这个就用到了钩子
N多人说：“哎，VB做钩子想都别想！去学C语言吧！”只要大家遇到这种人，就别理会他。
可以说他是个垃圾。在实现钩子方面VB可能没有VC快，但是也不像那种人说的“想都别想”
C语言，我最近几天看了看。{ } ；这些太多了。脑袋也大了！可能那些学C语言的人是接触电脑
编程的时候就学的它吧！但是呢，我接触电脑学的就是VB。没办法我爱它！
—————————————————————————–
好了下面介绍简单的钩子吧！
—————————————————————————–
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是钩子类型，如WH_KEYBOARD捕捉键盘消息，而WH_MOUSE捕捉鼠标消息。
hmod用于全局钩子，VB要实现钩子，必须设为0。
dwThreadId用于线程钩子VB中可以设置为App.ThreadID。
lpfn为钩子函数，在VB中可以使用AddressOf获得钩子函数的地址。
这个函数因为钩子类型不同而有所不同。
—————————————————————————-
如键盘钩子为：
Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long)
As Long
'如果Code不为0，钩子函数必须调用CallNextHookEx，将消息传递给下面的钩子。wParam和lParam不是按键。
————————————————————————–
下面给大家一个VB钩子运用很好的例子！（全局钩子）
我在论坛上遇到了王者，王者可以说是我见到的VB最棒的一个人。可以说王者是个
VB狂人，很多学C语言的人看来VB不能实现的东西。王者都实现了！这不是在打广告
这是真的。VB实现全局钩子前几年在某某VB学习网站上看见过“VB全局钩子是根本不能实现的！站长发布”
呵呵！真的有点骇人听闻！