|
Public Enum HookType
WH_KEYBOARD = 2
End Enum
Public Sub UnHook() ‘解Hook
If hnexthookproc <> 0 Then
UnhookWindowsHookEx(hnexthookproc)
hnexthookproc = 0
End If
End Sub
Public Function SetHook() ‘设置Hook
If hnexthookproc <> 0 Then
Exit Function
End If
hnexthookproc = SetWindowsHookEx(HookType.WH_KEYBOARD, AddressOf MyKeyboardProc, 0, GetCurrentThreadId())
我把第三个参数设为0（即NULL），表示的是此Hook的代码在此进程中。第四个参数用了一个API去取安装Hook子程相关联的线程的标识符。（参见前面的API声明）
End Function
Public Function MyKeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
MyKeyboardProc = 0
If nCode < 0 Then
MyKeyboardProc = CallNextHookEx(hnexthookproc, nCode, wParam, lParam)
Exit Function
End If
If wParam = PM_KEY_SPACE Then
MyKeyboardProc = 1
‘写入你自己的代码
frm1.textbox1.text=”HOOK成功！”
End If
End Function
Sub main()
Application.Run(frm1)
End Sub
End Module
同时请在：
解决方案管理器-〉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的了，如果你是CSDN上vb.net版的常客，你就会很熟悉这个问题，我们已经讨论过N次了。我也回过不知多少贴子来说明这一问题。由于和本文主题与篇幅所限，您要是对这个问题不明白，请先看一下：
http://www.csdn.net/expert/topic/965/965919.xml
获得一些概念。我会在后续的文章中进行更为详细和系统的介绍（其实它也是我最想先写的问题之一）。
结束语：关于API的调用，本文只涉及了冰山之一角，关于具体的调用变化，我会根据vb.net版上的具体情况再写相关的文章来说明的。
对了，补充一点，vb.net不再认any类型了，因此，在声明时要具体声明成你想要用的类型即可。
上一页 [1] [2] [3] 下一页
[VB.NET程序]VB.net中HOOK的应用（一） [Delphi程序]Delphi中Hook技术全接触
[Delphi程序]浅谈API HOOK技术（二） [Delphi程序]浅谈API HOOK技术（一）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
