¿Cómo hacer tu propio salvapantallas?

Es muy fácil crear un protector de pantalla con Visual Basic. Este artículo detallará cómo crear un protector de pantalla.

-1. Ideas básicas de programación

Como todos sabemos, los protectores de pantalla utilizan colores o gráficos cambiantes para evitar que se dañen los píxeles de la pantalla que no han cambiado. Por lo tanto, un protector de pantalla es un programa que muestra gráficos cambiantes o en movimiento que pueden finalizar cuando se mueve el mouse o se presiona una tecla.

-1. Compilar gráficos de protector de pantalla.

-2. Ocultar el mouse

-Podemos usar la función ShowCursor API de Windows para ocultar el mouse.

-3. Detectar el comportamiento del ratón y los botones.

-Detecta el comportamiento anterior para salir del protector de pantalla.

- 4. Windows llama al comando de parámetro del protector de pantalla.

-/aHaga clic en el botón "Cambiar contraseña" en el cuadro de diálogo "Propiedades de pantalla".

-/p Cada vez que selecciona la pestaña Protector de pantalla en el cuadro de diálogo Propiedades de pantalla, se muestra una vista previa en el cuadro de diálogo.

-/cHaga clic en el botón "Configuración" en el cuadro de diálogo "Propiedades de pantalla".

-/s Haga clic en el botón "Vista previa" en el cuadro de diálogo "Propiedades de pantalla", o el sistema llamará al protector de pantalla normalmente.

-5. Compile el protector de pantalla

-De hecho, cualquier aplicación de VB se puede ejecutar como protector de pantalla, pero para que Windows 95 pueda llamarla, es necesario que lo esté. compilado en un protector de pantalla. Primero ingrese al entorno de programación VB5, seleccione el elemento de menú /Archivo/Crear proyecto después de la programación y luego cambie el sufijo EXE a SCR en el cuadro de texto del nombre del archivo. Finalmente, haga clic en el botón Aceptar para copiar el archivo SCR generado al directorio de Windows, completando así la creación del protector de pantalla.

-II. Ejemplo

-A continuación se utiliza un ejemplo para explicar en detalle cómo crear un protector de pantalla.

Opción explícita

' Dimquit flag as boolean 'Declara la variable de indicador de finalización del programa.

Atenuar hacia la izquierda

Declara una función API para ocultar o mostrar el mouse.

Función de declaración privada ShowCursor Lib "user32 "

(ByVal bShow As Long) únicamente

detecta clic o movimiento del mouse

Subprivado Form_Click()

quitflag = True

Conector final

Subform_MouseMove privado(el botón es un número entero,

El desplazamiento es un número entero, X es precisión simple, Y es precisión simple)

Xlast estático

Ajustar xnow a single

Atenuar ynow single

xnow = X

ynow = Y

Si xlast = 0 y ylast = 0, entonces

xlast = xnow

ylast = ynow

Salir del conector

Terminará si p>quitflag = True

Terminará si...

Finalizar conector

"Clave de prueba"

Private Sub Form_KeyDown(KeyCode como un número entero,

como un cambio de número entero)

quitflag = True

Conector final

Subform_Load() privado

Dim X As Long

lleft = 0

Coordenada x inicial del texto que se desplaza horizontalmente

Si la aplicación. Entonces PrevInstance = True

Utilice la propiedad PrevInstance del objeto APP.

Desinstalarme

Evita que se ejecuten dos instancias del protector de pantalla al mismo tiempo.

Conector de salida

Terminará si...

selecciona Case Ucase $(Left $(Command $, 2))

Cargando parámetros de línea de comando

Se hizo clic en el caso "/s" en el cuadro de diálogo Mostrar propiedades.

El botón de vista previa o el protector de pantalla normalmente lo llama el sistema.

Mostrar

Mostrar formulario 1 en pantalla completa

Irregularizar

Inicializar el generador de números aleatorios.

X = ShowCursor(False)

Ocultar mouse

BackColor = vbBlack

Hacer

Temporizador 2 . enable = true

Inicia el temporizador 2 y muestra el texto de desplazamiento del protector de pantalla.

Múltiples actividades

Transfiere el control para detectar el comportamiento del mouse y las pulsaciones de teclas.

Bucle hasta quitflag = True

Ejecute el protector de pantalla para desplazar el texto hasta que haya acción del mouse y de la tecla.

Temporizador 2. enable = false

Fin del texto en desplazamiento

Temporizador1. enable=True

Inicia el temporizador 1 y sale del protector de pantalla.

Otros casos

Eliminarme

Conector de salida

Final selección

Conector final

Subformulario privado_Unload(cancelar a número entero)

Tamaño X

X = ShowCursor(true)

Mostrar mouse

Conector final

Sub-timer privado1_Timer()

Eliminarme

Salir del protector de pantalla.

Conector final

Subtemporizador privado 2_Timer()

Mostrar texto con desplazamiento horizontal

lleft = lleft + 100

Si lleft & gt= 11810 entonces

lleft = 0

Lab1. Top = Int(Rnd * 7000)

Terminará si...

Lab1. Izquierda =Izquierda

Temporizador 2. enable=false

Finalizar ajuste