Cómo programar Salvapantallas animados en VB6

Microsoft Visual Basic 6.0 es un lenguaje de programación que le da las herramientas para desarrollar aplicaciones de Windows. Puede utilizar Visual Basic para desarrollar utilidades sencillas, así como de escritorio avanzadas y aplicaciones de Internet . Protectores de pantalla son imágenes en movimiento o patrones que aparecen en la pantalla del ordenador cuando el teclado o el ratón no se ha utilizado durante un período de tiempo especificado . En unos pocos pasos usted será capaz de crear un programa de protector de pantalla utilizando Visual Basic . Instrucciones
1

Inicie Microsoft Visual Basic 6.0, haga clic en "EXE estándar " en la ventana de diálogo "Nuevo proyecto" . Haga clic en el formulario y seleccione " Propiedades". Escriba " " al lado de " Caption. ControlBox " Set "," " MinButton " y " MaxButton " a " falso ".
2

Seleccione " 0 - Ninguno "para" BorderStyle " y" 2 - . maximizada "para" WindowState "Establecer el " BackColor " en" & H0 "
3

Haga clic en" Ver código " icono. arriba el nombre del proyecto en el panel " Explorador de proyectos " para abrir la ventana de código . Copia y pega las siguientes dos funciones en la parte superior de la ventana de código :

Private Declare Function SetWindowPos Lib " user32 " _ ( ByVal hwnd As Long , hWndInsertAfter ByVal como de largo, x _ByVal As Long , ByVal Y Como largo, ByVal cx As Long , cy _ByVal como de largo, wFlags ByVal As Long ) As Long

Private Declare Function ShowCursor Lib " user32 " _ ( ByVal bShow As Long ) As Long
4

Copia y pega el siguiente código para crear un nuevo procedimiento que mantendrá la forma en la parte superior :

Sub AlwaysOnTop ( FrmID como forma, OnTop As Boolean ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const FLAGS = SWP_NOMOVE O SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2

Si ThenOnTop OnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0, 0 , 0, 0 , banderas ) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0, 0 , 0 , 0, FLAGS ) End Sub IfEnd
5

Haga clic en " Vista Diseño " en el " Explorador de proyectos " para ver el formulario . Haga doble clic en el formulario para crear el evento "Load" . Copia y pega el siguiente código dentro del evento de formulario "Load" para manejar la pantalla :

Seleccione LCase Case (Izquierda (Comando , 2 ) ) Case " /p": ENDCASE " s /" Case Else : Me.Hide : frmSettings.Show : SubEnd Salir Seleccionar

Dim x As IntegerCall AlwaysOnTop (Me , True) x = ShowCursor (Falso )
6

Copia y pega el siguiente código en el caso de "Descargar" del formulario para mostrar el cursor cuando el programa finaliza :

Dim x As Integerx = ShowCursor (Verdadero )
7

Copia y pega el siguiente código en el evento " KeyPress " del formulario para descargar el protector de pantalla cuando el usuario pulsa una tecla en el teclado :

conde Static Como IntegerCount = count + 1 Si conde > 5 ThenUnload Meend Si
8

Haga clic en el menú " archivo" , luego haga clic en " Hacer . exe " para crear un archivo ejecutable . Vaya a su directorio del proyecto y cambiar la extensión "EXE " para copiar el archivo a la carpeta "C : \\ Windows \\ System \\" " SCR ". . Carpeta