Visual Basic. NET'te bir kanca ayarlama

Bu makalede, bir iþ parçacýðý ve kanca iþlemi için belirli bir kanca nasýl. Bu makalede, Fare kancasý örnek olarak kullanýlmýþtýr.

Kancalarý, belirli olay türlerini izlemek için kullanabilirsiniz. Bu olaylar, ayný masaüstünü arayan bir iþ parçacýðý. tüm iþ parçacýklarý veya belirli bir iþ parçacýðý ile iliþkilendirebileceðiniz

Fare kancasý ayarlama

Bir kanca belirlemek içinSetWindowsHookExUser32.dll dosyasýný iþlevini . Bu iþlev, kanca zincirindeki kancasý. ile iliþkili olan bir uygulama tanýmlý kanca iþlemi yükler

Fare kancasý için ve fare olaylarýný izlemek için aþaðýdaki adýmlarý izleyin:

1. Baþlatma Microsoft Visual Studio .NET.
2. ,Dosyamenüsü,Yeni[NULL]'iProje.
3. ,Yeni projeiletiþim kutusunu týklatýnVisual Basic ProjelerialtýndaProje türleri. Ardýndan 'Windows uygulamasýaltýndaÞablonlarý.
4. ,Adýkutusunda, türThreadSpecificMouseHook. Varsayýlan olarak, Form1 adlý bir form oluþturulur.
5. Form1.vb dosyanýn baþlangýcýna yapýþtýrýn aþaðýdaki kodu.

   Imports System.Runtime.InteropServices
   Public Delegate Function CallBack( _
       ByVal nCode As Integer, _
       ByVal wParam As IntPtr, _
       ByVal lParam As IntPtr) As Integer

6. ,Form1sýnýf, yapýþtýrýn aþaðýdaki kodu.

   'Declare the mouse hook constant.
   'For other hook types, obtain these values from Winuser.h in Microsoft SDK.
       Dim WH_MOUSE As Integer = 7
       Shared hHook As Integer = 0
   
       'Keep the reference so that the delegate is not garbage collected.
       Private hookproc As CallBack
   
       'Import for the SetWindowsHookEx function.
       <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
        Public Overloads Shared Function SetWindowsHookEx _
             (ByVal idHook As Integer, ByVal HookProc As CallBack, _
              ByVal hInstance As IntPtr, ByVal wParam As Integer) As Integer
       End Function
   
       'Import for the CallNextHookEx function.
       <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
        Public Overloads Shared Function CallNextHookEx _
             (ByVal idHook As Integer, ByVal nCode As Integer, _
              ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
       End Function
       'Import for the UnhookWindowsHookEx function.
       <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
            Public Overloads Shared Function UnhookWindowsHookEx _
                 (ByVal idHook As Integer) As Boolean
       End Function
   
       'Point structure declaration.
       <StructLayout(LayoutKind.Sequential)> Public Structure Point
           Public x As Integer
           Public y As Integer
       End Structure
   
       'MouseHookStruct structure declaration.
       <StructLayout(LayoutKind.Sequential)> Public Structure MouseHookStruct
           Public pt As Point
           Public hwnd As Integer
           Public wHitTestCode As Integer
           Public dwExtraInfo As Integer
       End Structure

7. Forma düðme Ekle. Daha sonra aþaðýdaki kodu yapýþtýrýnButton1_Clickyordam.

       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
           If hHook.Equals(0) Then
               hookproc = AddressOf MouseHookProc
               hHook = SetWindowsHookEx(WH_MOUSE, _
                                        hookproc, _
                                        IntPtr.Zero, _
   AppDomain.CurrentDomain.GetCurrentThreadId())
               If hHook.Equals(0) Then
                   MsgBox("SetWindowsHookEx Failed")
                   Return
               Else
                   Button1.Text = "UnHook Windows Hook"
               End If
           Else
               Dim ret As Boolean = UnhookWindowsHookEx(hHook)
   
               If ret.Equals(False) Then
                   MsgBox("UnhookWindowsHookEx Failed")
                   Return
               Else
                   hHook = 0
                   Button1.Text = "Set Windows Hook"
                   Me.Text = "Mouse Hook"
               End If
           End If
   
       End Sub

8. ,Form1sýnýfý, aþaðýdaki kodu yapýþtýrýnMouseHookProciþlev.

       Public Shared Function MouseHookProc( _
       ByVal nCode As Integer, _
       ByVal wParam As IntPtr, _
       ByVal lParam As IntPtr) As Integer
   Dim MyMouseHookStruct As New MouseHookStruct()
   
           Dim ret As Integer
   
           If (nCode < 0) Then
               Return CallNextHookEx(hHook, nCode, wParam, lParam)
           End If
   
           MyMouseHookStruct = CType(Marshal.PtrToStructure(lParam, MyMouseHookStruct.GetType()), MouseHookStruct)
   
           Dim tempForm As Form
           tempForm = Form.ActiveForm()
   
           Dim strCaption As String
           strCaption = "x = " & MyMouseHookStruct.pt.x & " y = " & MyMouseHookStruct.pt.y
   
           tempForm.Text = strCaption
           Return CallNextHookEx(hHook, nCode, wParam, lParam)
   
       End Function

9. F5 tuþuna basarak projeyi çalýþtýrýn. Kanca belirlemek için form üzerindeki bir düðmeyi týklatýn. Ýmleç koordinatlarý, iþaretçiyi formun üzerine getirdiðinde formun baþlýk çubuðunda görünür.
10. Kaldýrmak için yeniden düðmesini týklatýn kanca.

.NET Framework genel Kancalarý desteklenmez

.NET Framework genel Kancalarý uygulayamaz. Alt düzey kancalarý, arayanýn iþleminde çalýþýr. Diðer iþlemler içinde kod eklenmesini, bu Kancalarý gerektirmez. Yönetilen kod uygulanabilir, ancak bunlar çalýþmaya devam.. Her girdi olay kanca gönderilir önce dönmek için alt düzey kanca beklemesi için yavaþ Kancalarý ile sistemin yanýt verme yeteneðini önemli ölçüde etkileyebilir. Windows, sessizce iþlemek için uzun süren bir kanca kaldýrýr. Yönetilen kod ne zaman çöp toplayýcýsýný çalýþtýrýr denetleyemediði olduðunu kanca iþlemi her zaman yeterince hýzlý kaldýrýlmasýný önlemek için hiçbir garantisi yoktur.

Kancalarý hakkýnda daha fazla bilgi için aþaðýdaki Microsoft Developer Network (MSDN) Web sitesini ziyaret edin: