.Netでのローカルフックの仕方について

Question

前提・実現したいこと

VB.Netでローカルフックを行う処理をしたい。
現状のソースコードでは、グローバルフックになってしまう。

実際のプログラムは、ArcMapのアドインなのですが
とりあえず、今回の質問は普通のVB.Netのフォームアプリケーションに関しての質問となります。
（フォームアプリケーションで出来たら、その方法をArcMapのアドインでも試そうとしています。）

参考にしたのは
VB.NETでキーフック
ローカルフック
等です。

現状のソースコード

Imports System.Runtime.InteropServices

Public Class Form1
    <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 UInteger) As Integer
    End 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

    Public Delegate Function CallBack(
        ByVal nCode As Integer,
        ByVal wParam As IntPtr,
        ByVal lParam As IntPtr) As Integer
    <StructLayout(LayoutKind.Sequential)> Public Structure KeyboardLLHookStruct
        Public vkCode As Integer
        Public scanCode As Integer
        Public flags As Integer
        Public time As Integer
        Public dwExtraInfo As Integer
    End Structure

    Const WH_KEYBOARD_LL As Integer = 13
    Const WM_KEYDOWN As Integer = &H100

    Shared hHook As Integer = 0
    Private hookproc As CallBack


    Public Function KeybordHookProc(
        ByVal nCode As Integer,
        ByVal wParam As IntPtr,
        ByVal lParam As IntPtr) As Integer

        If (nCode < 0) Then
            Return CallNextHookEx(hHook, nCode, wParam, lParam)
        End If

        Dim hookStruct As New KeyboardLLHookStruct()
        hookStruct = CType(Marshal.PtrToStructure(lParam, hookStruct.GetType()), KeyboardLLHookStruct)

        If wParam = New IntPtr(WM_KEYDOWN) Then
            MsgBox(hookStruct.vkCode)

            Return 0
        End If
        Return CallNextHookEx(hHook, nCode, wParam, lParam)
    End Function


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        hookproc = AddressOf KeybordHookProc
        hHook = SetWindowsHookEx(WH_KEYBOARD_LL, hookproc, Nothing, 0)
        If hHook.Equals(0) Then
            MsgBox("SetWindowsHookEx Failed")
        End If

    End Sub
End Class

起こっている問題と試した事

現状のソースコードでは、ローカルフックにならずグローバルフックになってしまっています。
また、二番目のリンクに書いてあった「第４引数にカレントのスレッドＩＤを指定する必要があるみたいです。 」ということかな？と思い
C# でスレッド ID を取得する
を参考にして

hHook = SetWindowsHookEx(WH_KEYBOARD_LL, hookproc, Nothing, System.Threading.Thread.CurrentThread.ManagedThreadId)

としてみるとSetWindowsHookExが失敗します。（SetWindowsHookEx Failedが表示される）

どうすればローカルフックが出来るのでしょうか。

補足情報（FW/ツールのバージョンなど）

.Net Framework 4.6

Answer 1

「SetWindowsHookExW function (winuser.h)」
https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setwindowshookexw

の中盤あたりに、各フックでサポートされる範囲が書いてあります。
WH_KEYBOARD_LL は Global only です。

スレッドに対してフックをかける場合は、GetCurrentThreadId で取得した値を使ってください。

「GetCurrentThreadId function (processthreadsapi.h)」
https://docs.microsoft.com/ja-jp/windows/win32/api/processthreadsapi/nf-processthreadsapi-getcurrentthreadid

Comments

[xail2222]

なるほど。Global onlyですか。見逃していました。
だからどうやっても出来なかったのですね。

WH_KEYBOARDの方はどちらも出来ると書いてあるので試してみます。

[xail2222]

KeybordHookProcが呼び出されるときのパラメータの内容が変わりましたが
WH_KEYBOARDにすることでとりあえずフォームアプリケーションで目的の事を達することが出来ました。
Arcmapのアドインの方に実装もしてみましたが、少し手を入れて目的の機能を実現出来ました。

ありがとうございました。