4

スペースを押すとCapslockがオンになり、文字を押すとCapslockがオフになるシンプルなウィンドウフォームアプリケーションがあります。

問題は、ウィンドウが機能するためにウィンドウに焦点を合わせる必要があることです（最上部も機能せず、最上部は、他のすべての焦点が合っていないウィンドウの上にウィンドウを表示するだけで焦点を合わせません）。

メモ帳に書いていても、どうすればそれを機能させることができるのか、誰かが知っていますか？

4

1 に答える 1

17

キーロガーはいたずらなものに使用でき、Caps Lockをそのように操作するのはかなり奇妙に思えますが、情報はすでに公開されており、ユーザーストーリーを私よりよく知っているので、解決策を投稿しました。

これは、MSDNフォーラムのC＃のキーロガーコードから投稿されたコードスニペットに基づく例です。

using System;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Windows.Forms;

class Program
{
    private const int WH_KEYBOARD_LL = 13;
    private const int WM_KEYDOWN = 0x0100;
    private static LowLevelKeyboardProc _proc = HookCallback;
    private static IntPtr _hookID = IntPtr.Zero;
    private static bool lastKeyWasLetter = false;

    [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);

    [DllImport("user32.dll")]
    static extern void keybd_event(byte bVk, byte bScan, uint dwFlags, UIntPtr dwExtraInfo);

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

    [STAThread]
    static void Main(string[] args)
    {
        Application.EnableVisualStyles();
        Application.SetCompatibleTextRenderingDefault(false);

        _hookID = SetHook(_proc);
        Application.Run();

        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 static void ToggleCapsLock()
    {
        const int KEYEVENTF_EXTENDEDKEY = 0x1;
        const int KEYEVENTF_KEYUP = 0x2;

        UnhookWindowsHookEx(_hookID);
        keybd_event(0x14, 0x45, KEYEVENTF_EXTENDEDKEY, (UIntPtr)0);
        keybd_event(0x14, 0x45, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, (UIntPtr)0);
        _hookID = SetHook(_proc);
    }

    private static IntPtr HookCallback(int nCode, IntPtr wParam, IntPtr lParam)
    {
        if (nCode >= 0 && wParam == (IntPtr)WM_KEYDOWN)
        {
            if (lastKeyWasLetter)
            {
                if (Control.IsKeyLocked(System.Windows.Forms.Keys.CapsLock))
                {
                    ToggleCapsLock();
                }
                lastKeyWasLetter = false;
            }
            Keys key = (Keys)Marshal.ReadInt32(lParam);            
            if (key == Keys.Space)
            {
                if (!Control.IsKeyLocked(System.Windows.Forms.Keys.CapsLock))
                {
                    ToggleCapsLock();
                }
            }
            else if (key >= Keys.A && key <= Keys.Z)
            {
                lastKeyWasLetter = true;
            }
        }
        return CallNextHookEx(_hookID, nCode, wParam, lParam);
    }
}

これをVisualStudioの新しいWindowsアプリケーションのProgram.csに貼り付けて、試してみてください。

Key DownイベントをインターセプトしてCapsLockのオンとオフを切り替えると、アプリケーションが処理する前にイベントがインターセプトされます。つまり、文字キーが押されたときにCaps Lockをオフにすると、入力しているアプリケーションは、スペースの直後であっても小文字を受け取ることになります。

各単語の最初の文字を強制的に大文字にしようとしていると仮定しました（その場合、Returnなどの他のキーも処理する必要がある場合があります）。そのため、私のスニペットは次のキーでCapsLockをオフにするだけです。文字が押された後のイベント。キーを押し上げるだけではうまくいかないことに注意してください。すばやく入力するときは、次のキーを押すまで最初のキーを押し続けることができます。

于 2011-05-02T00:44:08.747 に答える