Programación de apagado programado de VB
Sub privado Form_Load()
Timer1.Interval = 500
Fin Sub
Sub privado Timer1_Timer()
Si tiempo = "18 :30:00" Luego
Shell "c:/windows\system32\shutdown.exe -s -t 60"
End If
End Sub
Timer1.Interval = 500
Fin Sub
Sub privado Timer1_Timer()
Si tiempo = "18 :30:00" Luego
Shell "c:/windows\system32\shutdown.exe -s -t 60"
End If
End Sub