unity3D HOOK 键盘事件

来源：互联网发布：23游戏数据平台编辑：程序博客网时间：2024/05/20 23:08

using UnityEngine;using System.Collections;using System.Collections.Generic;using System;using System.Diagnostics;using System.Runtime.InteropServices;class InterceptKeys : MonoBehaviour{    private const int WH_KEYBOARD_LL = 13;    private const int WM_KEYDOWN = 0x0100;    private static LowLevelKeyboardProc _proc = HookCallback;    private static IntPtr _hookID = IntPtr.Zero;    void Start()    {        _hookID = SetHook(_proc);    }    void OnApplicationQuit()    {        UnhookWindowsHookEx(_hookID);    }    private static IntPtr SetHook(LowLevelKeyboardProc proc)    {        using (Process curProcess = Process.GetCurrentProcess())        using (ProcessModule curModule = curProcess.MainModule)        {            return SetWindowsHookEx(WH_KEYBOARD_LL, proc,GetModuleHandle(curModule.ModuleName), 0);        }    }    private delegate IntPtr LowLevelKeyboardProc(int nCode, IntPtr wParam, IntPtr lParam);    private static IntPtr HookCallback(int nCode, IntPtr wParam, IntPtr lParam)    {        if (nCode >= 0 && wParam == (IntPtr)WM_KEYDOWN)        {            int vkCode = Marshal.ReadInt32(lParam);            UnityEngine.Debug.Log("Keydown:"+vkCode);        }        return CallNextHookEx(_hookID, nCode, wParam, lParam);    }    [DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]    private static extern IntPtr SetWindowsHookEx(int idHook,        LowLevelKeyboardProc lpfn, IntPtr hMod, uint dwThreadId);    [DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]    [return: MarshalAs(UnmanagedType.Bool)]    private static extern bool UnhookWindowsHookEx(IntPtr hhk);    [DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]    private static extern IntPtr CallNextHookEx(IntPtr hhk, int nCode,IntPtr wParam, IntPtr lParam);    [DllImport("kernel32.dll", CharSet = CharSet.Auto, SetLastError = true)]    private static extern IntPtr GetModuleHandle(string lpModuleName);}

老外的帖子改的。连接：http://blogs.msdn.com/b/toub/archive/2006/05/03/589423.aspx

0 0