if key held down

[yehia]

im trying to find a udf same as _istoggled but for ordinary letters

like sends true if any key is held down until its up again

can anyone help me with this?

[Andreik]

im trying to find a udf same as _istoggled but for ordinary letters

like sends true if any key is held down until its up again

can anyone help me with this?

Try this function:

Func GetKeyState($VK_Code)
    Local $a_Return = DllCall("user32.dll","short","GetKeyState","int",$VK_Code)
    If $a_Return[0] < -126 Then
        Return 1   ;Key is pressed
    Else
        Return 0   ;Key is released
    EndIf
EndFunc

[yehia]

hmmm strange never returns 1

maybe its vista ?

[Andreik]

hmmm strange never returns 1

maybe its vista ?

Please post a part from your code to see when returns 1 and when returns 0.

[yehia]

Msgbox(0,"",GetKeyState(41)) ;... for the A key

Func GetKeyState($VK_Code)
    Local $a_Return = DllCall("user32.dll","short","GetKeyState","int",$VK_Code)
    If $a_Return[0] < -126 Then
        Return 1   ;Key is pressed
    Else
        Return 0   ;Key is released
    EndIf
EndFunc

oh found it it needs ASCII characters not HEX

but still is there any function that tells that there is no key pressed now?

Edited September 7, 2008 by yehia

[Andreik]

Msgbox(0,"",GetKeyState(41)) ;... for the A key

Func GetKeyState($VK_Code)
    Local $a_Return = DllCall("user32.dll","short","GetKeyState","int",$VK_Code)
    If $a_Return[0] < -126 Then
        Return 1   ;Key is pressed
    Else
        Return 0   ;Key is released
    EndIf
EndFunc

oh found it it needs ASCII characters not HEX

but still is there any function that tells that there is no key pressed now?

I write a simple example for you:

While 1
    If GetKeyState(65) = 1 Then; key A
        TrayTip("GetKeyState","PRESSED",1)
    Else
        TrayTip("GetKeyState","RELEASED",1)
    EndIf
    Sleep(20)
WEnd

Func GetKeyState($VK_Code)
    Local $a_Return = DllCall("user32.dll","short","GetKeyState","int",$VK_Code)
    If $a_Return[0] < -126 Then
        Return 1  ;Key is pressed
    Else
        Return 0  ;Key is released
    EndIf
EndFunc