¿Cómo bloquear (Ctrl Alt Del) en VB6.0? (Instrucciones y código relacionados)

Para cumplir con requisitos especiales en programación, a veces necesitamos bloquear la función CTRL ALT DLE. Este programa de muestra le enseñará cómo implementarlo.

Pasos de implementación:

1. Cree un nuevo proyecto y asígnele el nombre DEMO3.vbp.

2. Agregue el siguiente código a la declaración del formulario Form1:

Función de declaración privada SystemParametersInfo Lib "user32" Alias ​​​​"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni Mientras ) Mientras

Const SPI_SCREENSAVERRUNNING = 97

3． Agregue el siguiente código a Command1_Click en la ventana de Form1:

Private Sub Command1_Click()

Atenuar r como entero

Atenuar p como booleano

Si Command1.Caption = "Escudo" Entonces

r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, p, 0)

Command1.Caption = "Válido"

Else

r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)

Command1.Caption = "Escudo"

Finalizar si

Fin Sub

4. Agregue el siguiente código a Form_Unload del formulario Form1:

Dim r As Integer

Dim p As Boolean

r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)