How can I block keyboard and mouse input?

[wolfie78uk]

I need to block all mouse and keyboard input whilst my application is interacting with another application. The blocking of input has to be global (i.e the blocking is not specific to my application).

There is a library function for C++ called "BlockInput" which would do the trick, but unfortunately I'm using VB and there doesn't appear to be anything similar in the API viewer.

Can anybody help?

Thanks in advance.

 

[Swi]

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Boolean) As Boolean

Then call it:
BlockInput True

You could try something like this to test it:

Private Sub Command1_Click()
BlockInput True
For i = 1 To 10000
DoEvents
lblCaption = CStr(i)
Next i
BlockInput False
MsgBox "Test Complete!", vbInformation
End Sub
Swi

 

[wolfie78uk]

It doesn't work. I just get "Sub or Function not defined".

 

[johnwm]

Did you put the Declare bit 'Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Boolean) As Boolean' in your Form declarations section?
You may also need to Dim i in the Command1_Click event Let me know if this helps
________________________________________________________________
If you are worried about how to post, please check out FAQ222-2244 first

'There are 10 kinds of people in the world: those who understand binary, and those who don't.'