Серый форум — AHK: Эмуляция мыши при помощи клавиатуры

Re: AHK: Эмуляция мыши при помощи клавиатуры

null@example.com (Grey) — Fri, 06 Jul 2012 01:08:05 +0000

; стандартное действие ЛКМ при нажатом Ctrl
#If !GetKeyState("Ctrl", "P")

LButton::3
3::LButton

Re: AHK: Эмуляция мыши при помощи клавиатуры

null@example.com (madpumpkin) — Thu, 05 Jul 2012 23:54:03 +0000

Здравствуйте, подскажите как лкм повесить на кнопку 3 ? Ну то есть чтобы левый клик мыши нажимался не мышкой, а кнопкой клавиатуры. А соответственно кнопка 3 нажималась по левому клику.

Попытался вот так сделать :

3::Send, Lbutton
Lbutton:Send, 3

Но скрипт вообще не запускается.

Re: AHK: Эмуляция мыши при помощи клавиатуры

null@example.com (Indomito) — Mon, 02 Jul 2012 05:30:27 +0000

sergeant.coolagin могу дать очень похожий пример - эмуляция джойстика, т.е. используется джойстик, а его оси 1-я эмулирует мышку, 2-я эмулирует стрелки (с ускорением через шифт) и эмуляция всех кнопок.

Я не стал приводить тут весь скрипт т.к. он весьма большой - нужно размещу, он отлажен и работоспособен на 95% (5% это недоделка ускорителя мышки, просто забыл про него, отвлёкся на другое)

Re: AHK: Эмуляция мыши при помощи клавиатуры

null@example.com (creature.ws) — Sat, 30 Jun 2012 17:20:29 +0000

«Делать через таймер» — равносильно созданию своей собственной замечательной конструкции одноколёсного велосипеда.
Не вижу смысла в отказе от встроенной возможности реагировать на события нажатия клавиш.

Re: AHK: Эмуляция мыши при помощи клавиатуры

null@example.com (ypppu) — Sat, 30 Jun 2012 17:10:30 +0000

Загляните в Коллекцию.

Re: AHK: Эмуляция мыши при помощи клавиатуры

null@example.com (sergeant.coolagin) — Sat, 30 Jun 2012 17:08:19 +0000

creature.ws пишет:

#Persistent
Не нужно использовать GetKeyState в цикле для определения нажата ли клавиша. Противоестественно это для autohotkey, горячие клавиши ведь существуют.

#Persistent работает
Да, горячие клавиши существуют. Но когда есть несколько связанных хоткеев и их нужно заставить правильно работать, по-моему, лучше это делать через таймер, getkeystate, loop и if...

Re: AHK: Эмуляция мыши при помощи клавиатуры

null@example.com (creature.ws) — Sat, 30 Jun 2012 16:57:33 +0000

#Persistent
Не нужно использовать GetKeyState в цикле для определения нажата ли клавиша. Противоестественно это для autohotkey, горячие клавиши ведь существуют.

Re: AHK: Эмуляция мыши при помощи клавиатуры

null@example.com (sergeant.coolagin) — Sat, 30 Jun 2012 16:52:47 +0000

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Global Variabless ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

HatDelay = 10 ; Время таймера


XSensitivity := 0 ; Начальная скорость передвижения мыши по горизонтали.
YSensitivity := 0 ; Начальная скорость передвижения мыши по вертикали.
XAcceleration := 3 ; Ускорение мыши по горизонтали. Чем больше значение, тем быстрее будет ускорение мыши.
YAcceleration := 3 ; Ускорение мыши по вертикали. Чем больше значение, тем быстрее будет ускорение мыши.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Body ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;; Hat freelook ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



SetTimer, KeyMouse, %HatDelay%

KeyMouse:
{
    GetKeyState, AState, A
    GetKeyState, SState, S
    GetKeyState, DState, D
    GetKeyState, WState, W

    if (AState = "U") && (SState = "U") && (DState = "U") && (WState = "U")
    {
    XSensitivity := 0 ; Скорость передвижения мыши по горизонтали.
    YSensitivity := 0 ; Скорость передвижения мыши по вертикали.
    }
    
    if DState = D ; Если нажать кнопку
    {
    XSensitivity += %XAcceleration%
    }

    if SState = D ;  Если нажать кнопку
    {
    YSensitivity += %XAcceleration%
    }

    if AState = D ;  Если нажать кнопку
    {
    XSensitivity += -%XAcceleration%
    }

    if WState = D ;  Если нажать кнопку
    {
    YSensitivity += -%XAcceleration%
    }

    

    if (AState = "D" || SState = "D" || DState = "D" || WState = "D") ; Проверка состояния клавиш
    {
    DllCall("mouse_event", UInt, 0x1
                              , Int, XSensitivity
                              , Int, YSensitivity
                              , UInt, 0
                              , Int, 0)
    
    }

}
Return

Joy25::
{
}
Return

Спасибо за подсказку. Вот так работает правильно.
Правильно выставил кавычки:

if (AState = "D" || SState = "D" || DState = "D" || WState = "D")

А тут правильно выставил кавычки и скобки:

if (AState = "U") && (SState = "U") && (DState = "U") && (WState = "U")

creature.ws пишет:

Использование таймера для проверки состояний клавиш — этот подход действительно оправдан?

Есть идея получше?
Можно использовать LOOP и делать это по хоткею, например:

W::
{

LOOP
{
DllCall("mouse_event", UInt, 0x1
                              , Int, -5
                              , Int, 0
                              , UInt, 0
                              , Int, 0)

GetKeyState, Wstate, W, P
if state = U
break
}

}
Return

Но таймер, по-моему более стабильный. Есть еще способы? Расскажите, мне будет интересно почитать.

Еще есть такая проблема с таймером, что нужен какой-то хоткей, чтобы программа нормально работала. Т.е. после таймера должно быть хотя бы:

Joy25::
{
}
Return

Иначе программа сразу после запуска просто закончится и закроется.

К примеру, конкретно вот так программа работать не будет:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Global Variabless ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

HatDelay = 10 ; Время таймера


XSensitivity := 0 ; Начальная скорость передвижения мыши по горизонтали.
YSensitivity := 0 ; Начальная скорость передвижения мыши по вертикали.
XAcceleration := 3 ; Ускорение мыши по горизонтали. Чем больше значение, тем быстрее будет ускорение мыши.
YAcceleration := 3 ; Ускорение мыши по вертикали. Чем больше значение, тем быстрее будет ускорение мыши.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Body ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;; Hat freelook ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



SetTimer, KeyMouse, %HatDelay%

KeyMouse:
{
    GetKeyState, AState, A
    GetKeyState, SState, S
    GetKeyState, DState, D
    GetKeyState, WState, W

    if (AState = "U") && (SState = "U") && (DState = "U") && (WState = "U")
    {
    XSensitivity := 0 ; Скорость передвижения мыши по горизонтали.
    YSensitivity := 0 ; Скорость передвижения мыши по вертикали.
    }
    
    if DState = D ; Если нажать кнопку
    {
    XSensitivity += %XAcceleration%
    }

    if SState = D ;  Если нажать кнопку
    {
    YSensitivity += %XAcceleration%
    }

    if AState = D ;  Если нажать кнопку
    {
    XSensitivity += -%XAcceleration%
    }

    if WState = D ;  Если нажать кнопку
    {
    YSensitivity += -%XAcceleration%
    }

    

    if (AState = "D" || SState = "D" || DState = "D" || WState = "D") ; Проверка состояния клавиш
    {
    DllCall("mouse_event", UInt, 0x1
                              , Int, XSensitivity
                              , Int, YSensitivity
                              , UInt, 0
                              , Int, 0)
    
    }

}
Return

А вот так уже будет:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Global Variabless ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

HatDelay = 10 ; Время таймера


XSensitivity := 0 ; Начальная скорость передвижения мыши по горизонтали.
YSensitivity := 0 ; Начальная скорость передвижения мыши по вертикали.
XAcceleration := 3 ; Ускорение мыши по горизонтали. Чем больше значение, тем быстрее будет ускорение мыши.
YAcceleration := 3 ; Ускорение мыши по вертикали. Чем больше значение, тем быстрее будет ускорение мыши.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Body ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;; Hat freelook ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



SetTimer, KeyMouse, %HatDelay%

KeyMouse:
{
    GetKeyState, AState, A
    GetKeyState, SState, S
    GetKeyState, DState, D
    GetKeyState, WState, W

    if (AState = "U") && (SState = "U") && (DState = "U") && (WState = "U")
    {
    XSensitivity := 0 ; Скорость передвижения мыши по горизонтали.
    YSensitivity := 0 ; Скорость передвижения мыши по вертикали.
    }
    
    if DState = D ; Если нажать кнопку
    {
    XSensitivity += %XAcceleration%
    }

    if SState = D ;  Если нажать кнопку
    {
    YSensitivity += %XAcceleration%
    }

    if AState = D ;  Если нажать кнопку
    {
    XSensitivity += -%XAcceleration%
    }

    if WState = D ;  Если нажать кнопку
    {
    YSensitivity += -%XAcceleration%
    }

    

    if (AState = "D" || SState = "D" || DState = "D" || WState = "D") ; Проверка состояния клавиш
    {
    DllCall("mouse_event", UInt, 0x1
                              , Int, XSensitivity
                              , Int, YSensitivity
                              , UInt, 0
                              , Int, 0)
    
    }

}
Return

Joy25::
{
}
Return

И будет работать именно из-за:

Joy25::
{
}
Return

Как решить такую проблему?

Re: AHK: Эмуляция мыши при помощи клавиатуры

null@example.com (creature.ws) — Sat, 30 Jun 2012 16:06:55 +0000

GetKeyState, AState, A

В AState — строка.

If (AState = D)

Сравнение содержимого переменной AState c содержимым переменной D

if (AState = "D" || WState = "D" || SState = "D" || DState = "D")

Сравнение содержимого переменной AState cо строкой состоящей из символа D

Использование таймера для проверки состояний клавиш — этот подход действительно оправдан?

AHK: Эмуляция мыши при помощи клавиатуры

null@example.com (sergeant.coolagin) — Sat, 30 Jun 2012 15:59:56 +0000

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Global Variabless ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

HatDelay = 10 ; Время таймера


XSensitivity := 5 ; Начальная скорость передвижения мыши по горизонтали.
YSensitivity := 5 ; Начальная скорость передвижения мыши по вертикали.
XAcceleration := 3 ; Ускорение мыши по горизонтали. Чем больше значение, тем быстрее будет ускорение мыши.
YAcceleration := 3 ; Ускорение мыши по вертикали. Чем больше значение, тем быстрее будет ускорение мыши.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Body ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SetTimer, KeyMouse, %HatDelay%

KeyMouse:
{
    GetKeyState, AState, A
    GetKeyState, WState, W
    GetKeyState, SState, S
    GetKeyState, DState, D

    if (AState = U) && (WState = U) && (SState = U) && (DState = U)
    {
    XSensitivity2 := XSensitivity ; Скорость передвижения мыши по горизонтали.
    YSensitivity2 := YSensitivity ; Скорость передвижения мыши по вертикали.
    }
    
    if DState = D ; Если нажать кнопку
    {
    XAxis := XSensitivity2
    }

    if SState = D ;  Если нажать кнопку
    {
    YAxis := YSensitivity2
    }

    if AState = D ;  Если нажать кнопку
    {
    XAxis := -XSensitivity2
    }

    if WState = D ; Если нажать кнопку
    {
    YAxis := -YSensitivity2
    }

    if (AState = D || WState = D || SState = D || DState = D) ; Проверка состояния клавиш
    {

    DllCall("mouse_event", UInt, 0x1
                              , Int, XAxis
                              , Int, YAxis
                              , UInt, 0
                              , Int, 0)

    XSensitivity2 += %XAcceleration%
    YSensitivity2 += %YAcceleration%

    }

}
Return

Joy25::
{
}
Return

Решил написать простенький эмулятор мыши с ускорением. Не работает он. Я не могу найти свою ошибку. Она где-то здесь:

if (AState = U) && (WState = U) && (SState = U) && (DState = U)
    {
    XSensitivity2 := XSensitivity ; Скорость передвижения мыши по горизонтали.
    YSensitivity2 := YSensitivity ; Скорость передвижения мыши по вертикали.
    }

и здесь:

if (AState = D || WState = D || SState = D || DState = D) ; Проверка состояния клавиш
    {

    DllCall("mouse_event", UInt, 0x1
                              , Int, XAxis
                              , Int, YAxis
                              , UInt, 0
                              , Int, 0)

    XSensitivity2 += %XAcceleration%
    YSensitivity2 += %YAcceleration%

    }

Стоит убрать

if (AState = D || WState = D || SState = D || DState = D)

и эмулятор начинает работать.

Что-то не так с проверкой состояния клавиш. Подскажите, плз, в чем проблема?
Каждую строчку по 10 раз перечитал, не хочет работать

GetKeyState работает нормально.
if по отдельности тоже работает, например:

if AState = D ;  Если нажать кнопку
    {
    XAxis := -XSensitivity2
    }

а вот это:

if AState = D && SState = D ;  Если нажать кнопку
    {
    XAxis := -XSensitivity2
    }

уже работать не будет.
И вроде должно, не?