Нажатие клавиш в стороннем приложении

@karenjan99 · Регистрация: 09.04.2016

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

всем привет вообщем ребят с програмированием начал заниматся всего неделю

написал пару простых прог с помощю гугла

теперь вот пробую сделать макрос но не получается что то

VB.NET

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim MouseR As Boolean
        MouseR = GetAsyncKeyState(Keys.RButton)
        If MouseR = True Then
            SendKeys.Send("3" + "1")
        End If
    End Sub
End Class

мне надо чтобы при нажатии правой кнопки мыши нажимались кнопки 3 потом 1. (один раз) вообщем с каждым нажатием один раз а у меня при нажатии идут 31313131 бесконечности

и еще если не сложно подскажте как сделать так чтобы при нажатии правой кнопки в игре не нажимался правый клик а просто запустился макро

@Mitrokha · 22.04.2016, 19:11

Что-то я тебя совсем не понял! А зачем таймер-то? Если таймера не будет, то не будет зацикленной бесконечности "3131...".

Добавлено через 5 минут
Не лучше будет так:

VB.NET

    Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
        Dim MouseR As Boolean
        MouseR = GetAsyncKeyState(Keys.RButton)
        If MouseR = True Then
            SendKeys.Send("3" + "1")
        End If
    End Sub

@karenjan99 · 22.04.2016, 20:47 **[ТС]**

половину кода взял отсюда оттуда и не совсем понял для чего таймер
а от этого Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click получается что макро будет работаьт только в Form1?
или если использовать вместе с Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer то будет работать везде?
сорри просто я не очень в этих делах, недавно всё начал изучать

Добавлено через 3 минуты
да не не робит пробовал вот так

VB.NET

 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
        Dim MouseR As Boolean
        MouseR = GetAsyncKeyState(Keys.RButton)
        If MouseR = True Then
            SendKeys.Send("3" + "1")
        End If
    End Sub

@Yury Komar · 26.04.2016, 01:15

вообщето функция GetAsyncKeyState возвоащает не True значение, а состояние клавиши (нажата, отпущена, в покое)... вы сначала прочтите все состояния, затем и ставьте условие на конкретное состояние клавищи...
обычно "0"-в покое, "отрицательное"-нажата, "положительное"-отпущена... вроде так. луще прочтите сами состояния, чтоб быть увереным.

@Zhivoder · 30.08.2022, 10:11

Прошу прощения, что поднял тему из анналов форума.
А можно ли, к примеру, Я открываю из своего приложения другое приложение (стороннее) и жду нажатия кнопки (комбинации кнопок) с клавиатуры, пока активно то приложение, чтобы его закрыть?

@Yury Komar Модератор 4298 / 3374 / 505 Регистрация: 27.01.2014 Сообщений: 6,179
	26.04.2016, 01:15	4
	вообщето функция GetAsyncKeyState возвоащает не True значение, а состояние клавиши (нажата, отпущена, в покое)... вы сначала прочтите все состояния, затем и ставьте условие на конкретное состояние клавищи... обычно "0"-в покое, "отрицательное"-нажата, "положительное"-отпущена... вроде так. луще прочтите сами состояния, чтоб быть увереным. 0

@Zhivoder 32 / 28 / 3 Регистрация: 16.12.2019 Сообщений: 106
	30.08.2022, 10:11	5
	Прошу прощения, что поднял тему из анналов форума. А можно ли, к примеру, Я открываю из своего приложения другое приложение (стороннее) и жду нажатия кнопки (комбинации кнопок) с клавиатуры, пока активно то приложение, чтобы его закрыть? 0

Опции темы