VB.net中HOOK的应用(CNET中文网)

VB.net中HOOK的应用(CNET中文网)

et中HOOK的应用

在vb.net版做版主有一阵子了，一直在思考怎么能更好地帮助大家理解vb.net的新概念与编程方法。小小的回贴很难说清楚很多问题，所以利用一下文档中心这片广阔的天地，进行更深入的探讨。本人水平有限，不免错误与遗漏多多，请朋友们批评指正。

基本的想法是，写一系列的文章，讲解一下vb.net与vb的区别，vb.net中的新概念，vb.net控件的使用，vb.net解决问题的新方法。如果时间允许，我希望自己能快快开展这个工作。更重要的是网友们的支持与鼓励会是我继续的源动力。

今天是第一次写，不知道从哪开始，权衡再三，决定从API调用问题开始入手。Vb的爱好者经常给我写信或发贴，询问vb.net中API的变化，那么今天我们就一起来探讨一下。虽然微软推出vs.net的目的是要用于跨平台，那么Windows API是不被推荐使用的，但从此入手，能让我们更方便地理解vb.net所做的改变，所以：

Let’s GO………………………………………………

本文不是讲解Hook原理的文章，仅是讨论一下在vb.net如何调用Hook功能，以及vb.net中API使用的变化问题。

由于Hook种类较多，本文中以最常用的键盘Hook为例进行分析。

一、先来看一下在vb中是如何实现的。截的是空格键。表现的目标是：一个form，上面有一个textbox，不管焦点是否落在textbox里，按空格键，不会在textbox中输入一个空格，而是变成在textbox中写入一句话：“HOOK成功！”

1.在一个Module中写入下列代码：

调用的API的申明：

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