¿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 finalizarse moviendo el mouse o presionando teclas.
-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 de 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".
-/pSiempre que seleccione la pestaña "Protector de pantalla" en el cuadro de diálogo "Propiedades de pantalla", el efecto de vista previa se mostrará 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á normalmente al protector de pantalla.
-5. Compilar protector de pantalla
-De hecho, cualquier aplicación VB puede ejecutarse como protector de pantalla, pero para poder ser llamada por Windows 95, debe compilarse en 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
- Aquí hay un ejemplo que detalla cómo hacer un protector de pantalla.
Opción explícita
El indicador Dimquit como booleano declara la variable del indicador del programa de terminación.
Dim lleft
Declara una función API para ocultar o mostrar el mouse.
Función de declaración privada que muestra el cursor Lib "usuario 32"
(ByVal bMostrar misma longitud) misma longitud
Detectar clic o movimiento del mouse
Privado subform_Click()
quitflag = True
Conector final
Subform privado_MouseMove(botón como entero,
Cambio a entero, X es precisión simple, Y es precisión simple)
Xlast estático, ylast
Mostrar xnow como único
Ahora único
xnow = X
ynow = Y
Si xlast = 0 y ylast = 0, entonces
xlast = xnow
ylast = ynow
Salir del conector
Terminará si...
Si xnow lt gtxlast o ynow lt gt entonces continúa
quitflag = True
Terminará si...
Conector final
"Clave de prueba"
Subformulario privado _ KeyDown (código de clave como número entero,
cambiar como número entero)
quitflag = True
Conector final
Subformulario privado_ Load()
Dimensión Entonces PrevInstance = True
Utilice la propiedad PrevInstance del objeto APP.
Desinstalarme
Evita que se ejecuten dos salvapantallas 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 = mostrar cursor (Falso)
Ocultar mouse
BackColor = vbBlack
Do
Dispositivo de cronometraje 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
Finalizar texto en desplazamiento
Temporizador1. Habilitado = Verdadero
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 entero)
Tamaño X
x = mostrar cursor (Verdadero)
Mostrar mouse
Conector final
Privado sub-Timer1_Timer()
Eliminarme
Salir del protector de pantalla.
Conector final
Sub-timer2_Timer() privado
Mostrar texto con desplazamiento horizontal
lleft = lleft 100
Si lleft gt= 11810 entonces
lleft = 0
Laboratorio 1. top = Int(Rnd * 7000)
Terminará si...
Laboratorio 1. Izquierda =Izquierda
Temporizador 2. enable=false
Finalizar ajuste