Cómo activar y desactivar el Protector de pantalla

Id. de artículo: 550794 - Ver los productos a los que se aplica este artículo
Este artículo se publicó anteriormente con el número E10744
Expandir todo | Contraer todo

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: viernes, 14 de noviembre de 1997 - Versión: 1.0
La información de este artículo se refiere a:
  • 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
Palabras clave: 
change saver activate screen control KB550794

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com