DaniWeb IT Discussion Community - View Single Post - System Usage Administration

Re: System Usage Administration - Internet cafe management

Jun 3rd, 2008

•

Originally Posted by binoj_daniel

You can do something like this by using an API call.

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Disablekeys()
SystemParametersInfo 97, true, CStr(1), 0
End Sub

Private Sub Disable_Click()
Disablekeys()
End Sub

thanks for helping, but when I use your code, there's a syntax error in "Any"
Is it works at your place? Is that code will lock the ctrl, alt, del, and windows key?