Programa para apagar mi PC
Hola quisiera desarrollar un programita de apagado automático de mi PC, estoy utilizandon winXP me podrías ayudar con el código, gracias.
1 respuesta
Respuesta de jarpsoft
1
Pega un control Timer a tu formulario y declara esto en el Formulario. Esto te servirá.
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uflags _
As Long, ByVal dwReserved As Long) As Long
Private Const EWX_ORCE = 4
Private Const EWX_LOGOFF = 0
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1
'Inicializas el control Timer
Private Sub Cmd_Inicio_Click()
DoEvents
T1 = Timer
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
'Ejecuta el conteo y
Private Sub Timer1_Timer()
T2 = Timer - T1
Label1.Caption = T2
Call Contar
DoEvents
End Sub
'Apaga el equipo cuando se cumple el tiempo
Private Sub Contar()
If T2 > Tiempo Then
lRetVal = ExitWindowsEx(EWX_SHUTDOWN, 0)
End If
End Sub
JarpSoft
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uflags _
As Long, ByVal dwReserved As Long) As Long
Private Const EWX_ORCE = 4
Private Const EWX_LOGOFF = 0
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1
'Inicializas el control Timer
Private Sub Cmd_Inicio_Click()
DoEvents
T1 = Timer
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
'Ejecuta el conteo y
Private Sub Timer1_Timer()
T2 = Timer - T1
Label1.Caption = T2
Call Contar
DoEvents
End Sub
'Apaga el equipo cuando se cumple el tiempo
Private Sub Contar()
If T2 > Tiempo Then
lRetVal = ExitWindowsEx(EWX_SHUTDOWN, 0)
End If
End Sub
JarpSoft
