Cómo activar y desactivar el Protector de pantalla

Resumen



El presente artículo describe la forma de activar y desactivar el
Protector de pantalla del sistema operativo Windows utilizando Visual
Basic.

Síntomas



El sistema operativo Windows puede configurarse de tal forma que se
ejecute un Protector de pantalla transcurrido un periodo de tiempo sin
que se haya producido ninguna actividad con el teclado o ratón.

Sin embargo, en ciertas situaciones, usted puede necesitar desactivar
el protector de pantalla, ejecutar algún proceso de una aplicación
Visual Basic, y después volver a activar el Protector de pantalla.

Más información



Normalmente, la configuración del sistema en Windows se puede cambiar
través del Panel de control. Sin embargo, la función
SystemParametersInfo puede usarse desde una aplicación Visual Basic
para obtener o establecer estas opciones de configuración.

Use la función SystemParametersInfo con una constante que describa la
opción que se desea modificar. En este ejemplo se utiliza la constante
SPI_SETSCREENSAVEACTIVE para controlar el Protector de pantalla.

Para declarar esta función en un programa Visual Basic, incluya lo
siguiente :

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

Programa de ejemplo :

El siguiente programa de ejemplo demuestra como el Protector de
pantalla puede ser activado y desactivado temporalmente.

1. Cree un proyecto nuevo. Form1, se crea por defecto.

2. Introduzca un botón en Form1.

3. Añada el siguiente código a Form1:

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_SETSCREENSAVEACTIVE = 17
Dim Activado As Boolean

Private Sub Command1_Click()
Dim lngRet As Long
Dim blnOld As Boolean
If Activado = True Then
lngRet = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,_
False, blnOld, 0&)
Command1.Caption = "Activar"
Activado = False
Else
lngRet = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,_
True, blnOld, 0&)
Command1.Caption = "Desactivar"
Activado = True
End If
End Sub

Private Sub Form_Load()
Activado = True
End Sub

Antes de ejecutar el ejemplo, active un Protector de pantalla, si aún
no lo ha activado. Pulse el botón para desactivar/activar el Protector
de pantalla.
Propiedades

Id. de artículo: 550794 - Última revisión: 14 nov. 1997 - Revisión: 1

Comentarios