-------------------------------------------------------------------------------------------------------------------------------------------------------- 钩子：喜欢外挂的人都知道，很多外挂都是在游戏当中才能呼出。这个就用到了钩子 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 -------------------------------------------------------------------------------------------------------------------------------------------------------- 其它的就不多说了，开学了。到暑假的时候再写东西吧！ 希望大家努力，相信一点， 什么工具什么语言不重要，只要有思路就行！ -------------------------------------------------------------------------------------------------------------------------------------------------------- 点击给我留言 --------------------------------------------------------------------------------------------------------------------------------------------------------
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
