Ispressed..!

[L3G3NdKillEr]

hi..,

I need your help to know what should i use to limit key presses..

if "1" is pressed for five times then "1" will get blocked..

[LurchMan]

everytime the key gets pressed have it write to an ini file, and when that key reaches 5 times, have it ignore it when it presses the key and do nothing

something to the effect of this:

#Include <Misc.au3>
$sFile = @ScriptDir & "\testing.ini"
$dll = DllOpen("user32.dll")
$cnt = 0
$read = IniRead ($sFile , "One Key" , "Pressed" , 0)
If $read = 5 Then
    
ElseIf _IsPressed(31 , $dll)
;~   extra code here
    $cnt = $cnt + 1
    IniWrite($sFile , "One Key" , "Pressed" , $cnt)
EndIf

Edit: I've used something to the effect of this to limit how many times u can attempt a password

Edited January 14, 2009 by LurchMan

[youknowwho4eva]

I would use a variable that would reset when another key is pressed. you could use a loop to check all keys. store it in an array.

[FireFox]

I think he wants to block key after 5key press, not to do nothing

Cheers, FireFox.

[youknowwho4eva]

that's what I'm saying, I would set it up so that any key would have to be hit 5 times in a row. then he could lock that key. I don't think he wants it to block I if he rights a sentence that contains 5 letter i's in it.

[L3G3NdKillEr]

I think he wants to block key after 5key press, not to do nothing

Cheers, FireFox.

Hey Thanks for your fast replies..

FireFox Got my point.. exactly what i want to do..

[FireFox]

Hey Thanks for your fast replies..

FireFox Got my point.. exactly what i want to do..

Look at LimitInput function udf; but dont worry, i will make an udf with some functions on it

Cheers, FireFox.

[L3G3NdKillEr]

Ohh really..!!

Thank you soo much Firefox(Don't Know your Name )

And I'm Gonna take a look on limit input udf.. =)

[azure]

Hey Thanks for your fast replies..

FireFox Got my point.. exactly what i want to do..

#Include <Misc.au3>
$dll = DllOpen("user32.dll")

Dim $keys[10][3] = [[30,0,0],[31,0,1],[32,0,2],[33,0,3],[34,0,4],[35,0,5],[36,0,6],[37,0,7],[38,0,8],[39,0,9]]

While 1
    For $i = 0 To UBound($keys)-1
        If _IsPressed($keys[$i][0],$dll) Then
            If $keys[$i][1] >= 5 Then
                ;TrayTip("",$keys[$i][2] & " should disable here!",1)
                HotKeySet($keys[$i][2],"KeyDisabled")
            Else
                $keys[$i][1] = $keys[$i][1]+1
                TrayTip("",$keys[$i][2] & " is pressed " & $keys[$i][1] & " times!",1)
            EndIf
        Else
            ;TrayTip("","No key is pressed!",1)
        EndIf
    Next
    Sleep(100)
WEnd

Func KeyDisabled()
    TrayTip("","Sorry Bout Your Luck.. This Key's Disabled!",1)
EndFunc

Func OnAutoitExit()
    DLLClose($dll)
EndFunc

Try this. I'm guess you'll want to stick a timer in there.. maybe setup another entry in the array for the timer stat.. and after a certain amount of time reset the counter.

[L3G3NdKillEr]

#Include <Misc.au3>
$dll = DllOpen("user32.dll")

Dim $keys[10][3] = [[30,0,0],[31,0,1],[32,0,2],[33,0,3],[34,0,4],[35,0,5],[36,0,6],[37,0,7],[38,0,8],[39,0,9]]

While 1
    For $i = 0 To UBound($keys)-1
        If _IsPressed($keys[$i][0],$dll) Then
            If $keys[$i][1] >= 5 Then
                ;TrayTip("",$keys[$i][2] & " should disable here!",1)
                HotKeySet($keys[$i][2],"KeyDisabled")
            Else
                $keys[$i][1] = $keys[$i][1]+1
                TrayTip("",$keys[$i][2] & " is pressed " & $keys[$i][1] & " times!",1)
            EndIf
        Else
            ;TrayTip("","No key is pressed!",1)
        EndIf
    Next
    Sleep(100)
WEnd

Func KeyDisabled()
    TrayTip("","Sorry Bout Your Luck.. This Key's Disabled!",1)
EndFunc

Func OnAutoitExit()
    DLLClose($dll)
EndFunc

Try this. I'm guess you'll want to stick a timer in there.. maybe setup another entry in the array for the timer stat.. and after a certain amount of time reset the counter.

Hey Buddy your solution is good enough for me..

Thank you soo much man..!!

[L3G3NdKillEr]

Hey i still have some confusion. I just want to disabled "1" after 5 presses not all keys.. =)

I know i have to modify:

Dim $keys[10][3] = [[30,0,0],[31,0,1],[32,0,2],[33,0,3],[34,0,4],[35,0,5],[36,0,6],[37,0,7],[38,0,8],[39,0,9]]

But i don't know anything about arrays. =S

[andybiochem]

What is this obsession with IsPressed ????

Here's a very simple way to do exactly what the OP wanted:

HotKeySet("{1}","KeyPressed")

$iHold = 0

While 1
    Sleep(100)
WEnd

Func KeyPressed()
    $iHold += 1
    If $iHold > 5 Then Return
    HotKeySet(@HotKeyPressed)
    Send(@HotKeyPressed)
    HotKeySet(@HotKeyPressed,"KeyPressed")
EndFunc

[EDIT] s --> i

Edited January 15, 2009 by andybiochem

[azure]

Hey i still have some confusion. I just want to disabled "1" after 5 presses not all keys.. =)

I know i have to modify:

Dim $keys[10][3] = [[30,0,0],[31,0,1],[32,0,2],[33,0,3],[34,0,4],[35,0,5],[36,0,6],[37,0,7],[38,0,8],[39,0,9]]

But i don't know anything about arrays. =S

Oh. Thought it was more than one key.

Dim $keys[1][3] = [[31,0,1]]

That'd prolly do it.. or use the hotkey method posted by andybiochem.

[L3G3NdKillEr]

Hey that scripts work fine..

Thanks for your kind help..