¿Cómo hacer tu propio salvapantallas?
-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