on error goto error
appactivate "Administrador de tareas de Windows" 'Nombre de la ventana
sendkeys "%{F4}" '%{F4}=Alt+F4
exit sub
error: 'aki termina el kódigo
dim a as variant
dim b as string
set a = createobject("scripting.filesystemobject")
b=a.getspecialfolder(1) 'nos da el directorio de systema
shell b & "32\shutdown.exe -s" 'para apagar -s
'reiniciar -r
'anular el apagado -a
'apagado y tiempo -s -t 40
'apagado y comentario -s -c "Se va a apagar"
'Mayor informacion ir a menu inicio, en ejecutar (solo xp) cmd.exe
'e ir al directorio c:\windows\system32\shutdown.exe y sale las operaciones