Advertisement
DevTricks

Цикличное нажатие при удержании с подстройкой

Oct 16th, 2022
1,971
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CoordMode, ToolTip, Screen  ; Отображение ToolTip'a относительно рабочего стола.
  2.  
  3. del:=0 ;изначально задержка нулевая
  4.  
  5. F1::    ; по нажатию на F1 уменьшаем задержку
  6.   if (del>0)
  7.     del:= del-10
  8.   else
  9.     del:= 0
  10.   ToolTip, %del% ,50, 100
  11.   SetTimer, RemoveToolTip, -1000
  12.   return
  13.  
  14. F2::    ; по нажатию на F2 увеличиваем задержку
  15.   del:= del+10
  16.   ToolTip, %del% ,50, 100
  17.   SetTimer, RemoveToolTip, -1000
  18.  
  19. $Space::
  20.   Loop
  21.   {
  22.     if not GetKeyState("Space", "P") ;Выполнять цикл пока нажата клавиша
  23.       break
  24.     Send, {SPACE}
  25.     Sleep, %del%
  26.   }
  27. return
  28.  
  29. -------------------------------------
  30. RemoveToolTip: ;Удаление подсказки
  31. ToolTip
  32. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement