_ispressed doesn't work correctly

[Zoli1972]

I wrote a little code to disable pressing CTRL-key while a certain application window is visible. I tried to disable i.e. opening files by pressing CTRL+O that way. Unfortunately it doesnt always work. As long as I press CTRL my function works, but if I release CTRL and press O without pressing CTRL after that, the "file Open" dialog pops up. It seems to me, that pressing CTRL remains in AutoIt's memory somehow. How can I get rid of this problem?

Below the code I am using:

include <Misc.au3>

$dll = DllOpen("user32.dll")

While 1
    Sleep ( 20 )
    Select
        Case _IsPressed("11", $dll); BUG If Ctrl key isn't pressed anymore, but i.e. "o" is, the Ctrl key remains in memory somehow and everything reacts like it still would be pressed
            If WinActive("My Window") Then  
                BlockInput(1)
            EndIf
        Case Not _IsPressed("11", $dll)
            BlockInput(0)   
    EndSelect
WEnd
DllClose($dll)

Zoli

[Brickoneer]

Hmmm... my guess is that blockinput isn't doing what you think its doing... possibly blocking future input? I'll have to check.

Anyway... try this:

While 1
    Sleep(200)
    If WinActive("My Window") Then
        HotKeySet("^o", "stop")
    Else
        HotKeySet("^o")
    EndIf
WEnd

Func stop ()
    MsgBox(0, "", "This ctrl+o was stopped.")
EndFunc

Seems to work for me.

Hope that helps.

Brick

[martin]

Hmmm... my guess is that blockinput isn't doing what you think its doing... possibly blocking future input? I'll have to check.

Anyway... try this:

While 1
    Sleep(200)
    If WinActive("My Window") Then
        HotKeySet("^o", "stop")
    Else
        HotKeySet("^o")
    EndIf
WEnd

Func stop ()
    MsgBox(0, "", "This ctrl+o was stopped.")
EndFunc

Seems to work for me.

Hope that helps.

Brick

That seems like a good solution.

I tried playing with the Zoli19721's script and found that this version works but I don't really understand why the blockinut has the effect it does

#include <Misc.au3>

$Blocked = False
While 1
    Sleep ( 20 )
    Select
        Case _IsPressed("11") And Not $blocked; BUG If Ctrl key isn't pressed anymore, but i.e. "o" is, the Ctrl key remains in memory somehow and everything reacts like it still would be pressed
            If WinActive("Untitled") Then
                BlockInput(1)
                $Blocked = True
            EndIf
        Case (Not _IsPressed("11", $dll)) And $blocked
            BlockInput(0)
                      ;ensure ctrl key is set back up, {CTRLUP} alone doesn't work for me.
            Send("{CTRLDOWN}")
            Sleep(100)
            Send("{CTRLUP}")
            $blocked = False
    EndSelect
WEnd
DllClose($dll)

Edited November 11, 2007 by martin

[Zoli1972]

Thanks for the reply, guys.

@Brickoneer: I'm going to try your solution.

Zoli