Как глобально подменить нажатую клавишу на другую

@Mad_Marine · Регистрация: 10.07.2011

Author24 — интернет-сервис помощи студентам

В старой компьютерной игре Diablo 1 нельзя менять управление в настройках.
Буква "E" свободна. Инвентарь по умолчанию нажимаеться на "I", а мне удобно на "E".

Можно как то написать программу, чтобы она перехватывала нажатия клавиш на клавиатуре и при нажатии на клавишу "E" программно наживалась на клавиатуре клавиша "I"?

@edward_freedom · 22.02.2012, 19:41

VB.NET

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
 'If GetAsyncKeyState(Keys.E) Then
  '          SendKeys.SendWait(Keys.I)
   '     End If

@_tvlad · 28.12.2012, 22:14

У меня аналогичная задача, только заменить мне надо клавишу Enter на Tab. Конкретно - чтобы при нажатии Enter фокус переходил к следующему элементу, как при нажатии Tab.
Можно ли подробнее расшифровать предыдущий ответ: что означает первая строка и где должен находиться закомментированный код (и почему, кстати, он закомментирован)?

@Jason · 28.12.2012, 22:47

VB.NET

Imports System.Runtime.InteropServices
 
Public Class Form1
 
    <DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function
    
    'Это в таймер:
    If GetAsyncKeyState(Keys.E) Then 'Если нажата кнопка Е то
    SendKeys.SendWait(Keys.I) 'Послать нажатие кнопки I
    End If
 
End Class

Можно вот так еще:

VB.NET

Imports System.Runtime.InteropServices
 
Public Class Form1
 
    <DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function
    <DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function GetForegroundWindow() As IntPtr
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindow( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As IntPtr
    End Function
 
    Const WM_KEYDOWN = &H100
    Const WM_KEYUP = &H101
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 150
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Enter) <> 0 Then 'Если нажата кнопка Enter то
            If GetForegroundWindow() = FindWindow(vbNullString, "Сапер") Then 'Если активное приложении = саперу
                PostMessage(GetForegroundWindow(), WM_KEYDOWN, Keys.F2, 0) 'Посылаем нажатие кнопки F2 (т.е. начать новую игру).
                PostMessage(GetForegroundWindow(), WM_KEYUP, Keys.F2, 0) 'Отжатие F2.
            End If
        End If
    End Sub
 
End Class

@_tvlad · 28.12.2012, 23:05

Спасибо. Не скажу, что все понял, понял только, что это примочки для игры, и нажатия клавиш проверяются по таймеру.
В моем случае этого не нужно. Задача простая: есть несколько текстовых полей, по которым пользователь перемещается при помощи клавиши Tab. Я бы хотел, чтобы Enter полностью дублировала Tab.

@Jason · 29.12.2012, 05:42

Сообщение от _tvlad

есть несколько текстовых полей

В твоей программе?
К примеру если тебя есть 2 тхт бокса и тебе надо переходить по ним через Enter то:

VB.NET

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            TextBox2.Focus()
        End If
    End Sub
 
    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            TextBox1.Focus()
        End If
    End Sub

@_tvlad · 29.12.2012, 07:13

Да, этот способ мне известен, но дело усложняется тем , что текстбоксов десять и из них не все доступны: в зависимости от выбранного пользователем варианта, для некоторых TabStop = False и ReadOnly = True. Поэтому всё получается довольно громоздко.
Если бы удалось просто подменить клавишу Enter клавишей Tab, то было бы изящней. У меня сложилось впечатление, что в процедурах обработки событий KeyDown и KeyPress это сделать невозможно. Надо делать подмену где-то раньше. Что-то мне попадалось про WndProc, я пока не разобрался, но может здесь надо копать?

@Jason · 29.12.2012, 07:22

В каждый тхт бокс, должно сработать:

VB.NET

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            SendKeys.Send("{TAB}")
        End If
    End Sub

@_tvlad · 29.12.2012, 08:21

Спасибо, это уже легче. Остановлюсь пока на этом варианте.
А если докопаюсь до глобальной подмены - сообщу.

Добавлено через 13 минут
Оказывается, вот так тоже работает (то же самое, только сразу для всей формы, если для нее KeyPreview = True):

VB.NET

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            SendKeys.Send("{TAB}")
        End If
    End Sub

@Mad_Marine 4 / 4 / 0 Регистрация: 10.07.2011 Сообщений: 115
		1
	Как глобально подменить нажатую клавишу на другую 22.02.2012, 02:43. Показов 2018. Ответов 8 Метки нет (Все метки) В старой компьютерной игре Diablo 1 нельзя менять управление в настройках. Буква "E" свободна. Инвентарь по умолчанию нажимаеться на "I", а мне удобно на "E". Можно как то написать программу, чтобы она перехватывала нажатия клавиш на клавиатуре и при нажатии на клавишу "E" программно наживалась на клавиатуре клавиша "I"? 0

@_tvlad 1 / 1 / 0 Регистрация: 21.05.2012 Сообщений: 20
	28.12.2012, 22:14	3
	У меня аналогичная задача, только заменить мне надо клавишу Enter на Tab. Конкретно - чтобы при нажатии Enter фокус переходил к следующему элементу, как при нажатии Tab. Можно ли подробнее расшифровать предыдущий ответ: что означает первая строка и где должен находиться закомментированный код (и почему, кстати, он закомментирован)? 0

@_tvlad 1 / 1 / 0 Регистрация: 21.05.2012 Сообщений: 20
	28.12.2012, 23:05	5
	Спасибо. Не скажу, что все понял, понял только, что это примочки для игры, и нажатия клавиш проверяются по таймеру. В моем случае этого не нужно. Задача простая: есть несколько текстовых полей, по которым пользователь перемещается при помощи клавиши Tab. Я бы хотел, чтобы Enter полностью дублировала Tab. 0

@_tvlad 1 / 1 / 0 Регистрация: 21.05.2012 Сообщений: 20
	29.12.2012, 07:13	7
	Да, этот способ мне известен, но дело усложняется тем , что текстбоксов десять и из них не все доступны: в зависимости от выбранного пользователем варианта, для некоторых TabStop = False и ReadOnly = True. Поэтому всё получается довольно громоздко. Если бы удалось просто подменить клавишу Enter клавишей Tab, то было бы изящней. У меня сложилось впечатление, что в процедурах обработки событий KeyDown и KeyPress это сделать невозможно. Надо делать подмену где-то раньше. Что-то мне попадалось про WndProc, я пока не разобрался, но может здесь надо копать? 0

	29.12.2012, 08:21

Опции темы