用易语言写写一段钩子函数实现hook窗口句柄为10000的窗口

在易语言中，可以使用WinAPI函数来编写钩子（Hook）函数，以便监控特定的窗口句柄。例如，如果你想要 hook 窗口句柄为10000的窗口，你可以创建一个WH_CALLWNDPROC类型的窗口过程钩子（Window Procedure Hook）。以下是一个简单的示例：

; 导入必要的WinAPI库
#If WinAPI
Import kernel32.dll
Function GetWindowLong ProcAddress hWnd As Window, nIndex As Integer = GWL_HWNDFIRST ' 获取窗口句柄相关的长整数值
EndIf

; 定义钩子函数，这里假设名为MyHookProc
Function MyHookProc wParam As Word, lParam As LongPtr
    ; 使用GetWindowLong获取目标窗口句柄
    Dim targetHwnd As Window = GetWindowLong(hWnd, 0) // 如果窗口句柄不是GWL_HWNDFIRST，替换为实际索引值

    If targetHwnd = 10000 Then
        ; 这里是对窗口句柄为10000的窗口操作代码
        Debug.Print("Hooked window with handle 10000")
        ' 可能的操作包括消息拦截、记录事件等
        Pass ' 如果需要继续传递给原函数，添加此行
    Else
        Call NextHookEx(NULL, wParam, lParam) ' 继续传递给下一个钩子或系统默认处理
    EndIf

EndFunction

; 注册钩子
Procedure RegisterHook
    Local hHook As Window = SetWindowsHookEx(WH_CALLWNDPROC, AddressOf MyHookProc, NULL, 0)
    If hHook = 0 Then
        MsgBox("Failed to set up hook.")
    Else
        Debug.Print("Hook registered successfully.")
        -- 清除钩子时调用UnregisterHook
    EndIf
EndProcedure

; 解注册钩子
Procedure UnregisterHook
    Call UnhookWindowsHookEx(hHook)
    Debug.Print("Hook unregistered.")
EndProcedure

-- 调用部分
RegisterHook
; ... (程序运行期间，钩子会拦截所有目标窗口的消息)
UnregisterHook

这个例子演示了如何在易语言中设置一个全局窗口钩子，但请注意，直接修改Windows API可能会有安全风险，并且需要遵守相应的法律法规。在实际项目中，应该谨慎使用钩子技术。