windows - 如果在有限的时间内按键三次，则自动运行功能

Question

到目前为止我有这段代码:

#include <Misc.au3>
While True
    If _IsPressed(57) Then
        Sleep(100)
        If Not _IsPressed(57) Then
            Sleep(100)
            If _IsPressed(57) Then
                Sleep(100)
                If Not _IsPressed(57) Then
                    Sleep(100)
                    If _IsPressed(57) Then
                        Sleep(100)
                        If Not _IsPressed(57) Then
                            up()
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
WEnd

Func up()
   Send("{w down}")
   Sleep(10000)
   Send("{w up}")
   Sleep(500)
EndFunc

问题是它只会在某些时候起作用，而且是喜怒无常的。有谁知道我如何让它每次都能正常工作，而不仅仅是几次。

Answer 1

这可能就是您正在寻找的。

HotKeySet("a", "pressed")
Dim $i = 0, $PushTime = 1000

While 1
    Sleep(100)
WEnd

Func pressed()
    $i += 1
    Sleep($PushTime)
    Switch $i
        Case 1
            put(1)
        Case 2
            put(2)
        Case 3
            put(3)
        Case 4
            Exit (0)
    EndSwitch
    $i = 0
EndFunc   ;==>pressed

Func put($y)
    MsgBox(0, "Func called: ", "Nr: " & $y)
EndFunc   ;==>put