Cómo utilizar el programa VB6.0 para forzar el apagado de la computadora

Shell "Close -s -t 30"

Cerrar después de 30 segundos.

Conector final

El otro es llamar a la función API y darte un artículo que puede serte útil:

Implementar la función de apagado en la aplicación. .

(Autor: Fan 17 de julio de 2000 10:52)

Al desarrollar aplicaciones en VB 6.0, los usuarios solicitaron agregar una función de apagado directo dentro del programa para que todas las operaciones puedan ser concentrado en el interior de la aplicación. Con este fin, el autor escribió un programa que llama a funciones API de Windows, implementó con éxito la función de simulación de "sistema de apagado" de Windows 9x y cumplió con los requisitos del usuario. El proceso de diseño ahora se enumera a continuación:

Primero, diseñe la interfaz del sistema de apagado

Cree un nuevo archivo de proyecto y Form1, agregue los controles de opción Opción1, Opción2 y Opción3 en Form1, y configúrelos en secuencia. Los atributos del título son "Apagar la computadora (S)", "Reiniciar la computadora (R)" y "Cerrar todos los programas e iniciar sesión como otro usuario" y configurarlos; el título atribuye a Sí, No y Ayuda respectivamente. Se trata de diseñar una interfaz de simulación de "apagar el sistema" de Windows 98.

En segundo lugar, declare la función API ExitWindowsEx() en el código de evento general.

Al diseñar aplicaciones VB 6.0, llamar a funciones API de Windows enriquecidas puede completar funciones que VB no proporciona o no puede implementar. Estas características están al nivel del "sistema operativo" y pueden mejorar su aplicación. La función ExitWindowsEx() tiene la función de apagar el sistema Windows. Debe declararse antes de llamar:

Declare la función ExitWindowsEx Lib〃user 32 〃 (ByVal u flags es Long, ByVal dwReserved es Long). as Long

Descripción del parámetro: esta función tiene dos parámetros, vFlags y dwReserved, donde vFlags determina la operación de apagado que el usuario debe realizar y dwReserved está reservado pero no se utiliza.

El parámetro vFlags puede tomar las siguientes constantes (o valores correspondientes):

EWX_ShutDown 1 Apagar.

EWX_ReBoot 2Reinicie el ordenador.

EWX_LogOff 0 Cierra todos los programas e inicia sesión como otro usuario.

Tres. La lista de todos los códigos de programa para la función de apagado es la siguiente:

Declaración de la función ExitWinwodsEx() en el código público

Declaración privada de la función ExitWindowsEx Lib〃user 32 〃(ByVal u flags es Long, ByVal dwReserved es Long) es Long

Const close = 1

Const restart = 2

Const logoout = 0

Subcomando privado 1_Click ()

Dim Sh As Long

Si la opción 1. Entonces value = true

Opción Apagar la computadora

Sh = SalirWindowsEx (apagar, dw retenido)

Si... terminará

Si es la opción 2. Entonces valor = True

Opción reiniciar computadora

Sh = SalirWindowsEx(reiniciar, dwReserved)

Terminará si...

Si opción 3. entonces value = true

Cierra todos los programas y usa otro usuario.

Opciones de inicio de sesión de identidad

Sh = Salir de WindowsEx (cerrar sesión, dw retenido)

Terminará si...

Finalizar conector

Subcomando privado 2_Click()

Eliminarme

Finalizar conector

F5 ejecuta el programa, ¡que debe cerrarse! Esta función se ha agregado a la aplicación desarrollada por el usuario, lo cual es bastante práctica.