AHK самое простое

Статус
В этой теме нельзя размещать новые ответы.

loossklxm

Известный
Автор темы
52
2
Хелп, как сделать чтобы при зажатии W оно писалось не 1 раз ,а столько сколько зажал.
Типо Sendinput
AutoHotKey:
#InstallKeybdHook
W::
Sendinput, {W}
FileAppend, w, %A_ScriptDir%\lol.txt
goto l

A::
Sendinput, {A}
FileAppend, a, %A_ScriptDir%\lol.txt
goto 2

S::
Sendinput, {S}
FileAppend, s, %A_ScriptDir%\lol.txt
goto 3

D::
Sendinput, {D}
FileAppend, d, %A_ScriptDir%\lol.txt
goto 4

F::
Sendinput, {F}
FileAppend, f, %A_ScriptDir%\lol.txt
goto 5
return

l:
  n := 0
  If GetKeyState("vk57","P")
    {
      StartTime := A_TickCount
      Loop
        {
          If !GetKeyState("vk57","P")
            {
              ElapsedTime := A_TickCount - StartTime
              text =
                (
`nВремя W - %ElapsedTime%
                   )
              FileAppend,%text%,%A_WorkingDir%\времяW.txt
              goto, l
            }
        }
    }
return

2:
  n := 0
  If GetKeyState("vk41","P")
    {
      StartTime := A_TickCount
      Loop
        {
          If !GetKeyState("vk41","P")
            {
              ElapsedTime := A_TickCount - StartTime
              text =
                (
`nВремя A - %ElapsedTime%
                   )
              FileAppend,%text%,%A_WorkingDir%\времяW.txt
              goto, 2
            }
        }
    }
return

3:
  n := 0
  If GetKeyState("vk53","P")
    {
      StartTime := A_TickCount
      Loop
        {
          If !GetKeyState("vk53","P")
            {
              ElapsedTime := A_TickCount - StartTime
              text =
                (
`nВремя S - %ElapsedTime%
                   )
              FileAppend,%text%,%A_WorkingDir%\времяW.txt
              goto, 3
            }
        }
    }
return

4:
  n := 0
  If GetKeyState("vk44","P")
    {
      StartTime := A_TickCount
      Loop
        {
          If !GetKeyState("vk44","P")
            {
              ElapsedTime := A_TickCount - StartTime
              text =
                (
`nВремя D - %ElapsedTime%
                   )
              FileAppend,%text%,%A_WorkingDir%\времяW.txt
              goto, 4
            }
        }
    }
return

5:
  n := 0
  If GetKeyState("vk46","P")
    {
      StartTime := A_TickCount
      Loop
        {
          If !GetKeyState("vk46","P")
            {
              ElapsedTime := A_TickCount - StartTime
              text =
                (
`nВремя F - %ElapsedTime%
                   )
              FileAppend,%text%,%A_WorkingDir%\времяW.txt
              goto ,5
            }
        }
    }
return
 
Последнее редактирование:

Smer4

Известный
425
51
Тогда время не будет правильное
Есть идея но сам не смогу ее реализовать мб ты сможешь, типо, поток создаешь с кодом и по нажатию клавиши запускаешь его.

Если реализуешь скинь код в ЛС.
 
Статус
В этой теме нельзя размещать новые ответы.