VB 从零开始编外挂(七)
2024-07-21 02:20:39
供稿：网友
钩子：喜欢外挂的人都知道，很多外挂都是在游戏当中才能呼出。这个就用到了钩子
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全局钩子是根本不能实现的！站长发布”呵呵！真的有点骇人听闻！
但是大家看到了下面这个“万能吃药”外挂就知道了！
http://www.v2best.com/dispbbs.asp?boardid=6&id=171&page=1
--------------------------------------------------------------------------------------------------------------------------------------------------------
其它的就不多说了，开学了。到暑假的时候再写东西吧！
希望大家努力，相信一点，
什么工具什么语言不重要，只要有思路就行！
