¿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)