jjzjj

Office Addin 2013 中的 C# 全局键盘 Hook

coder 2024-06-10 原文

我遇到了一个问题,无法让我的 Office 插件在 Powerpoint 2013 上与我的全局键盘一起工作,但在以前的版本(2007 和 2010)上却没有。
我没有收到任何异常,但似乎从未在 Powerpoint 2013 上触发 OnKeyDown 事件,我不知道为什么。

我在所有版本的 Windows(XP、7、8 和 8.1)、32 位和 64 位环境中遇到同样的问题。 Microsoft Office 版本为 32 位。

这是一个代码示例:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Xml.Linq;
using PowerPoint = Microsoft.Office.Interop.PowerPoint;
using Office = Microsoft.Office.Core;
using System.Windows.Forms;
using System.Runtime.InteropServices;
using System.Diagnostics;

namespace testHook
{
    public partial class ThisAddIn
    {
        Hook hook;

        private void ThisAddIn_Startup(object sender, System.EventArgs e)
        {
            hook = new Hook(Hook.HookType.KeyBoard, Hook.HookVisibility.Global);
            hook.OnKeyDown += new KeyEventHandler(hook_OnKeyDown);
            hook.Start();
        }

        void hook_OnKeyDown(object sender, KeyEventArgs e)
        {
            MessageBox.Show(e.KeyCode.ToString());
        }

        private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
        {
            hook.Stop();
            hook = null;
        }

        #region VSTO generated code

        /// <summary>
        /// Required method for Designer support - do not modify
        /// the contents of this method with the code editor.
        /// </summary>
        private void InternalStartup()
        {
            this.Startup += new System.EventHandler(ThisAddIn_Startup);
            this.Shutdown += new System.EventHandler(ThisAddIn_Shutdown);
        }

        #endregion

    class Hook
    {
        private IntPtr m_Hook = (IntPtr)0;
        private HookVisibility m_Visibility;
        private HookType m_HookType;
        private HookProc m_Proc;

        public enum HookType { KeyBoard };
        public enum KeyBoardEventType { KeyDown, KeyUp, SysKeyDown, SysKeyUp, KeyShift, KeyCapital, NumLock };
        public enum HookVisibility { Global, Local };

        private delegate IntPtr HookProc(int nCode, int wParam, IntPtr lParam);

        private KeyPressEventHandler m_onKeyPress;
        private KeyEventHandler m_onKeyUp;
        private KeyEventHandler m_onKeyDown;

        public event KeyPressEventHandler OnKeyPress
        {
            add
            {
                m_onKeyPress += value;
            }
            remove
            {
                m_onKeyPress -= value;
            }
        }
        public event KeyEventHandler OnKeyUp
        {
            add
            {
                m_onKeyUp += value;
            }
            remove
            {
                m_onKeyUp -= value;
            }
        }
        public event KeyEventHandler OnKeyDown
        {
            add
            {
                m_onKeyDown += value;
            }
            remove
            {
                m_onKeyDown -= value;
            }
        }

        #region DLLImport

        [DllImport("user32.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall, SetLastError = true)]
        private static extern IntPtr SetWindowsHookEx(int idHook, HookProc lpfn, IntPtr hmod, int dwThreadId);

        [DllImport("user32.dll")]
        private static extern IntPtr CallNextHookEx(IntPtr hHook, int nCode, IntPtr wParam, IntPtr lParam);

        [DllImport("user32.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall, SetLastError = true)]
        private static extern bool UnhookWindowsHookEx(IntPtr hHook);

        [DllImport("Kernel32.dll", SetLastError = true)]
        private static extern IntPtr GetModuleHandle(IntPtr lpModuleName);

        [DllImport("Kernel32.dll", SetLastError = true)]
        private static extern IntPtr GetModuleHandle(String lpModuleName);

        [DllImport("Kernel32.dll")]
        private static extern IntPtr GetCurrentThreadId();

        [DllImport("user32")]
        private static extern int ToAscii(int uVirtKey, int uScanCode, byte[] lpbKeyState, byte[] lpwTransKey, int fuState);

        [DllImport("user32.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)]
        private static extern short GetKeyState(int vKey);

        [DllImport("user32")]
        private static extern int GetKeyboardState(byte[] pbKeyState);

        #endregion

        [StructLayout(LayoutKind.Sequential)]
        private class KeyboardHookStruct
        {
            public int vkCode;
            public int scanCode;
            public int flags;
            public int time;
            public int dwExtraInfo;
        }

        public Hook(HookType H, HookVisibility H2)
        {
            m_HookType = H;
            m_Visibility = H2;
        }

        public bool Start()
        {
            if (m_HookType == HookType.KeyBoard)
                m_Proc = new HookProc(KeyProc);

            if (m_Visibility == HookVisibility.Global)
                m_Hook = SetWindowsHookEx(getHookType(m_HookType, m_Visibility), m_Proc, GetModuleHandle(Process.GetCurrentProcess().MainModule.ModuleName), 0);

            else if (m_Visibility == HookVisibility.Local)
                m_Hook = SetWindowsHookEx(getHookType(m_HookType, m_Visibility), m_Proc, GetModuleHandle((IntPtr)0), (int)GetCurrentThreadId());

            if (m_Hook == (IntPtr)0)
                return false;

            return true;
        }

        public bool Stop()
        {
            return UnhookWindowsHookEx(m_Hook);
        }

        private int getHookType(HookType H, HookVisibility V)
        {
            if (H == HookType.KeyBoard && V == HookVisibility.Local)
                return 2;
            if (H == HookType.KeyBoard && V == HookVisibility.Global)
                return 13;

            else return -1;
        }

        private int getKeyBoardEventType(KeyBoardEventType K)
        {
            if (K == KeyBoardEventType.KeyDown)
                return 0x100;
            if (K == KeyBoardEventType.KeyUp)
                return 0x101;
            if (K == KeyBoardEventType.SysKeyDown)
                return 0x104;
            if (K == KeyBoardEventType.SysKeyUp)
                return 0x105;
            if (K == KeyBoardEventType.KeyShift)
                return 0x10;
            if (K == KeyBoardEventType.KeyCapital)
                return 0x14;
            if (K == KeyBoardEventType.NumLock)
                return 0x90;

            else return -1;
        }

        private IntPtr KeyProc(int nCode, int wParam, IntPtr lParam)
        {
            bool handled = false;
            if ((nCode >= 0) && (m_onKeyDown != null || m_onKeyUp != null || m_onKeyPress != null))
            {
                KeyboardHookStruct MyKeyboardHookStruct = (KeyboardHookStruct)Marshal.PtrToStructure(lParam, typeof(KeyboardHookStruct));

                if (m_onKeyDown != null && (wParam == 0x100 || wParam == 0x104))
                {
                    Keys keyData = (Keys)MyKeyboardHookStruct.vkCode;
                    KeyEventArgs e = new KeyEventArgs(keyData);
                    m_onKeyDown(this, e);
                    handled = handled || e.Handled;
                }

                if (m_onKeyPress != null && wParam == 0x100)
                {
                    bool isShift = ((GetKeyState(0x10) & 0x80) == 0x80 ? true : false);
                    bool isCapslock = (GetKeyState(0x14) != 0 ? true : false);

                    byte[] keyState = new byte[256];
                    GetKeyboardState(keyState);
                    byte[] inBuffer = new byte[2];
                    if (ToAscii(MyKeyboardHookStruct.vkCode, MyKeyboardHookStruct.scanCode, keyState, inBuffer, MyKeyboardHookStruct.flags) == 1)
                    {
                        char key = (char)inBuffer[0];
                        if ((isCapslock ^ isShift) && Char.IsLetter(key))
                            key = Char.ToUpper(key);
                        KeyPressEventArgs e = new KeyPressEventArgs(key);
                        m_onKeyPress(this, e);
                        handled = handled || e.Handled;
                    }
                }

                if (m_onKeyUp != null && (wParam == 0x101 || wParam == 0x105))
                {
                    Keys keyData = (Keys)MyKeyboardHookStruct.vkCode;
                    KeyEventArgs e = new KeyEventArgs(keyData);
                    m_onKeyUp(this, e);
                    handled = handled || e.Handled;
                }
            }

            if (handled)
                return (IntPtr)1;
            else
                return CallNextHookEx(m_Hook, nCode, (IntPtr)wParam, (IntPtr)lParam);
        }
    }
}

我的应用程序需要在幻灯片放映期间触发事件,因为我有一些其他窗口在演示期间显示,我必须根据用户按下的键更新它们。我尝试了很多解决方案,但钩子(Hook)是唯一可以完美完成工作的解决方案。

我也尝试过使用本地键盘钩子(Hook)而不是全局键盘钩子(Hook)。实际上,我认为这是让它工作的唯一方法,因为它是来自 Microsoft 的错误,而不是来自代码的错误。但是,我无法使本地的在任何版本的 Powerpoint 上正常工作。

最佳答案

该问题不是 Powerpoint 特有的,任何 Office 产品都会出现。 我正在处理 Outlook 插件并遇到这个问题。 已向 Microsoft 报告(不幸的是没有任何答复): https://social.msdn.microsoft.com/Forums/office/en-US/93d08ccc-9e77-4f72-9c51-477468d89681/keyboardhook-will-not-work-in-word-2013?forum=worddev

我已经能够做出“解决方法”:我已经注册了一个全局 Hook 和一个本地 Hook (“线程”)。它有效,但 keyProc 在本地时被称为“奇怪的”,不考虑记录的参数: - wParam 不是 WM_* 之一,而是直接包含 vkCode - 无法访问 lParam (AccessViolation) 据我了解,这是因为一些“TranslateMessage”处理。

我还调整了您的代码以能够捕获 ALT 组合。

    private bool wParamAlt;

    private IntPtr KeyProc(int nCode, int wParam, IntPtr lParam)
    {
        bool handled = false;
        if ((nCode == 0) && (m_onKeyDown != null || m_onKeyUp != null || m_onKeyPress != null))
        {
            KeyboardHookStruct MyKeyboardHookStruct;
            if (wParam >= 0x100)
            {
                MyKeyboardHookStruct = (KeyboardHookStruct)Marshal.PtrToStructure(lParam, typeof(KeyboardHookStruct));
                wParamAlt = false;
            }
            else
            {
                MyKeyboardHookStruct = new KeyboardHookStruct();
                MyKeyboardHookStruct.vkCode = wParam;
                if (wParamAlt)
                {
                    wParamAlt = (wParam == 18);
                    wParam = 0x104;
                }
                else
                {
                    wParamAlt = (wParam == 18);
                    wParam = 0x100;
                }
            }

            if (m_onKeyDown != null && (wParam == 0x100 || wParam == 0x104))
            {
                Keys keyData = (Keys)MyKeyboardHookStruct.vkCode;
                if (wParam == 0x104)
                    keyData |= Keys.Alt;
                KeyEventArgs e = new KeyEventArgs(keyData);
                m_onKeyDown(this, e);
                handled = handled || e.Handled;
            }

            if (m_onKeyPress != null && wParam == 0x100)
            {
                bool isShift = ((GetKeyState(0x10) & 0x80) == 0x80 ? true : false);
                bool isCapslock = (GetKeyState(0x14) != 0 ? true : false);

                byte[] keyState = new byte[256];
                GetKeyboardState(keyState);
                byte[] inBuffer = new byte[2];
                if (ToAscii(MyKeyboardHookStruct.vkCode, MyKeyboardHookStruct.scanCode, keyState, inBuffer, MyKeyboardHookStruct.flags) == 1)
                {
                    char key = (char)inBuffer[0];
                    if ((isCapslock ^ isShift) && Char.IsLetter(key))
                        key = Char.ToUpper(key);
                    KeyPressEventArgs e = new KeyPressEventArgs(key);
                    m_onKeyPress(this, e);
                    handled = handled || e.Handled;
                }
            }

            if (m_onKeyUp != null && (wParam == 0x101 || wParam == 0x105))
            {
                Keys keyData = (Keys)MyKeyboardHookStruct.vkCode;
                if (wParam == 0x105)
                    keyData |= Keys.Alt;
                KeyEventArgs e = new KeyEventArgs(keyData);
                m_onKeyUp(this, e);
                handled = handled || e.Handled;
            }
        }

        if (handled)
            return (IntPtr)1;
        else
            return CallNextHookEx(m_Hook, nCode, (IntPtr)wParam, (IntPtr)lParam);
    }

关于Office Addin 2013 中的 C# 全局键盘 Hook ,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26401953/

有关Office Addin 2013 中的 C# 全局键盘 Hook的更多相关文章

  1. ruby - 如何从 ruby​​ 中的字符串运行任意对象方法? - 2

    总的来说,我对ruby​​还比较陌生,我正在为我正在创建的对象编写一些rspec测试用例。许多测试用例都非常基础,我只是想确保正确填充和返回值。我想知道是否有办法使用循环结构来执行此操作。不必为我要测试的每个方法都设置一个assertEquals。例如:describeitem,"TestingtheItem"doit"willhaveanullvaluetostart"doitem=Item.new#HereIcoulddotheitem.name.shouldbe_nil#thenIcoulddoitem.category.shouldbe_nilendend但我想要一些方法来使用

  2. ruby - 其他文件中的 Rake 任务 - 2

    我试图在一个项目中使用rake,如果我把所有东西都放到Rakefile中,它会很大并且很难读取/找到东西,所以我试着将每个命名空间放在lib/rake中它自己的文件中,我添加了这个到我的rake文件的顶部:Dir['#{File.dirname(__FILE__)}/lib/rake/*.rake'].map{|f|requiref}它加载文件没问题,但没有任务。我现在只有一个.rake文件作为测试,名为“servers.rake”,它看起来像这样:namespace:serverdotask:testdoputs"test"endend所以当我运行rakeserver:testid时

  3. ruby-on-rails - Ruby net/ldap 模块中的内存泄漏 - 2

    作为我的Rails应用程序的一部分,我编写了一个小导入程序,它从我们的LDAP系统中吸取数据并将其塞入一个用户表中。不幸的是,与LDAP相关的代码在遍历我们的32K用户时泄漏了大量内存,我一直无法弄清楚如何解决这个问题。这个问题似乎在某种程度上与LDAP库有关,因为当我删除对LDAP内容的调用时,内存使用情况会很好地稳定下来。此外,不断增加的对象是Net::BER::BerIdentifiedString和Net::BER::BerIdentifiedArray,它们都是LDAP库的一部分。当我运行导入时,内存使用量最终达到超过1GB的峰值。如果问题存在,我需要找到一些方法来更正我的代

  4. ruby-on-rails - Rails 3 中的多个路由文件 - 2

    Rails2.3可以选择随时使用RouteSet#add_configuration_file添加更多路由。是否可以在Rails3项目中做同样的事情? 最佳答案 在config/application.rb中:config.paths.config.routes在Rails3.2(也可能是Rails3.1)中,使用:config.paths["config/routes"] 关于ruby-on-rails-Rails3中的多个路由文件,我们在StackOverflow上找到一个类似的问题

  5. ruby-on-rails - Rails - 一个 View 中的多个模型 - 2

    我需要从一个View访问多个模型。以前,我的links_controller仅用于提供以不同方式排序的链接资源。现在我想包括一个部分(我假设)显示按分数排序的顶级用户(@users=User.all.sort_by(&:score))我知道我可以将此代码插入每个链接操作并从View访问它,但这似乎不是“ruby方式”,我将需要在不久的将来访问更多模型。这可能会变得很脏,是否有针对这种情况的任何技术?注意事项:我认为我的应用程序正朝着单一格式和动态页面内容的方向发展,本质上是一个典型的网络应用程序。我知道before_filter但考虑到我希望应用程序进入的方向,这似乎很麻烦。最终从任何

  6. ruby-on-rails - Rails 3.2.1 中 ActionMailer 中的未定义方法 'default_content_type=' - 2

    我在我的项目中添加了一个系统来重置用户密码并通过电子邮件将密码发送给他,以防他忘记密码。昨天它运行良好(当我实现它时)。当我今天尝试启动服务器时,出现以下错误。=>BootingWEBrick=>Rails3.2.1applicationstartingindevelopmentonhttp://0.0.0.0:3000=>Callwith-dtodetach=>Ctrl-CtoshutdownserverExiting/Users/vinayshenoy/.rvm/gems/ruby-1.9.3-p0/gems/actionmailer-3.2.1/lib/action_mailer

  7. ruby-on-rails - Rails 应用程序中的 Rails : How are you using application_controller. rb 是新手吗? - 2

    刚入门rails,开始慢慢理解。有人可以解释或给我一些关于在application_controller中编码的好处或时间和原因的想法吗?有哪些用例。您如何为Rails应用程序使用应用程序Controller?我不想在那里放太多代码,因为据我了解,每个请求都会调用此Controller。这是真的? 最佳答案 ApplicationController实际上是您应用程序中的每个其他Controller都将从中继承的类(尽管这不是强制性的)。我同意不要用太多代码弄乱它并保持干净整洁的态度,尽管在某些情况下ApplicationContr

  8. ruby-on-rails - form_for 中不在模型中的自定义字段 - 2

    我想向我的Controller传递一个参数,它是一个简单的复选框,但我不知道如何在模型的form_for中引入它,这是我的观点:{:id=>'go_finance'}do|f|%>Transferirde:para:Entrada:"input",:placeholder=>"Quantofoiganho?"%>Saída:"output",:placeholder=>"Quantofoigasto?"%>Nota:我想做一个额外的复选框,但我该怎么做,模型中没有一个对象,而是一个要检查的对象,以便在Controller中创建一个ifelse,如果没有检查,请帮助我,非常感谢,谢谢

  9. ruby - rspec 需要 .rspec 文件中的 spec_helper - 2

    我注意到像bundler这样的项目在每个specfile中执行requirespec_helper我还注意到rspec使用选项--require,它允许您在引导rspec时要求一个文件。您还可以将其添加到.rspec文件中,因此只要您运行不带参数的rspec就会添加它。使用上述方法有什么缺点可以解释为什么像bundler这样的项目选择在每个规范文件中都需要spec_helper吗? 最佳答案 我不在Bundler上工作,所以我不能直接谈论他们的做法。并非所有项目都checkin.rspec文件。原因是这个文件,通常按照当前的惯例,只

  10. ruby-on-rails - active_admin 目录中的常量警告重新声明 - 2

    我正在使用active_admin,我在Rails3应用程序的应用程序中有一个目录管理,其中包含模型和页面的声明。时不时地我也有一个类,当那个类有一个常量时,就像这样:classFooBAR="bar"end然后,我在每个必须在我的Rails应用程序中重新加载一些代码的请求中收到此警告:/Users/pupeno/helloworld/app/admin/billing.rb:12:warning:alreadyinitializedconstantBAR知道发生了什么以及如何避免这些警告吗? 最佳答案 在纯Ruby中:classA

随机推荐