a code that will disable the keyboard and mouse

[New_Brink]

I need a code where it will disable the keyboard and the mouse i'm useing window's 98. please help me if you can

[Cimperiali]

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
  'KPD-Team 2000
 'URL: http://www.allapi.net/
 'E-Mail: KPDTeam@Allapi.net
 DoEvents
 'block the mouse and keyboard input
 BlockInput True
 'wait 10 seconds before unblocking it
 Sleep 10000
 'unblock the mouse and keyboard input
 BlockInput False
End Sub

[New_Brink]

thanks do you got a code that will disable "ctrl", "alt", "delete"? that would help alot and how can i change it to where it will enable after 60 seconds instead of 10? help me if you can thanks

[Cimperiali]

as far as I know, disable "ctrl", "alt", "delete" is not possible
under NT, win2k, winXp.


abut 60 seconds:

 BlockInput True
 'wait 60 seconds before unblocking it
 Sleep 60000
 'unblock the mouse and keyboard input
 BlockInput False

[New_Brink]

Is there a disable for "ctrl", "alt", "delete" for windows 98? thanks for your help

[Cimperiali]

On win 98 you can:

Private Const SPI_SCREENSAVERRUNNING As Long = 97
Private Declare Function SystemParametersInfo Lib "User32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

'To disable:
'call it as
DisableEnable True

'To enable, call it as:
DisableEnable False
'remember to enable when quitting your program!
  
Private Sub DisableEnable(bParam As Boolean)
    Dim lRetVal As Long, bOld As Boolean
    lRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, bParam, bOld, 0&)
End Sub

Another way:

Private Declare Function RegisterServiceProcess Lib "Kernel32.dll" _
    (ByVal dwProcessId As Long, ByVal dwType As Long) As Long
Sub AltCtrlDel_Show()
    Call RegisterServiceProcess(0, 0)
End Sub

Sub AltCtrlDel_Hide()
    Call RegisterServiceProcess(0, 1)
End Sub