Red de conocimiento informático - Aprendizaje de código fuente - Lenguaje simple, edición de software, cómo agregar teclas de acceso rápido para cerrar el software o configurar el tiempo de apagado automático

Lenguaje simple, edición de software, cómo agregar teclas de acceso rápido para cerrar el software o configurar el tiempo de apagado automático

Código fuente: .Versión 2

. Especificación de biblioteca compatible

. Biblioteca compatible shellEx. Ensamblaje de ventanas 1

. Tecla de acceso rápido de variable de ensamblaje, número entero

. >

.Variable ke, entero

.Variable kt, tipo de texto

.Variable de ensamblaje kt, tipo de texto. Subroutine__Launch Window_Create_CompleteDebugOutput (para enviar mensajes de texto (tomar horas (tomar la hora actual ()))+ ":" + para enviar mensajes de texto (tomar minutos (tomar la hora actual ())+ ":" + para enviar mensajes de texto (tomar segundos (tomar la hora actual ())) ))

Cerrar tecla de acceso rápido, número entero

. p>

Cerrar tecla de acceso rápido = registrar tecla de acceso rápido (obtener identificador de ventana (), etiqueta 1. Obtener identificador de ventana () , 0, tecla #F9)

Hora = Registrar tecla de acceso rápido (obtener identificador de ventana (), etiqueta 1. Obtener identificador de ventana (), 0, tecla #F10)

CloseCurrentTime=RegisterHotkey (GetWindowHandle(),Tag1.GetWindowHandle(),0,#F11key). Subrutina _Label1_FeedbackEvent, Entero

. Parámetro 1, número entero

. Parámetro 2, número entero. Inicio del juicio (parámetro uno = cerrar tecla de acceso rápido)

Fin ()

Juicio (parámetro uno = tiempo)

ke = 5 ' 5 segundos Luego cerrar<. /p>

. Determinar el inicio del ciclo (ke≠0)

ke = ke - 1

. Determinar el final del ciclo ()

. punto (ke = 0)

end()

.Predeterminado. Se acabó el juicio. Juicio (parámetro uno = cerrar la hora actual)

. Bucle de juicio primero (para enviar un mensaje de texto (tomar el número de horas (tomar la hora actual ()))). minutos (tomar la hora actual ())+ ":" + a texto (tomar segundos (tomar la hora actual ())≠ "20:00:00") ' Cerrar a las 20:00:00

kt = enviar un mensaje de texto (durante horas (tomar la hora actual ())+ ":" + enviar un mensaje de texto (durante minutos (tomar la hora actual ())+ ":" + enviar un mensaje de texto (durante minutos (tomar la hora actual ())+ ": " + para enviar un mensaje de texto (durante minutos (tomar la hora actual ())+ ":" + para enviar un mensaje de texto (durante minutos (tomar la hora actual ())+ "." + para enviar un mensaje de texto (durante minutos (tomar la hora actual ()))

Determina el inicio (kt = "20:00:00")

Fin ()

Juzga el final. loop()

.Predeterminado.Fin del juicio