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
. 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