Hice un pequeño programa usando vb (detección de mouse y teclado).

En realidad, no hay ganchos ni módulos, hay una función dedicada para verificar el tiempo de inactividad del sistema, por lo que no es tan complicado.

El código completo es el siguiente:

Opción explícita

Función de declaración privada GetLastInputInfo Lib "usuario 32" (plii As LASTINPUTINFO) es un valor booleano

La función de declaración privada GetTickCount Lib "kernel32 "() es larga

Tipo privado LASTINPUTINFO

cbSize tiene la misma longitud

dwTime es la misma longitud

Tipo de fin

Atenuar lii como LASTINPUTINFO

Subform_Load privado()

Temporizador 1. Intervalo = 1000

lii.cbSize = Len(lii)

Conector final

Sub-timer1_Timer() privado

Si GetLastInputInfo ( lii) entonces

si (GetTickCount-LII . dw time)/60000 & gt; = 15 entonces

shell " cerrar . exe-s-t 180 "

Llame a MsgBox ("Debido a que la máquina no ha sido operada durante 15 minutos, si no hay respuesta después de 3 minutos, el sistema se verá obligado a apagarse", vbyesno+exclusión VB+vbdefaultbutton 2, "Preguntar").

Terminará si...

Terminará si...

Finalizar conector