主题：[分享]钩子实例：全局检测鼠标、键盘操作。

Forms.ActiveForm

Dim frm = Windows.Forms.Form.ActiveForm

If frm IsNot Nothing Then msgbox(frm.name)

比如，以前经常钩子用来盗qq，因为可以监测到键盘输入，所以你做什么它都可以记录，然后分析，得到密码。

应用方法，比如你可以做，鼠标离开某一个区域，或者进入某一个区域，就做一些操作；你也可以做全局快捷键了，监测输入某些字符，做某些操作。

实际应用上，比如扫描枪，因为可以检测键盘输入，所以可以假定一串快速输入并回车结束的字符，是扫描枪的内容，这样就可以任意扫描后，触发相应代码。