Apagar/Suspender el Pc en X Minutos. O con más eventos.

Mensaje por **BasicOs** » 11 Dic 2006, 15:15

Parece que está de moda lo de apagar

automáticamente el Pc, pues para que veas como va esto:
Esto es un ejemplito funciona.

Author: Basicos de www.Autoit.es 11/12/2006
$sRespuesta=InputBox("Programación de apagado del pc","¿En cuantos minutos quiere que se apague el PC?")
if $sRespuesta="" or not(StringIsDigit($sRespuesta)) then exit
sleep(number($sRespuesta)*60000)
$sInformacion="Han pasado los "&$sRespuesta&" minutos"& @crlf &"Si no pulsa Cancelar se apaga en 20 segundos"
if MsgBox(1,"Programación de apagado del pc ",$sInformacion,20)<>2 then Shutdown(5) ; apaga cerrando también los programas que no responden (force)  con 1 normal, con 32 Suspende