Серый форум — AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (Steve Key) — Tue, 08 Apr 2014 15:48:18 +0000

Steve Key пишет:

Без ~ попробую.

Без ~ работает, вроде, получше, но что-то не то?…
Попытаюсь понять, что не устраивает, отпишусь.

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (serzh82saratov) — Mon, 07 Apr 2014 20:15:39 +0000

Так это таймер без паузы, аналог команды GoSub. Сделано для того, чтобы не привязывать поток к хоткею. Это как раз и гарантирует перезапуск при каждом нажатии Shift.

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (Steve Key) — Mon, 07 Apr 2014 20:09:40 +0000

serzh82saratov пишет:

А Вы какой таймер имеете ввиду?

ShiftUp
Без ~ попробую.

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (serzh82saratov) — Mon, 07 Apr 2014 18:46:51 +0000

когда бы таймер перезапускался, то оно бы "стояло" в форме "нажат шифт"…

А Вы какой таймер имеете ввиду?

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (serzh82saratov) — Mon, 07 Apr 2014 17:32:08 +0000

Ну так это обработчик FAR реагирует на событие Shift Down, так как ему и положено, можете попробовать Shift без ~, событие Shift Up происходит только после последнего нажатия Shift через 1 секунду, смотрите:


~Shift::   
    ToolTip % (Start := A_TickCount) " {Shift Down}" 
    Input
    SetTimer, ShiftUp, -1
    Return
     
ShiftUp:
    Input, v, L1 T1 V
    If ErrorLevel != NewInput
        ToolTip % A_TickCount - Start " {Shift Up}"
    Return

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (Steve Key) — Mon, 07 Apr 2014 14:39:04 +0000

serzh82saratov пишет:

Ну он и перезапускается. А задержка 10 мс не может быть заметна.

Заметил, вот запущен FAR, там меню нижнее меняется в зависимости от нажатого шифта, в частности.
Беру и "долблю" (с запущенной Вашей программой, ессно!) по шифту — и вижу, что меню периодически меняется, когда бы таймер перезапускался, то оно бы "стояло" в форме "нажат шифт"…

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (serzh82saratov) — Mon, 07 Apr 2014 13:16:57 +0000

Правильнее так:


Shift::  
    SendInput {Shift Down}
    Input
    SetTimer, ShiftUp, -1 
    Return
     
ShiftUp:
    Input, v, L1 T1 V 
    If ErrorLevel != NewInput
        SendInput {Shift Up} 
    Return

-------------

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

Ну он и перезапускается. А задержка 10 мс не может быть заметна. Без SetBatchLines это вообще таймаут выполнения строк кода.

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (Steve Key) — Mon, 07 Apr 2014 12:54:50 +0000

serzh82saratov пишет:

С многократными нажатиями Shift не хорошо получается, тогда может так:

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

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (serzh82saratov) — Mon, 07 Apr 2014 11:28:16 +0000

С многократными нажатиями Shift не хорошо получается, тогда может так:


Shift::  
    SendInput {Shift Down}
    SetTimer, ShiftUp, -1 
    Return
     
ShiftUp:
    Input, SingleKey, L1 T1 V 
    If ErrorLevel != NewInput
        SendInput {Shift Up} 
    Return

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (serzh82saratov) — Mon, 07 Apr 2014 11:14:44 +0000

Значит не правильно понял задачу. Но тогда зачем такой длинный код.


Shift:: 
    SendInput {Shift Down}
    Input, SingleKey, L1 T1 V
    SendInput {Shift Up} 
    Return

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (Steve Key) — Mon, 07 Apr 2014 09:40:07 +0000

serzh82saratov пишет:

Проще дописать минус.

Тут Вы совершенно правы, я это читал когда-то, но забыл, ибо программирую на AHK «от случая к случаю»...

serzh82saratov пишет:

Вопрос в смысле проверки A_PriorHotkey. Проверки ST вполне достаточно.

А вот тут Вы заблуждаетесь, если проверять только флаг, то шифт будет активен всегда ровно секунду (в нашем случае), даже если мы нажмём много буквенных клавиш, и все отобразятся заглавными, нам же нужно, чтобы именно одна буква «капитализировалась»...

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (serzh82saratov) — Mon, 07 Apr 2014 07:39:35 +0000

Проще дописать минус.

 ~Shift::
  ST := 1
  settimer, ShiftTimer, -1000 
return


ShiftTimer:
  ST := 0
  return

Вопрос в смысле проверки A_PriorHotkey. Проверки ST вполне достаточно. Участие A_PriorKey было бы понятно наполовину, но A_PriorHotkey зачем.

 #If ST

По мне, тут вполне достаточно.

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (Steve Key) — Mon, 07 Apr 2014 07:12:14 +0000

Хм, действительно, я остановился на стадии «работает - не трогай»...
Надо подправить:

#If (A_PriorHotkey = "~Shift") and (ST = 1)

ShiftTimer:
  settimer, ShiftTimer, off
  ST := 0
  return

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (serzh82saratov) — Mon, 07 Apr 2014 06:40:15 +0000

If A_PriorHotkey = "~Shift" and ST = 1

А каков смысл использования в условии A_PriorHotkey?
И зачем постоянно включенный таймер?

Re: AHK: Аналог "мертвых клавиш" и режима "залипания" клавиш

null@example.com (Steve Key) — Sun, 06 Apr 2014 14:26:44 +0000

По залипанию шифта — шикарная штука! Весьма помогает.
Всё-же, практически следует ограничить время такого "залипания", а то нажал полчаса назад шифт, а он до сих пор залипши…
Также надо дать возможность отменить залипание ранее, чем истечёт "его время".

ST := 0
  return

~Shift::
  ST := 1
  settimer, ShiftTimer, 1000 ; Кол-во миллисекунд для сохранения состояния шифта
  return

#If A_PriorHotkey = "~Shift" and ST = 1

  BackSpace::return

    vk51::+vk51  ; Й
    vk57::+vk57  ; Ц
    vk45::+vk45  ; У
    vk52::+vk52  ; К
    vk54::+vk54  ; Е
    vk59::+vk59  ; Н
    vk55::+vk55  ; Г
    vk49::+vk49  ; Ш
    vk4F::+vk4F  ; Щ
    vk50::+vk50  ; З
    vkDB::+vkDB  ; Х
    vkDD::+vkDD  ; Ъ
    
    vk41::+vk41  ; Ф
    vk53::+vk53  ; Ы
    vk44::+vk44  ; В
    vk46::+vk46  ; А
    vk47::+vk47  ; П
    vk48::+vk48  ; Р
    vk4A::+vk4A  ; О
    vk4B::+vk4B  ; Л
    vk4C::+vk4C  ; Д
    vkBA::+vkBA  ; Ж
    vkDE::+vkDE  ; Э
    
    vk5A::+vk5A  ; Я
    vk58::+vk58  ; Ч
    vk43::+vk43  ; С
    vk56::+vk56  ; М
    vk42::+vk42  ; И
    vk4E::+vk4E  ; Т
    vk4D::+vk4D  ; Ь
    vkBC::+vkBC  ; Б
    vkBE::+vkBE  ; Ю
    vkBF::+vkBF  ; .
    
    vkC0::+vkC0  ; Ё
    vk31::+vk31  ; 1
    vk32::+vk32  ; 2
    vk33::+vk33  ; 3
    vk34::+vk34  ; 4
    vk35::+vk35  ; 5
    vk36::+vk36  ; 6
    vk37::+vk37  ; 7
    vk38::+vk38  ; 8
    vk39::+vk39  ; 9
    vk30::+vk30  ; 0
    vkBD::+vkBD  ; -
    vkBB::+vkBB  ; =
    
#If

ShiftTimer:
  ST := 0
  return