Hola :D
Anoche, tuve que dejar la pc prendida porque algo estaba andando y me di cuenta que no tengo manera facil de que se autoapague.
Entonces dije, zas armo un soft para que uno ingrese el tiempo y despues kaput.
Pero los timer de VB6.0 van en milisegundos.
Osea si yo necesito una hora serian cerca de 3600 * 1000 = 3600000 Milisegundos.
Existe una mejor opcion?, Esto consume muchos recursos y pone en riesgo el sistema?
Muchas gracias.
Asigna por hora..! Sicronizado a la hora de tu equipo..!
HOLA!!!
Usa el DOS, el comando "shutdown"
Si no queres leer tanto usa "shutdown -i" en la ventana ejecutar y te carga la GUI
Uso: shutdown [-l | -s | -r | -a] [-f] [-m \\equipo] [-t xx] [-c "comentario"] [
-d up:xx:yy]
Sin argumentos Mostrar este mensaje (igual a -?)
-i Mostrar interfaz GUI, debe ser la primera opción
-l Cerrar sesión (no se puede usar con la opción -m
)
-s Apagar el equipo
-r Apagar y reiniciar el equipo
-a Anular el apagado de equipo
-m \\equipo Equipo que se apagará/reiniciará/anulara
-t xx Establecer el tiempo de espera de apagado en xx
segundos
-c "comentario" Comentario de apagado (máximo, 127 caracteres)
-f Fuerza el cierre de aplicaciones sin advertir
-d [p]:xx:yy Código de motivo de apagado
u es el código de usuario
p es el código de apagado planeado
xx es el código primario del motivo de apagado
(entero positivo menor que 256)
yy es el código secundario del motivo de apagado
(entero positivo menor que 65536)
Ejemplo shutdown -s -t 3600
Con eso se va a apagar en 1 hora.
Para cancelar usa shutdown -a
GRACIAS POR LEER!!!
la parte del shutdown la tengo clara, y no es DOS es un ejecutable.
Lo puedo llamar como yo quiera :P
Hay otra opcion ademas de coordinar con el reloj de windows?
Usa timer que tengan un minuto de intervalo, usas un contador y si llega a 60 ... apagas :P
Cita de: raul338 en 1 Diciembre 2010, 18:36 PM
Usa timer que tengan un minuto de intervalo, usas un contador y si llega a 60 ... apagas :P
No es mala tu idea.
Pero pregunto, ejecutar tantas veces un timer y con un intervalo grande, ¿Relentiza el sistema? ¿ vuelve inestable el soft?
.
No relentiza nada.
'
' /////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel ) //
' // //
' // Web: http://InfrAngeluX.Sytes.Net/ //
' // //
' // |-> Pueden Distribuir Este codigo siempre y cuando //
' // no se eliminen los creditos originales de este codigo //
' // No importando que sea modificado/editado o engrandecido //
' // o achicado, si es en base a este codigo //
' /////////////////////////////////////////////////////////////
' // http://infrangelux.sytes.net/Blog/index.php?option=com_content&view=article&id=6:artwait&catid=2:catprocmanager&Itemid=8
' /////////////////////////////////////////////////////////////
Option Explicit
Private Declare Function WaitMessage Lib "user32" () As Long
Enum eTime
Horas = 3600
Minutos = 60
Segundos = 1
End Enum
Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE As Date
vDateE = DateAdd("s", vToWait& * (0& + ThisWait), Time)
Do While vDateE > Time
Call WaitMessage
If Not UseAllProc Then DoEvents
Loop
End Sub
Dulces Lunas!¡.
Cita de: Elemental Code en 1 Diciembre 2010, 18:40 PM
No es mala tu idea.
Pero pregunto, ejecutar tantas veces un timer y con un intervalo grande, ¿Relentiza el sistema? ¿ vuelve inestable el soft?
No Inestable para mi no... yo tuve hace un tiempo la misma idea que vos y hice que se apague en Xhoras o alas HH:MM entonces comparo cada 1 minuto si la hora del sistema es igual a la hora asignada para el apagado, ahora bien si quiero apagarlo en Xhoras (supongamos 4horas) digo: "Si ahora son las 15:00, hay que apagarlo cuando sean las 19:00" y a partir de ahí hago lo mismo que antes, me fijo cada minuto si son las 19
Yo coloco en un timer que vaya moviendose junto a la hora del sistema..! Y cuando llegue a una hora que yo le indique, sea eso una caja de text o lo que sea, pues mando a apagar el so
¿AT xx:xx shutdown?
Si no te parece viable la opción del timer (que de todas formas lo es) puedes currarte algo que actúe de timer, por poner un ejemplo éste modulo actúa de timer sin tener que cargar el control y funciona con segundos.
Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub
@Stelio Kontos
El unico problema que es que ese codigo se come el procesador... por ende relentiza.
Dulces Lunas¡.
lool..! Terminara usando el timer...! Es algo tan sencillo...!
dime si es esto lo que quieres: http://www.megaupload.com/?d=5R3QR8WS
@Stelio Kontos, @BlackZeroX: Bajando de prioridad el proceso puede pasar desapercibido
Elemental code, yo hize exactamente lo mismo en .net, pero apagar a "determinada hora", compruebo cada 1 minuto y medio (no me importa la precision de la hora del apagado :xD). Hubiera presentado eso en lugar del Notas por red :xD :xD :laugh:
Gracias a todos.
Les presento a Valium 1.0
http://foro.elhacker.net/programacion_visual_basic/valium_10_manda_a_tu_pc_a_dormir-t312417.0.html