VB Blocco completo tastiera

[goku370]

Si può, magari tramite API, fare in modo di bloccare totalmente l'input dalla tastiera, per intenderci, come se staccassimo il cavo ?? :adhone:

[JamesD]

ce ne è una che brucia i contatti... :quipy:

[goku370]

Davvero ??
Come può un software agire fisicamente sull'hardware ?

[yyzyyz]

modulo:

Declare Function SystemParametersInfo Lib "user32" _
    Alias "SystemParametersInfoA" (ByVal uAction As Long, _
    ByVal uParam As Long, lpvParam As Any, _
    ByVal fuWinIni As Long) As Long
Public Const SPI_SCREENSAVERRUNNING = 97

form:

'Public Const SPI_SCREENSAVERRUNNING = 97
Public Sub Disable_Ctrl_Alt_Del()
    'Disables the Crtl+Alt+Del
    Dim AyW As Integer
    Dim TurFls As Boolean
    AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
        True, TurFls, 0)
End Sub

Public Sub Enable_Ctrl_Alt_Del()
    'Enables the Crtl+Alt+Del
    Dim AwY As Integer
    Dim TurFls As Boolean
    AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
        False, TurFls, 0)
End Sub


Private Sub Form_Load()

Dim X
X = MsgBox("Do you wish to disable CTRL+ALT+DEL?", 36, _
    "Disable/Enable CTRL+ALT+DEL")
If X = vbYes Then
    Disable_Ctrl_Alt_Del
    MsgBox "CTRL+ALT+DEL is disabled, try pressing " _
        & "CTRL+ALT+DEL now.", , _
        "Disable/Enable CTRL+ALT+DEL"
Again:
    X = MsgBox("Enbale CTRL+ALT+DEL now?", 36, _
        "Disable/Enable CTRL+ALT+DEL")
    If X = vbYes Then
        Enable_Ctrl_Alt_Del
    ElseIf X = vbNo Then
        MsgBox "The program will not End before CTRL+ALT+DEL " _
            & " is enabled.", , "Disable/Enable CTRL+ALT+DEL"
        GoTo Again
    End If
End If

End Sub