How could I disable all user input except 1 key!

[hatchetman]

How could I disable all user input except 1 key! Kind've like BlockInput with 1 exception.

[Blue_Drache]

How could I disable all user input except 1 key! Kind've like BlockInput with 1 exception.

<{POST_SNAPBACK}>

use the _ispressed() UDF. Have any key nullified exept for the one you want.

[hatchetman]

use the _ispressed() UDF.  Have any key nullified exept for the one you want.

<{POST_SNAPBACK}>

I have looked at the _ispressed() function but that just notifies you if a key was pressed, it still allows the keypress to go through. I want it to be blocked. Any other ideas?

[hatchetman]

Any more ideas?

[t0ddie]

remove the keys from the keyboard? ha!

havent tested it, but here is a thought.

blockinput

then..

use the iskeypressed function.

and if the key you want is pressed, then unblock input lol

and send that key.

not sure if the iskeypressed will detect keystrokes when input is blocked, but its just an idea

Edited May 26, 2005 by t0ddie

[quick_sliver007]

How could I disable all user input except 1 key! Kind've like BlockInput with 1 exception.

<{POST_SNAPBACK}>

set all keys but one as a hotkey("{keys}","_wait")

Func _wait()

sleep(10)

Endfunc

If every key but one is set as a hotkey to the function _wait() then when those keys are pressed all it does is sleep for 10 milli secs.

[Valuater]

Maybe give this a try

expandcollapse popup

#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <String.au3>



$My_GUI=GUICreate("My GUI",400,200,50,50)
$Button1= GUICtrlCreateButton("Test", 30,30,100,30)
GUICtrlCreateLabel("This is a 1 button testing program", 50,140)


GUISetState()

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $button1
            Call("Set_num")
    EndSelect
WEnd


Func Set_num()
$Num_ans = InputBox("Set Key", "Please Press the selected key - ONLY" & @CRLF & @CRLF & ' The key needed is "a"' & @CRLF & @CRLF & " Give it a try.. Good luck ", ""," 1", "", "", -1, -1, 15)
    Select
        Case @error = 0;OK - The string returned is valid
            If $Num_ans ="a" Then
                MsgBox(64, "Great!", " You pressed *a*   ")
            Else
                MsgBox(64, "Sorry!", " Please try again   ")
            EndIf
            
        Case @error = 1;The Cancel button was pushed
            
        Case @error = 2;The Timeout time was reached
            
        Case @error = 3;The InputBox failed to open
            
        EndSelect
EndFunc

good luck

[Orca]

Well you could set hotkeys for all of them.

I'm not sure if _isPressed() is called before or after the key is sent to the screen. If not then you could do

while 1

if _isPressed(20) then

hotkeyset('{space}', 'noSend')

else

hotkeyset('{space}')

endif

wend

func noSend(){}

The above is an attempt to only have one hotkey on at a time since autoit can only track up to 64 seperate declarations of hotkeys. And we all know hotkeys steal the input from other apps.

Edited May 27, 2005 by SiC_Goat