Looking for a way to lock keyboard

[outlawspeeder]

I have some display systems in my office. I cannot lock the computers in a room yet but untill then I need a way to lock the keyboard and mouse buttons. Not the pointer.


Below is the only thing i have found but only locks for this program. To add to this Debuging can lead to a lot of rebooting? I my be over my head with this.


I tried start:

Public Class Form1
Public Declare Function apiBlockInput Lib "user32" Alias "BlockInput" (ByVal fBlock As Integer) As Integer


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

apiBlockInput(1)
System.Threading.Thread.Sleep(100000)
apiBlockInput(0)
End
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
apiBlockInput(0)
End Sub
End Class

 

[Jaafar Tribak]

I have some display systems in my office. I cannot lock the computers in a room yet but untill then I need a way to lock the keyboard and mouse buttons. Not the pointer.


Below is the only thing i have found but only locks for this program. To add to this Debuging can lead to a lot of rebooting? I my be over my head with this.


I tried start:

PublicClass Form1
PublicDeclareFunction apiBlockInput Lib"user32"Alias"BlockInput" (ByVal fBlock AsInteger) AsInteger


PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

apiBlockInput(1)
System.Threading.Thread.Sleep(100000)
apiBlockInput(0)
End
EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
apiBlockInput(0)
EndSub
EndClass

The BlockInput should normally block the keyboard and mouse input for all programs not just for the calling one.

I noticed that you are passing 0 to the blockinput function in the apiBlockInput routine which is wrong . You should pass to it the Form hwnd.