浅议Visual Basic.NET中HOOK的应用(6)

　　文/CQFZ

　　同时请在：

　　解决方案管理器-〉windowsapplication1.sln -〉右点鼠标 -〉属性 -〉通用属性->常规->启动对象 -〉改为Module1

　　4.在Form1中的代码：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call SetHook() End Sub ‘vb.net中没有form_unload事件了，而是用closing Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Call UnHook() End Sub

　　最后简单说明一下，为什么我在module1里用了Public frm1 As New Form1()这句话，及启动对象 -〉改为Module1的作法。这是由于vb.net已经是OO的了，如果你是yesky上vb.net版的常客，你就会很熟悉这个问题，我们已经讨论过N次了。

　　结束语：关于API的调用，本文只涉及了冰山之一角，关于具体的调用变化，我会根据vb.net版上的具体情况再写相关的文章来说明的。

　　对了，补充一点，vb.net不再认any类型了，因此，在声明时要具体声明成你想要用的类型即可。