VB.NET-让这个应用程序返回两个整数来设置鼠标挂钩

Question

我已经设法让这个C#代码（不是我自己的！）在VB.NET中工作，以便在控制台应用程序中实现鼠标挂钩。以下是VB.NET代码：

Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Module Module1
Class InterceptMouse
    Private Shared _proc As LowLevelMouseProc = AddressOf HookCallback
    Private Shared _hookID As IntPtr = IntPtr.Zero
    Public Shared Sub Main()
        _hookID = SetHook(_proc)
        Application.Run()
        UnhookWindowsHookEx(_hookID)
    End Sub
    Private Shared Function SetHook(proc As LowLevelMouseProc) As IntPtr
        Using curProcess As Process = Process.GetCurrentProcess()
            Using curModule As ProcessModule = curProcess.MainModule
                Return SetWindowsHookEx(WH_MOUSE_LL, proc, GetModuleHandle(curModule.ModuleName), 0)
            End Using
        End Using
    End Function
    Private Delegate Function LowLevelMouseProc(nCode As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
    Private Shared Function HookCallback(nCode As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
        Dim MouseSetting As Integer = MouseMessages.WM_LBUTTONDOWN
        Dim hookStruct As MSLLHOOKSTRUCT
        If nCode >= 0 AndAlso MouseSetting = CType(wParam, MouseMessages) Then
            hookStruct = CType(Marshal.PtrToStructure(lParam, GetType(MSLLHOOKSTRUCT)), MSLLHOOKSTRUCT)
            Console.WriteLine(hookStruct.pt.x & ", " & hookStruct.pt.y)
        End If
        Dim pt As New POINT
        pt.x = hookStruct.pt.x
        pt.y = hookStruct.pt.y
        MouseCoordinates.Add(pt)
        Return CallNextHookEx(_hookID, nCode, wParam, lParam)
    End Function
    Private Const WH_MOUSE_LL As Integer = 14
    Private Enum MouseMessages
        WM_LBUTTONDOWN = &H201
        WM_LBUTTONUP = &H202
        WM_MOUSEMOVE = &H200
        WM_MOUSEWHEEL = &H20A
        WM_RBUTTONDOWN = &H204
        WM_RBUTTONUP = &H205
    End Enum
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure POINT
        Public x As Integer
        Public y As Integer
    End Structure
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure MSLLHOOKSTRUCT
        Public pt As POINT
        Public mouseData As UInteger
        Public flags As UInteger
        Public time As UInteger
        Public dwExtraInfo As IntPtr
    End Structure
    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Private Shared Function SetWindowsHookEx(idHook As Integer, lpfn As LowLevelMouseProc, hMod As IntPtr, dwThreadId As UInteger) As IntPtr
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Private Shared Function UnhookWindowsHookEx(hhk As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Private Shared Function CallNextHookEx(hhk As IntPtr, nCode As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
    End Function
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Private Shared Function GetModuleHandle(lpModuleName As String) As IntPtr
    End Function
End Class

然后我从Sub Main中调用它：

Sub Main()
    InterceptMouse.Main()
End Sub

然而，当我调试它时，它会转到Application.Run（）行，而不会前进到下一行，所以我看不到它在幕后做什么。然后，它等待用户输入，并在控制台上返回整数坐标。这不是我想让它做的。我想让这段代码在另一个函数或后台工作程序中运行，每当主线程收到鼠标点击时，它就会将坐标传递给主线程，这样它就可以处理剩下的事情。问题是，这段代码对我的理解水平来说太复杂了，我真的不知道它是如何工作的。如果我至少能让Console在用户单击时返回鼠标坐标，那么我应该能够忽略它，并从那里处理其余的代码。

Answer 1

一个很好的理由？赫克编号

我喜欢你把谨慎抛诸脑后的方式使用后果自负

不确定您将如何在控制台应用程序中使用它。。。

我只是对它进行了一点重构：

Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Module Module1
    Private counter As Integer = 0
    Private WithEvents IM As InterceptMouse
    Sub Main()
        IM = InterceptMouse.Instance
        IM.Start()
        While counter < 3
            System.Threading.Thread.Sleep(100)
        End While
        IM.Shutdown()
        Console.Write("Press Enter to Quit")
        Console.ReadLine()
    End Sub
    Private Sub IM_MouseClick(pt As InterceptMouse.POINT) Handles IM.MouseClick
        Console.WriteLine(pt.x.ToString() & ", " & pt.y.ToString())
        counter = counter + 1
    End Sub
    Public Class InterceptMouse
        Inherits ApplicationContext
        Public Event MouseClick(ByVal pt As InterceptMouse.POINT)
        Private Shared _IM As InterceptMouse
        Public Shared ReadOnly Property Instance() As InterceptMouse
            Get
                If IsNothing(_IM) Then
                    _IM = New InterceptMouse()
                End If
                Return _IM
            End Get
        End Property
        Private _proc As LowLevelMouseProc = AddressOf HookCallback
        Private _hookID As IntPtr = IntPtr.Zero
        Private T As System.Threading.Thread = Nothing
        Private Sub New()
        End Sub
        Public Sub Start()
            If IsNothing(T) Then
                T = New Threading.Thread(AddressOf Main)
                T.Start()
            End If
        End Sub
        Private Sub Main()
            _hookID = SetHook(_proc)
            Application.Run(Me)
            UnhookWindowsHookEx(_hookID)
            T = Nothing
        End Sub
        Public Sub Shutdown()
            If Not IsNothing(T) Then
                Application.Exit()
            End If
        End Sub
        Private Function SetHook(proc As LowLevelMouseProc) As IntPtr
            Using curProcess As Process = Process.GetCurrentProcess()
                Using curModule As ProcessModule = curProcess.MainModule
                    Return SetWindowsHookEx(WH_MOUSE_LL, proc, GetModuleHandle(curModule.ModuleName), 0)
                End Using
            End Using
        End Function
        Private Delegate Function LowLevelMouseProc(nCode As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
        Private Function HookCallback(nCode As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
            Dim MouseSetting As Integer = MouseMessages.WM_LBUTTONDOWN
            Dim hookStruct As MSLLHOOKSTRUCT
            If nCode >= 0 AndAlso MouseSetting = CType(wParam, MouseMessages) Then
                hookStruct = CType(Marshal.PtrToStructure(lParam, GetType(MSLLHOOKSTRUCT)), MSLLHOOKSTRUCT)
                Dim pt As New POINT
                pt.x = hookStruct.pt.x
                pt.y = hookStruct.pt.y
                RaiseEvent MouseClick(pt)
            End If
            Return CallNextHookEx(_hookID, nCode, wParam, lParam)
        End Function
        Private Const WH_MOUSE_LL As Integer = 14
        Private Enum MouseMessages
            WM_LBUTTONDOWN = &H201
            WM_LBUTTONUP = &H202
            WM_MOUSEMOVE = &H200
            WM_MOUSEWHEEL = &H20A
            WM_RBUTTONDOWN = &H204
            WM_RBUTTONUP = &H205
        End Enum
        <StructLayout(LayoutKind.Sequential)> _
        Public Structure POINT
            Public x As Integer
            Public y As Integer
        End Structure
        <StructLayout(LayoutKind.Sequential)> _
        Private Structure MSLLHOOKSTRUCT
            Public pt As POINT
            Public mouseData As UInteger
            Public flags As UInteger
            Public time As UInteger
            Public dwExtraInfo As IntPtr
        End Structure
        <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
        Private Shared Function SetWindowsHookEx(idHook As Integer, lpfn As LowLevelMouseProc, hMod As IntPtr, dwThreadId As UInteger) As IntPtr
        End Function
        <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
        Public Shared Function UnhookWindowsHookEx(hhk As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
        End Function
        <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
        Private Shared Function CallNextHookEx(hhk As IntPtr, nCode As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
        End Function
        <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
        Private Shared Function GetModuleHandle(lpModuleName As String) As IntPtr
        End Function
    End Class
End Module