Ayuda -Anular secuencia Ctrl+Alt+Supr en VB-

Question

Ayuda -Anular secuencia Ctrl+Alt+Supr en VB-

#8480# 14 dic 2004 17:41 *

*

Hola, estaba haciendo un salvapantallas que pida Login de usuario pero claro se puede saltar a la torera haciendo Ctrl+Alt+Supr y anulando el proceso, he intentado anular el Ctrl pero parece como si esa secuencia estuviese protegida. ¿Alguien sabe como anularla o tiene algún consejo para evitar cerrar el proceso? gracias jeje soy novatillo.

PD: Es para usar en WIN2000 ayuda por favor.

1 respuesta

Answer 1 · 2004-12-14T20:09:42+00:00

Tienes que usar el API de windows, no recuerdo haberlo probado en W2000, pero en 98 si funcionaba.

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

Private Sub DesHabilitar_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, blnOld, 0&)
End Sub

Private Sub Habilitar_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, blnOld, 0&)
End Sub