是否有 Hooking 的替代方法来检测 Windows Forms 之外的事件？

如何解决是否有 Hooking 的替代方法来检测 Windows Forms 之外的事件？

我想弄清楚如何从 Windows 窗体外部检测和处理系统事件，例如按下的键和鼠标单击。有没有不需要 user32.dll 挂钩的替代方法？

我的意思的粗略示例：

    Public Sub MouseClick(e As System.MouseEventArgs) Handles Mouse.LeftClick // Left mouse click event raised
        ' even if the user clicks on a browser link in google chrome. Ideally,the click would not even
        ' register in the chrome browser,preventing the user from being directed to the link destination 
        Dim bmp As New Bitmap(1,1)
        Using g As Graphics = Graphics.FromImage(bmp)
            g.copyFromScreen(Windows.Forms.Cursor.Position,New Point(0,0),New Drawing.Size(1,1))
        End Using
        Dim pixel As Drawing.Color = bmp.GetPixel(0,0)
        ArgbID.Text = bmp.GetPixel(0,0).ToString
        Dim p As New Point With {.X = ((Me.Width - Me.Splitter1.Width) / 2) + Me.Splitter1.Width - (ArgbID.Width / 2),.Y = ArgbID.Top}
        ArgbID.Location = p
        displayBox.BackColor = pixel
        Me.Invalidate()
    End Sub

我希望能够检测和处理表单之外的事件。如果我必须使用钩子，那么这是最有前途的例子，应该做我想做的事情： Code Project [Processing Global Mouse and Keyboard Hooks in C#]

解决方法

好的，所以我找到了一种方法来连接鼠标来创建我自己的事件处理程序。以下是我所做的总结：
免责声明 - 这种方法仍然使用 System.Windows.Forms，因此您仍将在表单本身内工作。

Private Sub Button_Click(sender As Object,e As EventArgs)
    Select Case True
        Case sender Is Btn_Help
        Case sender Is Btn_Ok
        Case sender Is Btn_GetPoint
            If ColorChooserClicked = False Then
                // Doing stuff here
                Dim ScreenLock As New TestFormNi With {.Opacity = 0.01,.WindowState = FormWindowState.Maximized,.FormBorderStyle = FormBorderStyle.None}
                ScreenLock.ShowDialog()
            Else
                // Other Stuff
            End If
    End Select
End Sub

还有：

Imports System.Windows.Forms

Public Class TestFormNi
    Private time As Integer = 0
    Private Sub LoadFormNi(sender As Object,e As EventArgs) Handles MyBase.Load
        PictureBox1.Image = Cache.Img
        Timer1.Start()
        Me.TopMost = True
        Me.Invalidate()
    End Sub
    Private Sub ClickDetection(sender As Object,e As EventArgs) Handles Me.Click,PictureBox1.Click
        TestingForm.Btn_GetPoint.PerformClick()
        Me.Dispose()
        TestingForm.Focus()
    End Sub
    Private Sub Escape(sender As Object,e As KeyEventArgs) Handles Me.KeyDown,PictureBox1.KeyDown
        If e.KeyCode = Keys.Escape Then Me.Dispose()
    End Sub
    Private Sub AutoClose(sender As Object,e As EventArgs) Handles Timer1.Tick
        If time > 30 Then TestingForm.Btn_GetPoint.PerformClick() : Me.Dispose() : TestingForm.Focus()
        time += 1
    End Sub
End Class

这样我就可以点击“屏幕”上的任何地方，点击事件仍然会在windows窗体中注册，因为很明显，点击位置仍然在windows.forms中；这也为我省去了必须创建句柄以禁用在其他应用程序中注册的点击的麻烦。 （就像在光标悬停在浏览器链接上时被重定向一样）

注意 - 不透明度级别必须大于 0，否则表单将不会注册事件。