Visual Basic - ¿COMO PUEDO VOLVER A INICIAR ESTE CODIGO PARA QUE SIGA FUNCIONANDO Y NO SE DETENGA ? ES INACTIVIDAD

Life is soft - evento anual de software empresarial
   
Vista:

¿COMO PUEDO VOLVER A INICIAR ESTE CODIGO PARA QUE SIGA FUNCIONANDO Y NO SE DETENGA ? ES INACTIVIDAD

Publicado por BOBBY bobelmagno@gmail.com (3 intervenciones) el 20/07/2016 09:11:33
¿COMO PUEDO VOLVER A INICIAR ESTE CODIGO PARA QUE SIGA FUNCIONANDO Y NO SE DETENGA ? ES INACTIVIDAD DEL MOUSE, Funciona pero tengo q iniciarlo denuevo con un boton, quiero q nunca termine
que se siga ejecutando por siempre

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

GetLastInputInfo(INPUT) COMPROBAMOS LA FUNCION CADA SEGUNDO

Dim TOTAL As Integer = Environment.TickCount MILISEGUNDOS DESDE QUE SE INICIO LA SESION
Dim ULTIMO As Integer = INPUT.dwTime MILISEGUNDOS DESDE LA ULTIMA ACTIVIDAD (TECLADO Y MOUSE)
Dim INTERVALO As Integer = (TOTAL - ULTIMO) / 1000 DIFERENCIA EN SEGUNDOS

Label1.Text = INTERVALO MUESTRA EL INTERVALO EN SEGUNDOS TRANSCURRIDOS DESDE LA ULTIMA ACTIVIDAD

If INTERVALO >= NumericUpDown1.Value Then COMPARA EL DATO Y EJECUTA LO QUE DIGAMOS AL LLEGAR AL LIMITE FIJADO EN EL TEXTBOX
Timer1.Stop()
MsgBox(NumericUpDown1.Value & " SEGUNDOS DE INACTIVIDAD")
Beep()
Label1.Text = 0
ProgressBar1.Value = 0

End If

ProgressBar1.Value = INTERVALO
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder