Do Beep until a key is pressed

[Dsmoeg999]

Hi guys can someone guide me it seems that my code runs in a loop and does not work correctly.

#include <Misc.au3>
#include <MsgBoxConstants.au3>
Local $hDLL = DllOpen("user32.dll")

While 1
   ;_IsPressed("51", $hDLL) equals Letter Q
   Do
    Beep(500, 1000)
    Sleep(2000)
   Until _IsPressed =_IsPressed("51", $hDLL)


WEnd

DllClose($hDLL)

 

[Dan_555]

Maybe because you have 2 nested loops: While 1 ... Do .. Until ... Wend

When you exit out of the do loop, it loops forever again in the while loop.

Here is a solution:

#include <Misc.au3>

Local $hDLL = DllOpen("user32.dll")
$hTime = TimerInit()

Do
    If TimerDiff($hTime) > 2000 Then
        Beep(500, 1000)
        $hTime = TimerInit()
    EndIf

Until _IsPressed("51", $hDLL)

DllClose($hDLL)

 

[Dsmoeg999]

Thank you very much for the clarification and the example greetings☺️