Cómo activar y desactivar el Protector de pantalla

Este artículo se publicó anteriormente con el número E10744
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: 11/14/1997 00:00:00 - Revisión: 1.0

Microsoft Visual Basic 4.0 Standard Edition, Microsoft Visual Basic 4.0 32-Bit Enterprise Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic Control Creation Edition, Microsoft Visual Basic 5.0 Learning Edition

  • change saver activate screen control KB550794
Comentarios