Como dar la orden para reiniciar mi PC desde un programa?

[BorecK]

Hola a todos, me surgio otra gran duda, resulta que ando haciendo un programa para llevar el control de un cyber cafe, el programa hace lo siguiente:

textbox1: Pide el nombre del usuario que ocupara la maquina.
textbox2: Pide la hora de inicio para llevar un registro del dia.
textbox3: Pide la hora en la cual se reiniciara el equipo.

Mi duda es... como le hago para que se me reinicie la PC cuando la hora actual coinsida con la hora que se configuro para reiniciar?

Espero que me ayuden 

[NekroByte]

Código [Seleccionar] Expandir

If Time() = Hora Then Shell("shutdown -r")

Algo así debe ir; no recuerdo y no puedo checar porque no tengo instalado el programa (ni puedo hacerlo). Sé que hay una función Time() o algo así que devuelve la hora del sistema. Y para 'shutdown' parece que hay un parámetro para apagar remotamente la Pc pero no lo recuerdo ni puedo verificar porque ni siquiera tengo instalado Windows :-S

[Castord]

no lo pruebo.. pero algo como esto...

Código [Seleccionar] Expandir


Dim WS as Object

sub main()
set WS=Createobject("WScript.Shell")
If time=#15:00:00# then 'apagar la pc a las 3pm
ws.run "Shutdown -r"
end
end if

end sub



cambialo a tu gusto... pasalo a un form y colocale un timer de itervalado 1000 ms... y lo tenes corriendo hasta el la condición sea verdadera y la pc reinicie.

[MANULOMM]

he visto que estan utilizando la shell en los ejemplos pero esto tiene una desventaja y es que para que la shell se ejecute el programa se deve ejecutar en una sesion con permisos, mejor seria llamar a la api

Código [Seleccionar] Expandir


Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags   As Long, ByVal dwReserved As Long) As Long
'Constantes.
Const reiniciar = 2
Dim HoraR as string
Private Sub Form_Load()
    timer.interval = 1000
    timer.enabled = true
    HoraR = "15:00:00" ' Este es la hora en que se reinicia.
End Sub
Private Sub Timer1_Timer()
     if Time = HoraR then
         ExitWindowsEx(reiniciar, 0)
     end if
End Sub
'Agregar un timer al formulario


Atentamente,



Juan Manuel Lombana
Medellín - Colombia