Indetectables

Publicado: **16 Mar 2010, 04:58**

Hace ya tiempo que tengo este pequeño codigo que durante leia mas sobre vb6 lo encontre y sirve como reemplazo de un timer talvez hayan usado loop y un Doevents como reemplazo pero este es un poco diferente.. miren..

Código: Seleccionar todo

Dim EndTime
EndTime = DateAdd("s", 2, Now)
Do Until Now > EndTime
    DoEvents
Loop

Lo que hacemos aqui es conseguir el tiempo actual del reloj y luego añadirle el tiempo que queramos y no solo lo pueden hacer en segundos sino tambien en minutos y horas..... cosa que no podrias hacerlo con un timer ya que este tiene un limite ...

Ahora en uno de los casos que puedan usar esto es al momento de crear un delay para que se ejecute un archivo

*Delay = tiempo antes de ejecutarse una aplicacion

Salu2.... ;) aver quien tiene otro metodo asi aprendemos todos :D

Publicado: **18 Mar 2010, 18:53**

gracias amigo!!!

Publicado: **18 Mar 2010, 23:54**

cosa que no podrias hacerlo con un timer ya que este tiene un limite ...

Buen aporte. Sm0kes igual el tema del limite del timer puede arreglarse facilmente. Por ejemplo cuando yo necesito hacer algo cada 5 minutos por decir algo lo hago asi..
Con un timer con interval de 60.000 milisegundos (1 minuto)

Código: Seleccionar todo

dim n as integer
Private Sub Form_Load()
n = 0
timer1.enabled = True
End Sub
Private Sub Timer1_Timer()
n = n + 1
if n = 5 then
msgbox "Han pasado 5 minutos"
n = 0
End If
End Sub

Publicado: **20 Mar 2010, 04:31**

jeje esa idea es buena Xa0s pero kreo k la k puse ta mas korta jeje xD... d toas maneras ese code me gusto (Y) Salu2..

Publicado: **20 Mar 2010, 05:33**

Si la que pusiste es algo mas corta jejee pero a mi hace tiempo se me habia ocurrido asi y lo utilice en un par de proyectos xD

Indetectables

Opcion a usar un timer

Opcion a usar un timer

Re: Opcion a usar un timer

Re: Opcion a usar un timer

Re: Opcion a usar un timer

Re: Opcion a usar un timer