OpenEuphoria

RE: keyboard disabler?

• Posted by Mike <vulcan at win.co.nz> May 21, 2001
• 393 views

If you don't mind adding another flag to be checked at the onMouse & 
onKey events this could work, eg:

integer myProgIsRunning

procedure stopKeyboard()
myProgIsRunning = True
end procedure

procedure startKeyboard()
myProgIsRunning = False
end procedure


<when your program starts to do a run then first call stopKeyboard() and 
after it ends call startKeyboard() >

procedure onKeyPressedByPerson(integer keycode, integer shift)
-- are we allowed to process these key events?
if myProgIsRunning = True then
return
end if

-- continue processing keys

end procedure

<do the same for onMouse and your problems should be solved(I think) >

vulcan at win.co.nz


otter at FULL-MOON.COM wrote:
> i have a program that reads an external data source and feeds a IBM main 
> frame session and "pretends" to be a person entering data ridiculously 
> fast. the program runs on a stand alone machine and has worked 
> flawlessly for months. it failed yesterday when a person unlocked the 
> machine and started pressing buttons during one of the data runs.
> 
> i need this program to have TOTAL control over the keyboard during 
> program execution. is there a win32 way to temporarily disable the 
> keyboard and mouse while my program runs?? thanks!